From cd6476fd3bccad677afa347e67241d0a994209d1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 12 Sep 2020 07:40:35 +0200
Subject: testsuite/gna: add a testcase for #1461

Also adjust case #1015
---
 testsuite/gna/issue1015/testsuite.sh |  2 +-
 testsuite/gna/issue1461/mwe.vhdl     | 12 ++++++++++++
 testsuite/gna/issue1461/testsuite.sh | 15 +++++++++++++++
 3 files changed, 28 insertions(+), 1 deletion(-)
 create mode 100644 testsuite/gna/issue1461/mwe.vhdl
 create mode 100755 testsuite/gna/issue1461/testsuite.sh

diff --git a/testsuite/gna/issue1015/testsuite.sh b/testsuite/gna/issue1015/testsuite.sh
index 6cfb281e8..39097a8ae 100755
--- a/testsuite/gna/issue1015/testsuite.sh
+++ b/testsuite/gna/issue1015/testsuite.sh
@@ -2,7 +2,7 @@
 
 . ../../testenv.sh
 
-analyze_failure std.vhdl
+analyze_failure --std=02 std.vhdl
 
 clean
 
diff --git a/testsuite/gna/issue1461/mwe.vhdl b/testsuite/gna/issue1461/mwe.vhdl
new file mode 100644
index 000000000..fd6a38c02
--- /dev/null
+++ b/testsuite/gna/issue1461/mwe.vhdl
@@ -0,0 +1,12 @@
+library mwe;
+
+entity mwe is
+end entity;
+
+architecture a of mwe is
+begin
+  process
+  begin
+    wait;
+  end process;
+end;
diff --git a/testsuite/gna/issue1461/testsuite.sh b/testsuite/gna/issue1461/testsuite.sh
new file mode 100755
index 000000000..612ef4796
--- /dev/null
+++ b/testsuite/gna/issue1461/testsuite.sh
@@ -0,0 +1,15 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS="--std=02 --work=mwe -frelaxed"
+analyze mwe.vhdl
+
+clean
+
+export GHDL_STD_FLAGS="--std=02 --work=mwe"
+analyze_failure mwe.vhdl
+
+clean
+
+echo "Test successful"
-- 
cgit v1.2.3