tw6957.pp 177 B

12345678910111213141516171819
  1. { %fail }
  2. {$IFDEF FPC}
  3. {$MODE TP}
  4. {$ENDIF FPC}
  5. unit tw6957;
  6. interface
  7. function tw6957: boolean;
  8. implementation
  9. function tw6957: boolean;
  10. begin
  11. tw6957 := true;
  12. end;
  13. end.