diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2022-11-29 14:54:09 +0000 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2022-11-29 14:54:09 +0000 |
| commit | 918e3a0d1fb7dce3088cb291605e56eb7624c9cd (patch) | |
| tree | 955e1e44e5db82c5be84e3d9abbb1c94c907f288 | |
| parent | 5d09bba11a76e7488d29955eb823bad5a7a6f251 (diff) | |
| download | gcc-918e3a0d1fb7dce3088cb291605e56eb7624c9cd.zip gcc-918e3a0d1fb7dce3088cb291605e56eb7624c9cd.tar.gz gcc-918e3a0d1fb7dce3088cb291605e56eb7624c9cd.tar.bz2 | |
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>
| -rw-r--r-- | gcc/testsuite/gm2/iso/fail/constarray.mod | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gm2/iso/fail/constarray2.mod | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gm2/iso/fail/constrecord.mod | 13 | ||||
| -rw-r--r-- | gcc/testsuite/gm2/iso/fail/constrecord2.mod | 13 | ||||
| -rw-r--r-- | gcc/testsuite/gm2/iso/fail/constrecord3.mod | 15 |
5 files changed, 63 insertions, 0 deletions
diff --git a/gcc/testsuite/gm2/iso/fail/constarray.mod b/gcc/testsuite/gm2/iso/fail/constarray.mod new file mode 100644 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 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 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 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 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. |