From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1499) id 71F533858C2C; Tue, 29 Nov 2022 15:10:10 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 71F533858C2C DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1669734610; bh=c3Lhm+vhTQXzkoIWyF1/fsjR2NHSAdMeh4qB2DuOaYw=; h=From:To:Subject:Date:From; b=EoY8oWXYB4UQTyfhgzDvpw/7IsHuaQPWlq9UTzzzefVyvfyEY3wIIXNehLhRePaHx +CHqY9cedi68YHe5nXdkx7El33BAmFNQTPvZl3ge3hvnQXr8mqDUHlJc5k4MhELYds 088sTZ9fnAXrJn03j6HF+EUHK1RZDqrLNo8eg248= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Gaius Mulley To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/modula-2] New regression tests added. X-Act-Checkin: gcc X-Git-Author: Gaius Mulley X-Git-Refname: refs/heads/devel/modula-2 X-Git-Oldrev: 5d09bba11a76e7488d29955eb823bad5a7a6f251 X-Git-Newrev: 918e3a0d1fb7dce3088cb291605e56eb7624c9cd Message-Id: <20221129151010.71F533858C2C@sourceware.org> Date: Tue, 29 Nov 2022 15:10:10 +0000 (GMT) List-Id: https://gcc.gnu.org/g:918e3a0d1fb7dce3088cb291605e56eb7624c9cd commit 918e3a0d1fb7dce3088cb291605e56eb7624c9cd Author: Gaius Mulley 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 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.