1 files changed, 30 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.