From 0f94031b6843794dfdd7e1c0a1b72235908cecd9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 5 Dec 2016 03:21:33 +0100 Subject: Add testcase for #107 --- testsuite/gna/issue107/test1.vhdl | 28 ++++++++++++++++++++++++++++ testsuite/gna/issue107/testpkg.vhdl | 16 ++++++++++++++++ testsuite/gna/issue107/testsuite.sh | 12 ++++++++++++ 3 files changed, 56 insertions(+) create mode 100644 testsuite/gna/issue107/test1.vhdl create mode 100644 testsuite/gna/issue107/testpkg.vhdl create mode 100755 testsuite/gna/issue107/testsuite.sh (limited to 'testsuite/gna/issue107') diff --git a/testsuite/gna/issue107/test1.vhdl b/testsuite/gna/issue107/test1.vhdl new file mode 100644 index 000000000..4e3e74174 --- /dev/null +++ b/testsuite/gna/issue107/test1.vhdl @@ -0,0 +1,28 @@ +library ieee; + use ieee.std_logic_1164.all; + +entity ApbMasterBfmE is + generic ( + G_ADDR_WIDTH : positive := 8; --* address bus width + G_DATA_WIDTH : positive := 8; --* data bus width + G_SLAVE_COUNT : positive := 1 + ); + port ( + PRreset_n_i : in std_logic; + PClk_i : in std_logic + ); +end entity ApbMasterBfmE; + + +package MyTestPkg is new work.TestPkg generic map (G_TEST => 17); + + +architecture sim of ApbMasterBfmE is + + use work.MyTestPkg.all; + +begin + + assert false report "done" severity note; + +end architecture sim; diff --git a/testsuite/gna/issue107/testpkg.vhdl b/testsuite/gna/issue107/testpkg.vhdl new file mode 100644 index 000000000..917b08976 --- /dev/null +++ b/testsuite/gna/issue107/testpkg.vhdl @@ -0,0 +1,16 @@ +package TestPkg is + + generic ( + G_TEST : positive := 8 + ); +end package TestPkg; + + +package body TestPkg is + + procedure TestReport is + begin + report "G_TEST :" & to_string(G_TEST); + end procedure; + +end package body; diff --git a/testsuite/gna/issue107/testsuite.sh b/testsuite/gna/issue107/testsuite.sh new file mode 100755 index 000000000..4f35fc111 --- /dev/null +++ b/testsuite/gna/issue107/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +GHDL_STD_FLAGS=--std=08 + +analyze testpkg.vhdl +analyze test1.vhdl + +clean + +echo "Test successful" -- cgit v1.2.3