public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/modula-2] New regression tests added.
@ 2022-11-29 15:10 Gaius Mulley
0 siblings, 0 replies; 2+ messages in thread
From: Gaius Mulley @ 2022-11-29 15:10 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:918e3a0d1fb7dce3088cb291605e56eb7624c9cd
commit 918e3a0d1fb7dce3088cb291605e56eb7624c9cd
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date: Tue Nov 29 14:54:09 2022 +0000
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:
---
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(+)
diff --git a/gcc/testsuite/gm2/iso/fail/constarray.mod b/gcc/testsuite/gm2/iso/fail/constarray.mod
new file mode 100644
index 00000000000..71f0804a099
--- /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 00000000000..590cd57e617
--- /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 00000000000..8019b3f2ce7
--- /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 00000000000..78b3f263b9b
--- /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 00000000000..654c6ed2ae4
--- /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.
^ permalink raw reply [flat|nested] 2+ messages in thread
* [gcc/devel/modula-2] New regression tests added.
@ 2022-11-09 14:13 Gaius Mulley
0 siblings, 0 replies; 2+ messages in thread
From: Gaius Mulley @ 2022-11-09 14:13 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:b7bbab2f69e50bb3bbb52016aea562a766e2c9c6
commit b7bbab2f69e50bb3bbb52016aea562a766e2c9c6
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date: Wed Nov 9 14:09:08 2022 +0000
New regression tests added.
New test to check INTEGER CARDINAL comparisions are caught. New test
to check missing actual parameters for intrinsic procedure functions
are also caught.
gcc/testsuite/gm2/ChangeLog:
* gm2/errors/fail/badhigh.mod: New file.
* gm2/errors/fail/badexpr.mod: New file.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diff:
---
gcc/testsuite/gm2/errors/fail/badexpr.mod | 13 +++++++++++++
gcc/testsuite/gm2/errors/fail/badhigh.mod | 9 +++++++++
2 files changed, 22 insertions(+)
diff --git a/gcc/testsuite/gm2/errors/fail/badexpr.mod b/gcc/testsuite/gm2/errors/fail/badexpr.mod
new file mode 100644
index 00000000000..3e5d3ce9106
--- /dev/null
+++ b/gcc/testsuite/gm2/errors/fail/badexpr.mod
@@ -0,0 +1,13 @@
+MODULE badexpr ;
+
+FROM SYSTEM IMPORT ADDRESS ;
+
+VAR
+ i: CARDINAL;
+ a: ADDRESS ;
+BEGIN
+ a := NIL;
+ WHILE i < a DO
+ INC (i)
+ END;
+END badexpr.
diff --git a/gcc/testsuite/gm2/errors/fail/badhigh.mod b/gcc/testsuite/gm2/errors/fail/badhigh.mod
new file mode 100644
index 00000000000..44ba128bc05
--- /dev/null
+++ b/gcc/testsuite/gm2/errors/fail/badhigh.mod
@@ -0,0 +1,9 @@
+MODULE badhigh;
+VAR
+ i, high : CARDINAL;
+BEGIN
+ high := 10;
+ WHILE i < HIGH DO
+ INC(i);
+ END;
+END badhigh.
\ No newline at end of file
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2022-11-29 15:10 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-11-29 15:10 [gcc/devel/modula-2] New regression tests added Gaius Mulley
-- strict thread matches above, loose matches on Subject: below --
2022-11-09 14:13 Gaius Mulley
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).