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

+ added more specific tests

Browse Source
This commit is contained in:
carl 2001-06-14 02:56:20 +00:00
parent 72e3212dad
commit 360d9afd72
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test/cg/tmoddiv.pp
View File

@ -164,6 +164,15 @@ begin
else
WriteLn('Failure.');
Writeln('special numeric values tests...');
cardinalcnt := $80000;
cardinalres := $12345;
cardinalres := cardinalcnt div cardinalres;
Write('Value should be 7...');
if cardinalres = 7 then
WriteLn('Success.')
else
WriteLn('Failure.');
{$IFDEF FPC}
WriteLn('------------------- CARDINAL -----------------------');
@ -188,6 +197,16 @@ begin
else
WriteLn('Failure.');
Writeln('special numeric values tests...');
cardinalcnt := $80000;
cardinalres := $12345;
cardinalres := cardinalcnt div cardinalres;
Write('Value should be 7...');
if cardinalres = 7 then
WriteLn('Success.')
else
WriteLn('Failure.');
WriteLn('(left) : LOC_REFERENCE; (right) : ordinal constant');
{ RIGHT : power of 2 ordconstn }
{ LEFT : LOC_REFERENCE }
@ -401,7 +420,5 @@ begin
else
WriteLn('Failure.');
WriteLn('--------------------- QWORD ------------------------');
{$ENDIF}
end.