mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-24 14:49:16 +02:00
32 lines
476 B
ObjectPascal
32 lines
476 B
ObjectPascal
|
|
program TestVal;
|
|
|
|
uses
|
|
{ longint type, short string }
|
|
tval1,
|
|
{ dword type, short string }
|
|
tval2,
|
|
{ int64 type, short string }
|
|
tval3,
|
|
{ uint64 type, short string }
|
|
tval4,
|
|
{ common variables and functions }
|
|
tvalc;
|
|
|
|
|
|
|
|
begin
|
|
if (paramcount>0) and
|
|
(paramstr(1)='verbose') then
|
|
silent:=false;
|
|
TestAllVal1;
|
|
TestAllVal2;
|
|
TestAllVal3;
|
|
TestAllVal4;
|
|
if HasErrors then
|
|
begin
|
|
Writeln('Test tval failed');
|
|
Halt(1);
|
|
end;
|
|
end.
|