TP3/shell/tests/fixtures/t136_variant.pas

program variantrec;
type V = record
       case Flag : boolean of
         TRUE  : (I : integer);
         FALSE : (C : char)
       end;
var A : V;
begin
  A.I := 65;
  writeln(A.I)
end.