fpcsrc/tests/webtbf/tw1270.pp


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

{ %FAIL }

type l = record
          i:longint;
          end;


var l2 : l;
    y  : Longint;
    x  : Boolean;

begin
  x:=l2>y;
end.