From fbd853c88b4b1c3008b1b39882ac2b99b6e59460 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 5 Nov 2021 19:04:25 +0100 Subject: testsuite/gna: add a test for #1908 --- testsuite/gna/issue1908/ini_pkg.vhdl | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 testsuite/gna/issue1908/ini_pkg.vhdl (limited to 'testsuite/gna/issue1908/ini_pkg.vhdl') diff --git a/testsuite/gna/issue1908/ini_pkg.vhdl b/testsuite/gna/issue1908/ini_pkg.vhdl new file mode 100644 index 000000000..0ed8d9642 --- /dev/null +++ b/testsuite/gna/issue1908/ini_pkg.vhdl @@ -0,0 +1,36 @@ +LIBRARY IEEE; +USE IEEE.STD_LOGIC_1164.ALL; + +----------------------------------------------------------------------------------- +-- * Package +----------------------------------------------------------------------------------- +package ini_pkg is + ----------------------------------------------------------------------------------- + -- * Types + ----------------------------------------------------------------------------------- + -- With the following values no bug ocurred + type ini_t is record + val_of_0 : std_logic; + val_of_1 : std_logic; + val_of_2 : std_logic; + val_of_3 : std_logic; + val_of_4 : std_logic; + val_of_5 : std_logic; + end record; + + -- With the following values a an exception rise in GHDL, printing the GHDL Bug Ocurred Message + -- type ini_t is record + -- vval_of_0 : std_logic; + -- val_of_1 : std_logic; + -- val_of_2 : std_logic; + -- val_of_3 : std_logic; + -- val_of_4 : std_logic; + -- val_of_5 : std_logic; + -- end record; + + +----------------------------------------------------------------------------------- +-- * End Package +----------------------------------------------------------------------------------- +end package ini_pkg; + -- cgit v1.2.3