diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-13 18:58:08 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-13 18:58:08 +0200 |
| commit | 9f99eee0818eafb3c544181c4ad2eda00d59e5ce (patch) | |
| tree | f6c6a26a8a4ad3cebe02d6ddca6e14e9520ca526 /testsuite/gna/issue1361/repro.vhdl | |
| parent | 71a81bae09057650e72802bc39f9ebe97b7e6bd8 (diff) | |
| download | ghdl-9f99eee0818eafb3c544181c4ad2eda00d59e5ce.tar.gz ghdl-9f99eee0818eafb3c544181c4ad2eda00d59e5ce.tar.bz2 ghdl-9f99eee0818eafb3c544181c4ad2eda00d59e5ce.zip | |
testsuite/gna: add a test for #1361
Diffstat (limited to 'testsuite/gna/issue1361/repro.vhdl')
| -rw-r--r-- | testsuite/gna/issue1361/repro.vhdl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/issue1361/repro.vhdl b/testsuite/gna/issue1361/repro.vhdl new file mode 100644 index 000000000..54447849d --- /dev/null +++ b/testsuite/gna/issue1361/repro.vhdl @@ -0,0 +1,19 @@ +ENTITY repro IS +END repro; + +ARCHITECTURE vhdl_behavioral of repro IS + constant userpreload : boolean := true; + CONSTANT MaxData : NATURAL := 16#FF#; --255; + CONSTANT AddrRANGE : NATURAL := 16#0FFFFFF#; + + TYPE MemArray IS ARRAY (0 TO AddrRANGE) OF INTEGER RANGE -1 TO MaxData; + SHARED VARIABLE Mem : MemArray := (OTHERS => MaxData); +begin + MemPreload : PROCESS + BEGIN + IF UserPreload THEN + Mem := (OTHERS => MaxData); + end if; + WAIT; + END PROCESS MemPreload; +END vhdl_behavioral; |