[gcc/devel/modula-2] New regression tests added.

[Gaius Mulley <gaius@gcc.gnu.org>]

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