From cb0fdf7a64f5853c0a769cd2febb5b8b8383f8a0 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 8 Oct 2002 07:42:19 +0000
Subject: [PATCH]  * give result for arrays and const arrays separately

---
 tests/test/cg/tcalcst8.pp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/tests/test/cg/tcalcst8.pp b/tests/test/cg/tcalcst8.pp
index 3a4898538d..475349dbf4 100644
--- a/tests/test/cg/tcalcst8.pp
+++ b/tests/test/cg/tcalcst8.pp
@@ -583,6 +583,7 @@ begin
 
   write('Const parameter test (src : LOC_REFERENCE (arraydef)))...');
 
+ 
   clear_globals;
   clear_values;
   failed:=false;
@@ -598,9 +599,16 @@ begin
   value_smallarray[SMALL_INDEX] := RESULT_U8BIT;
   proc_const_smallarray_open(value_smallarray);
   if global_u8bit <> RESULT_U8BIT then
-    failed := true;
+    failed := true; 
+
+  if failed then
+    fail
+  else
+    WriteLn('Passed!');
 
 {$ifndef tp}
+  write('Const parameter test (src : LOC_REFERENCE (const arraydef)))...');
+
   clear_globals;
   clear_values;
 
@@ -847,7 +855,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2002-09-22 09:08:41  carl
+  Revision 1.5  2002-10-08 07:42:19  pierre
+   * give result for arrays and const arrays separately
+
+  Revision 1.4  2002/09/22 09:08:41  carl
     * gets64bit was not returning an int64!
 
   Revision 1.3  2002/09/07 15:40:50  peter