fpcsrc/tests/tbs/ub0308.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

unit ub0308;

  interface

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

  implementation

end.