From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gaius@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1499)
	id 907293858D1E; Wed,  9 Nov 2022 14:13:58 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 907293858D1E
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1668003238;
	bh=UNS9HQWXTgOfmOrHsk+p3x5g4hPqfq/+btXg3e8cKnU=;
	h=From:To:Subject:Date:From;
	b=Zd57qsnblt9aoFuNgqsXGAzbI7JiNQK4pTXmfAw1ibDS9T9PJNZLoClU5vr5AAjTJ
	 G0BvUxpNixXxUR4aLapvzF4JdtmdHGfk0wNORjK7s8NarZJnIz580HpjF2vGG5VWYA
	 FwhvL9qohO2q5zlA4fhmaB3JIXEDmuC9o4Ho1Fic=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: Gaius Mulley <gaius@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc/devel/modula-2] New regression tests added.
X-Act-Checkin: gcc
X-Git-Author: Gaius Mulley <gaiusmod2@gmail.com>
X-Git-Refname: refs/heads/devel/modula-2
X-Git-Oldrev: 0fea4cded352906fc6843696b64e8cf482babaec
X-Git-Newrev: b7bbab2f69e50bb3bbb52016aea562a766e2c9c6
Message-Id: <20221109141358.907293858D1E@sourceware.org>
Date: Wed,  9 Nov 2022 14:13:58 +0000 (GMT)
List-Id: <gcc-cvs.sourceware.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