diff options
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/gna/ticket79/file.vhdl | 24 | ||||
-rwxr-xr-x | testsuite/gna/ticket79/testsuite.sh | 12 |
2 files changed, 36 insertions, 0 deletions
diff --git a/testsuite/gna/ticket79/file.vhdl b/testsuite/gna/ticket79/file.vhdl new file mode 100644 index 0000000..431e948 --- /dev/null +++ b/testsuite/gna/ticket79/file.vhdl @@ -0,0 +1,24 @@ +entity sub_ent is +end entity; + +architecture a of sub_ent is + signal sig : integer := 0; +begin + sig <= 1 after 1 ns; +end architecture; + +entity ent is +end entity; + +architecture a of ent is + signal sig : integer; +begin + dut : entity work.sub_ent; + sig <= << signal dut.sig : integer >>; + + monitor : process + begin + wait on sig; + report to_string(sig); + end process; +end architecture; diff --git a/testsuite/gna/ticket79/testsuite.sh b/testsuite/gna/ticket79/testsuite.sh new file mode 100755 index 0000000..efadfa2 --- /dev/null +++ b/testsuite/gna/ticket79/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze_failure file.vhdl + +GHDL_STD_FLAGS=--std=08 +$GHDL -s --std=08 file.vhdl + +clean + +echo "Test successful" |