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

* fixed test results

Browse Source
This commit is contained in:
peter 2004-05-03 16:03:21 +00:00
parent da9aeb42b3
commit 55befeb61e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/test/cg/tshlshr.pp
View File

@ -215,8 +215,8 @@ Begin
int64res:=1; int64res:=1;
int64res := int64res shl 65; int64res := int64res shl 65;
Write('(SHL) Value should be 0...'); Write('(SHL) Value should be 2...');
test(int64res, 0); test(int64res, 2);
int64res:=$8000; int64res:=$8000;
int64res := int64res shr 15; int64res := int64res shr 15;
@ -225,8 +225,8 @@ Begin
int64res:=$FFFF; int64res:=$FFFF;
int64res := int64res shr 65; int64res := int64res shr 65;
Write('(SHR) Value should be 0...'); Write('(SHR) Value should be 32767...');
test(int64res, 0); test(int64res, 32767);
{ left : LOC_REFERENCE } { left : LOC_REFERENCE }
{ right : LOC_REFERENCE } { right : LOC_REFERENCE }
@ -335,7 +335,10 @@ end.
{ {
$Log$ $Log$
Revision 1.8 2004-05-02 12:11:44 peter Revision 1.9 2004-05-03 16:03:21 peter
* fixed test results
Revision 1.8 2004/05/02 12:11:44 peter
* fixed linefeeds * fixed linefeeds
Revision 1.7 2003/12/07 11:59:44 jonas Revision 1.7 2003/12/07 11:59:44 jonas