From 807570488884a51ed60c38f4ce0853b8e1191e3c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 25 Feb 2018 07:35:22 +0100 Subject: Add testcase for #535 --- testsuite/gna/issue535/bug.vhdl | 12 ++++++++++++ testsuite/gna/issue535/testsuite.sh | 10 ++++++++++ 2 files changed, 22 insertions(+) create mode 100644 testsuite/gna/issue535/bug.vhdl create mode 100755 testsuite/gna/issue535/testsuite.sh (limited to 'testsuite/gna') diff --git a/testsuite/gna/issue535/bug.vhdl b/testsuite/gna/issue535/bug.vhdl new file mode 100644 index 000000000..8c6fcb1a1 --- /dev/null +++ b/testsuite/gna/issue535/bug.vhdl @@ -0,0 +1,12 @@ +package pkg1 is + generic ( + type value_t); +end package; + +package pkg2 is + generic ( + type value_t); + + package pkg1_inst is new work.pkg1 generic map (value_t => value_t); + use pkg1_inst.all; +end; diff --git a/testsuite/gna/issue535/testsuite.sh b/testsuite/gna/issue535/testsuite.sh new file mode 100755 index 000000000..e880f4010 --- /dev/null +++ b/testsuite/gna/issue535/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +export GHDL_STD_FLAGS=--std=08 +analyze bug.vhdl + +clean + +echo "Test successful" -- cgit v1.2.3