paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 14:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* test for new int64 mod int64 sign behaviour adapted

Browse Source
This commit is contained in:
florian 2004-04-24 17:14:37 +00:00
parent d18f952c09
commit 1e12a332bf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,8 +294,8 @@ begin
int64res := 10101010; int64res := 10101010;
int64cnt := -13; int64cnt := -13;
int64res := int64res mod int64cnt; int64res := int64res mod int64cnt;
Write('Value should be -10...'); Write('Value should be 10...');
test(longint(int64res), -10); test(longint(int64res), 10);
WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REGISTER'); WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REGISTER');
{ RIGHT : LOC_REGISTER } { RIGHT : LOC_REGISTER }
@ -309,8 +309,8 @@ begin
{ LEFT : LOC_REFERENCE } { LEFT : LOC_REFERENCE }
int64res := -1111111; int64res := -1111111;
int64res := int64res mod getint64cnt; int64res := int64res mod getint64cnt;
Write('Value should be 1...'); Write('Value should be -1...');
test(longint(int64res), 1); test(longint(int64res), -1);
{ RIGHT : LOC_REFERENCE } { RIGHT : LOC_REFERENCE }
{ LEFT : LOC_REGISTER } { LEFT : LOC_REGISTER }