paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test of Int64/QWord stuff

Browse Source
This commit is contained in:
florian 2000-05-14 18:47:46 +00:00
parent 53b5415c5e
commit abfb66363f
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test/testaoc.pp
View File

@ -1,6 +1,5 @@
Program TestAOC;
{$mode objfpc}
Program TestAOC;
{ Program to test array of const }
@ -27,7 +26,8 @@ Program TestAOC;
// vtVariant : (VVariant: PVariant);
// vtInterface : (VInterface: Pointer);
// vtWideString : (VWideString: Pointer);
// vtInt64 : (VInt64: PInt64);
vtInt64 : (VInt64: PInt64);
vtQWord : (VQWord: PQWord);
end;
}
@ -68,8 +68,9 @@ begin
vtVariant : (VVariant: PVariant);
vtInterface : (VInterface: Pointer);
vtWideString : (VWideString: Pointer);
vtInt64 : (VInt64: PInt64);
}
vtInt64 : Writeln ('Int64, value : ',args[i].VInt64^);
vtQWord : Writeln ('QWord, value : ',args[i].VQWord^);
else
Writeln ('(Unknown) : ',args[i].vtype);
end;
@ -101,7 +102,10 @@ begin
Testit ([ObjA,ObjB]);
Testit ([1.234,1.234]);
TestIt ([AClass]);
TestIt ([QWord(1234)]);
TestIt ([Int64(1234)]);
TestIt ([Int64(12341234)*1000000000+Int64(12341234)]);
TestIt2 ([]);
TestIt2 ([1,2]);
end.