From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Tue, 29 Nov 2022 14:54:09 +0000 (+0000)
Subject: New regression tests added.
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=918e3a0d1fb7dce3088cb291605e56eb7624c9cd;p=thirdparty%2Fgcc.git

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
index 000000000000..71f0804a099e
--- /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
index 000000000000..590cd57e6176
--- /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
index 000000000000..8019b3f2ce75
--- /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
index 000000000000..78b3f263b9b2
--- /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
index 000000000000..654c6ed2ae42
--- /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.