From 2b51cb98adb90daf116f25a4fb7bc3e2fc7dd4a7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 17 Sep 2018 20:38:55 +0200
Subject: Add testcase for alias of library.

---
 testsuite/gna/issue652/lib_alias.vhdl | 9 +++++++++
 testsuite/gna/issue652/testsuite.sh   | 2 ++
 2 files changed, 11 insertions(+)
 create mode 100644 testsuite/gna/issue652/lib_alias.vhdl

(limited to 'testsuite/gna/issue652')

diff --git a/testsuite/gna/issue652/lib_alias.vhdl b/testsuite/gna/issue652/lib_alias.vhdl
new file mode 100644
index 000000000..ff8fd4596
--- /dev/null
+++ b/testsuite/gna/issue652/lib_alias.vhdl
@@ -0,0 +1,9 @@
+library ieee;
+entity foo is
+end entity;
+architecture fum of foo is
+    alias fee is ieee;  -- non-object alias
+    use fee.std_logic_1164.all;
+    signal s : std_logic;
+begin
+end architecture;
diff --git a/testsuite/gna/issue652/testsuite.sh b/testsuite/gna/issue652/testsuite.sh
index fb70e2afd..474015bda 100755
--- a/testsuite/gna/issue652/testsuite.sh
+++ b/testsuite/gna/issue652/testsuite.sh
@@ -4,6 +4,8 @@
 
 analyze_failure --work=clock --warn-hide ent.vhdl
 
+analyze lib_alias.vhdl
+
 clean
 
 echo "Test successful"
-- 
cgit v1.2.3