6 files changed, 104 insertions, 0 deletions
diff --git a/gcc/testsuite/gm2/iso/fail/conststrarray2.mod b/gcc/testsuite/gm2/iso/fail/conststrarray2.mod
new file mode 100644
index 0000000..ab101d4
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/conststrarray2.mod
@@ -0,0 +1,30 @@
+MODULE conststrarray2 ;
+
+FROM libc IMPORT printf, exit ;
+
+CONST
+   HelloWorld = Hello + " " + World ;
+   Hello = "Hello" ;
+   World = "World" ;
+
+
+(*
+   Assert - 
+*)
+
+PROCEDURE Assert (result: BOOLEAN) ;
+BEGIN
+   IF NOT result
+   THEN
+      printf ("assertion failed\n") ;
+      exit (1)
+   END
+END Assert ;
+
+
+VAR
+   ch: CHAR ;
+BEGIN
+   ch := HelloWorld[4] ;
+   Assert (ch = 'o')
+END conststrarray2.
diff --git a/gcc/testsuite/gm2/iso/run/pass/constarray2.mod b/gcc/testsuite/gm2/iso/run/pass/constarray2.mod
new file mode 100644
index 0000000..19beb6f
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/run/pass/constarray2.mod
@@ -0,0 +1,33 @@
+MODULE constarray2 ;
+
+FROM libc IMPORT printf, exit ;
+
+TYPE
+   arraytype = ARRAY [0..11] OF CHAR ;
+   
+CONST
+   Hello = "Hello" ;
+   World = "World" ;
+   HelloWorld = arraytype {Hello + " " + World} ;
+
+
+(*
+   Assert - 
+*)
+
+PROCEDURE Assert (result: BOOLEAN) ;
+BEGIN
+   IF NOT result
+   THEN
+      printf ("assertion failed\n") ;
+      exit (1)
+   END
+END Assert ;
+
+
+VAR
+   ch: CHAR ;
+BEGIN
+   ch := HelloWorld[4] ;
+   Assert (ch = 'o')
+END constarray2.
diff --git a/gcc/testsuite/gm2/pim/pass/hexstring.mod b/gcc/testsuite/gm2/pim/pass/hexstring.mod
new file mode 100644
index 0000000..9299282
--- /dev/null
+++ b/gcc/testsuite/gm2/pim/pass/hexstring.mod
@@ -0,0 +1,16 @@
+MODULE hexstring ;  
+
+CONST
+   HexDigits = "0123456789ABCDEF" ;
+
+TYPE
+   ArrayType = ARRAY [0..HIGH (HexDigits)] OF CHAR ;
+
+CONST
+   HexArray = ArrayType { HexDigits } ;
+
+VAR
+   four: CHAR ;
+BEGIN
+   four := HexArray[4]
+END hexstring.
diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal.mod
new file mode 100644
index 0000000..2871f46
--- /dev/null
+++ b/gcc/testsuite/gm2/pim/pass/minmaxreal.mod
@@ -0,0 +1,7 @@
+MODULE minmaxreal ;  
+
+CONST
+   min = MIN (REAL) ;
+   max = MAX (REAL) ;
+
+END minmaxreal.
diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod
new file mode 100644
index 0000000..120c1b7
--- /dev/null
+++ b/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod
@@ -0,0 +1,8 @@
+MODULE minmaxreal2 ;  
+
+VAR
+   min, max: REAL ;
+BEGIN
+   min := MIN (REAL) ;
+   max := MAX (REAL)
+END minmaxreal2.
diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod
new file mode 100644
index 0000000..30b5d1b
--- /dev/null
+++ b/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod
@@ -0,0 +1,10 @@
+MODULE minmaxreal3 ;  
+
+FROM SYSTEM  IMPORT REAL64 ;
+
+VAR
+   min, max: REAL64 ;
+BEGIN
+   min := MIN (REAL64) ;
+   max := MAX (REAL64)
+END minmaxreal3.