From 918e3a0d1fb7dce3088cb291605e56eb7624c9cd Mon Sep 17 00:00:00 2001
From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Tue, 29 Nov 2022 14:54:09 +0000
Subject: [PATCH] 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>
---
 gcc/testsuite/gm2/iso/fail/constarray.mod   | 11 +++++++++++
 gcc/testsuite/gm2/iso/fail/constarray2.mod  | 11 +++++++++++
 gcc/testsuite/gm2/iso/fail/constrecord.mod  | 13 +++++++++++++
 gcc/testsuite/gm2/iso/fail/constrecord2.mod | 13 +++++++++++++
 gcc/testsuite/gm2/iso/fail/constrecord3.mod | 15 +++++++++++++++
 5 files changed, 63 insertions(+)
 create mode 100644 gcc/testsuite/gm2/iso/fail/constarray.mod
 create mode 100644 gcc/testsuite/gm2/iso/fail/constarray2.mod
 create mode 100644 gcc/testsuite/gm2/iso/fail/constrecord.mod
 create mode 100644 gcc/testsuite/gm2/iso/fail/constrecord2.mod
 create mode 100644 gcc/testsuite/gm2/iso/fail/constrecord3.mod

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.
-- 
2.47.2