tw12237.pp « webtbs « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/webtbs/tw12237.pp

blob: fe9f54937695cbb8e9c68c06ac219b72ca5e2565 (plain)

function f: longint; safecall;
begin
  f:=-2;
end;

begin
  if (f<>-2) then
    halt(1);
end.