From 341c34e2fee520253a3da19b599c44b8f50a706d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 27 Apr 2022 05:36:03 +0200
Subject: testsuite/gna: add original test for #1898

---
 testsuite/gna/issue1898/scale.vhdl   | 8 ++++++++
 testsuite/gna/issue1898/scale1.vhdl  | 8 --------
 testsuite/gna/issue1898/testsuite.sh | 2 +-
 3 files changed, 9 insertions(+), 9 deletions(-)
 create mode 100644 testsuite/gna/issue1898/scale.vhdl
 delete mode 100644 testsuite/gna/issue1898/scale1.vhdl

(limited to 'testsuite')

diff --git a/testsuite/gna/issue1898/scale.vhdl b/testsuite/gna/issue1898/scale.vhdl
new file mode 100644
index 000000000..745645a99
--- /dev/null
+++ b/testsuite/gna/issue1898/scale.vhdl
@@ -0,0 +1,8 @@
+entity scale is
+    port(w : out bit_vector(0 to 1));
+end entity scale;
+
+architecture boop of scale is
+begin
+    w <= '1' and b"01";
+end architecture boop;
diff --git a/testsuite/gna/issue1898/scale1.vhdl b/testsuite/gna/issue1898/scale1.vhdl
deleted file mode 100644
index 745645a99..000000000
--- a/testsuite/gna/issue1898/scale1.vhdl
+++ /dev/null
@@ -1,8 +0,0 @@
-entity scale is
-    port(w : out bit_vector(0 to 1));
-end entity scale;
-
-architecture boop of scale is
-begin
-    w <= '1' and b"01";
-end architecture boop;
diff --git a/testsuite/gna/issue1898/testsuite.sh b/testsuite/gna/issue1898/testsuite.sh
index 9a535b7ba..3d44de9a4 100755
--- a/testsuite/gna/issue1898/testsuite.sh
+++ b/testsuite/gna/issue1898/testsuite.sh
@@ -4,7 +4,7 @@
 
 export GHDL_STD_FLAGS=--std=08
 
-for f in scale2 scale3 scale4; do
+for f in scale scale2 scale3 scale4; do
   analyze $f.vhdl
   elab_simulate $f
 done
-- 
cgit v1.2.3