New regression tests added.

gcc/testsuite/gm2/ChangeLog:

	* iso/fail/constarray.mod: New file.
	* iso/fail/constarray2.mod: New file.
	* iso/fail/constrecord.mod: New file.
	* iso/fail/constrecord2.mod: New file.
	* iso/fail/constrecord3.mod: New file.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

diff --git a/gcc/testsuite/gm2/iso/fail/constarray.mod b/gcc/testsuite/gm2/iso/fail/constarray.mod
new file mode 100644 (file)
index 0000000..71f0804
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/constarray.mod
@@ -0,0 +1,11 @@
+MODULE constarray ;
+
+TYPE
+   VEC = ARRAY [0..2] OF REAL;
+
+CONST
+   VecConst = VEC {1.0, 2.0, 3.0};
+
+BEGIN
+   VecConst[1] := 1.0
+END constarray.

diff --git a/gcc/testsuite/gm2/iso/fail/constarray2.mod b/gcc/testsuite/gm2/iso/fail/constarray2.mod
new file mode 100644 (file)
index 0000000..590cd57
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/constarray2.mod
@@ -0,0 +1,11 @@
+MODULE constarray2 ;
+
+TYPE
+   VEC = ARRAY [0..2] OF REAL;
+
+CONST
+   VecConst = VEC {1.0, 2.0, 3.0};
+
+BEGIN
+   VecConst := VEC {2.0, 3.0, 4.0}
+END constarray2.

diff --git a/gcc/testsuite/gm2/iso/fail/constrecord.mod b/gcc/testsuite/gm2/iso/fail/constrecord.mod
new file mode 100644 (file)
index 0000000..8019b3f
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/constrecord.mod
@@ -0,0 +1,13 @@
+MODULE constrecord ;   (*!m2iso*)
+
+TYPE
+   VEC = RECORD
+            x, y, z: REAL ;
+         END ;
+
+CONST
+   VecConst = VEC {1.0, 2.0, 3.0} ;
+
+BEGIN
+   VecConst.y := 1.0
+END constrecord.

diff --git a/gcc/testsuite/gm2/iso/fail/constrecord2.mod b/gcc/testsuite/gm2/iso/fail/constrecord2.mod
new file mode 100644 (file)
index 0000000..78b3f26
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/constrecord2.mod
@@ -0,0 +1,13 @@
+MODULE constrecord2 ;   (*!m2iso*)
+
+TYPE
+   VEC = RECORD
+            x, y, z: REAL ;
+         END ;
+
+CONST
+   VecConst = VEC {1.0, 2.0, 3.0} ;
+
+BEGIN
+   VecConst := VEC {2.0, 3.0, 4.0}
+END constrecord2.

diff --git a/gcc/testsuite/gm2/iso/fail/constrecord3.mod b/gcc/testsuite/gm2/iso/fail/constrecord3.mod
new file mode 100644 (file)
index 0000000..654c6ed
--- /dev/null
+++ b/gcc/testsuite/gm2/iso/fail/constrecord3.mod
@@ -0,0 +1,15 @@
+MODULE constrecord3 ;   (*!m2iso*)
+
+TYPE
+   VEC = RECORD
+            x, y, z: REAL ;
+         END ;
+
+CONST
+   VecConst = VEC {1.0, 2.0, 3.0} ;
+
+BEGIN
+   WITH VecConst DO
+      y := 1.0
+   END
+END constrecord3.