diff options
Diffstat (limited to 'testsuite/gna')
| -rw-r--r-- | testsuite/gna/issue810/my_time_pkg.vhdl | 14 | ||||
| -rw-r--r-- | testsuite/gna/issue810/repro.vhdl | 17 | ||||
| -rwxr-xr-x | testsuite/gna/issue810/testsuite.sh | 10 |
3 files changed, 41 insertions, 0 deletions
diff --git a/testsuite/gna/issue810/my_time_pkg.vhdl b/testsuite/gna/issue810/my_time_pkg.vhdl new file mode 100644 index 000000000..39c87b736 --- /dev/null +++ b/testsuite/gna/issue810/my_time_pkg.vhdl @@ -0,0 +1,14 @@ +package my_time_pkg is + + type my_time is range -integer'low to integer'high units + fs; + ps = 1000 fs; + ns = 1000 ps; + us = 1000 ns; + ms = 1000 us; + sec = 1000 ms; + min = 60 sec; + hr = 60 min; + end units; + +end package my_time_pkg; diff --git a/testsuite/gna/issue810/repro.vhdl b/testsuite/gna/issue810/repro.vhdl new file mode 100644 index 000000000..60727c4e5 --- /dev/null +++ b/testsuite/gna/issue810/repro.vhdl @@ -0,0 +1,17 @@ +entity repro is +end; + +architecture behav of repro is + type my_time is range -integer'low to integer'high units + fs; + ps = 1000 fs; + ns = 1000 ps; + us = 1000 ns; + ms = 1000 us; + sec = 1000 ms; + min = 60 sec; + hr = 60 min; + end units; +begin +end behav; + diff --git a/testsuite/gna/issue810/testsuite.sh b/testsuite/gna/issue810/testsuite.sh new file mode 100755 index 000000000..7da7af956 --- /dev/null +++ b/testsuite/gna/issue810/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze repro.vhdl +elab_simulate repro + +clean + +echo "Test successful" |