[Ooc-checkins] CVS: ooc2/tests/ssa HOTLoop1.Ref,NONE,1.1 HOTLoop1.Mod,NONE,1.1 testsuite.xml,1.6,1.7

[Michael v. A. <mv...@us...>]

Update of /cvsroot/ooc/ooc2/tests/ssa
In directory usw-pr-cvs1:/tmp/cvs-serv7338/tests/ssa

Modified Files:
	testsuite.xml 
Added Files:
	HOTLoop1.Ref HOTLoop1.Mod 
Log Message:
added REPEAT statement and character constants to IR & SSA


--- NEW FILE: HOTLoop1.Ref ---
0
3

--- NEW FILE: HOTLoop1.Mod ---
MODULE HOTLoop1;

IMPORT Out;
  
PROCEDURE Len (str: ARRAY OF CHAR): INTEGER;
  VAR
    i: INTEGER;
  BEGIN
    i := -1;
    REPEAT
      i := i+1
    UNTIL (str[i] = 0X);
    RETURN i
  END Len;

PROCEDURE Test* ();
  BEGIN
    Out.Int (Len(""), 0); Out.Ln;
    Out.Int (Len("abc"), 0); Out.Ln;
  END Test;

END HOTLoop1.

Index: testsuite.xml
===================================================================
RCS file: /cvsroot/ooc/ooc2/tests/ssa/testsuite.xml,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- testsuite.xml	2001/12/15 15:27:47	1.6
+++ testsuite.xml	2001/12/16 01:26:12	1.7
@@ -18,11 +18,11 @@
   baseline1 baseline2 baseline3 baseline4 baseline5 baseline6
   baseline8 baseline10 baseline11
   function1 function2 function3 if1 if2 if3 function4 function5
-  designator1 function6">
+  designator1 function6 loop1">
 
 <!--<testsuite-ext
   profile="Test Suite for Framework Testing"
-  select ="prepare_out_module function6">-->
+  select ="prepare_out_module loop1">-->
   
   <testcases profile="Test Suite Setup" default-lang="O1 O2 AO">
     <test id="prepare_out_module" type="accept" file="../compile/src/Out.Mod">
@@ -98,6 +98,11 @@
       file="HOTFunction6.Mod" output="HOTFunction6.Ref">
       Simple functions: Compare character parameter with constant
       character and return different integer values depending on the result.
+    </test>
+
+    <test id="loop1" type="run"
+      file="HOTLoop1.Mod" output="HOTLoop1.Ref">
+      Loop variant <code>REPEAT-UNTIL</code>: Calculate string length.
     </test>
   </testcases>