tw11846c.pp 175 B

1234567891011121314
  1. { %OPT=-Sew -vw -Oodfa }
  2. { %NORUN }
  3. { %fail }
  4. {$mode objfpc}
  5. function Test(a: integer): boolean;
  6. var
  7. i: Integer;
  8. begin
  9. for i:=2 to 1 do
  10. Result:=true;
  11. end;
  12. begin
  13. end.