From 55befeb61e37f184b411a7a000854ac4cfc36727 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 3 May 2004 16:03:21 +0000
Subject: [PATCH]   * fixed test results

---
 tests/test/cg/tshlshr.pp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/tests/test/cg/tshlshr.pp b/tests/test/cg/tshlshr.pp
index dc251f6818..17ed1ccb10 100644
--- a/tests/test/cg/tshlshr.pp
+++ b/tests/test/cg/tshlshr.pp
@@ -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