freepascal.compiler/tests/ts010009.pp

unit ts010009;

  interface

  type
     tr = record
        case a : (x,y,z) of
           x : (l : longint);
        end;

  implementation

end.