tval1.pp 262 B

123456789101112131415161718192021222324252627
  1. unit tval1;
  2. {$mode fpc}
  3. interface
  4. function TestAllVal1 : boolean;
  5. implementation
  6. uses
  7. tvalc;
  8. type
  9. IntegerType = longint;
  10. {$i tval.inc}
  11. function TestAllVal1 : boolean;
  12. begin
  13. Writeln('Test val for longint type');
  14. TestAllVal1:=TestAll;
  15. end;
  16. end.