tw4359.pp 403 B

123456789101112131415161718
  1. { %fail }
  2. { %opt=-S2 }
  3. { Source provided for Free Pascal Bug Report 4359 }
  4. { Submitted by "Wolfgang Ehrhardt (via News, submitted by Marco)" on 2005-09-12 }
  5. { e-mail: [email protected] }
  6. {. mode objfpc}
  7. program test;
  8. {$ifdef FPC_OBJFPC}
  9. {$fatal Correctly stopped at position 1} // not triggered by -S2, but is triggered by mode objfpc
  10. {$endif}
  11. var
  12. bug: integer;
  13. begin
  14. end.