tval4.pp 258 B

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