freepascal.compiler/tests/test/units/system/tval3.pp

unit tval3;

{$mode fpc}

interface

function TestAllval3 : boolean;

implementation

uses
  tvalc;

type
  IntegerType = int64;

{$i tval.inc}


function TestAllval3 : boolean;
begin
  Writeln('Test val for int64 type');
  TestAllval3:=TestAll;
end;

end.