paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +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 := int64res shl 65;
Write('(SHL) Value should be 0...');
test(int64res, 0);
Write('(SHL) Value should be 2...');
test(int64res, 2);
int64res:=$8000;
int64res := int64res shr 15;
@ -225,8 +225,8 @@ Begin
int64res:=$FFFF;
int64res := int64res shr 65;
Write('(SHR) Value should be 0...');
test(int64res, 0);
Write('(SHR) Value should be 32767...');
test(int64res, 32767);
{ left : LOC_REFERENCE }
{ right : LOC_REFERENCE }
@ -335,7 +335,10 @@ end.
{
$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
Revision 1.7 2003/12/07 11:59:44 jonas