From a1154ddb9051e337d309d8c2766fa11657f6adf7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 27 May 2020 17:51:12 +0200 Subject: testsuite/gna: add a testcase for #1287 --- testsuite/gna/issue1287/myentity.vhdl | 11 +++++++++++ testsuite/gna/issue1287/myentity2.vhdl | 13 +++++++++++++ testsuite/gna/issue1287/testsuite.sh | 15 +++++++++++++++ 3 files changed, 39 insertions(+) create mode 100644 testsuite/gna/issue1287/myentity.vhdl create mode 100644 testsuite/gna/issue1287/myentity2.vhdl create mode 100755 testsuite/gna/issue1287/testsuite.sh (limited to 'testsuite/gna/issue1287') diff --git a/testsuite/gna/issue1287/myentity.vhdl b/testsuite/gna/issue1287/myentity.vhdl new file mode 100644 index 000000000..8f318bdf6 --- /dev/null +++ b/testsuite/gna/issue1287/myentity.vhdl @@ -0,0 +1,11 @@ +entity myentity is +end myentity; + +architecture arch of myentity is + type myrecord is record + a : bit_vector; + end record; + subtype myboundedrecord is myrecord(a(1 downto 0)); + type myarray is array (natural range <>) of myboundedrecord; +begin +end arch; diff --git a/testsuite/gna/issue1287/myentity2.vhdl b/testsuite/gna/issue1287/myentity2.vhdl new file mode 100644 index 000000000..fe3cf56c5 --- /dev/null +++ b/testsuite/gna/issue1287/myentity2.vhdl @@ -0,0 +1,13 @@ +entity myentity2 is +end myentity2; + +architecture arch of myentity2 is + type myrecord is record + a : bit_vector; + end record; + subtype myboundedrecord is myrecord(a(1 downto 0)); + type myarray is array (natural range <>) of myboundedrecord; + + signal s : myarray (1 downto 0); +begin +end arch; diff --git a/testsuite/gna/issue1287/testsuite.sh b/testsuite/gna/issue1287/testsuite.sh new file mode 100755 index 000000000..672cfb220 --- /dev/null +++ b/testsuite/gna/issue1287/testsuite.sh @@ -0,0 +1,15 @@ +#! /bin/sh + +. ../../testenv.sh + +export GHDL_STD_FLAGS=--std=08 + +analyze myentity.vhdl +elab_simulate myentity + +analyze myentity2.vhdl +elab_simulate myentity2 + +clean + +echo "Test successful" -- cgit v1.2.3