freepascal.compiler/tests/tbs/ub0308.pp

unit ub0308;

  interface

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

  implementation

end.