freepascal.compiler/tests/webtbf/tw1270.pp

{ %FAIL }

type l = record
          i:longint;
          end;


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

begin
  x:=l2>y;
end.