aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue209/main.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue209/main.vhdl')
-rw-r--r--testsuite/gna/issue209/main.vhdl14
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/gna/issue209/main.vhdl b/testsuite/gna/issue209/main.vhdl
new file mode 100644
index 000000000..75198235a
--- /dev/null
+++ b/testsuite/gna/issue209/main.vhdl
@@ -0,0 +1,14 @@
+library work;
+ use work.all;
+
+package ShiftReg is
+ procedure main(new_sample: integer);
+end package;
+
+package body ShiftReg is
+ procedure main(new_sample: integer) is
+ variable dummy: Util.integer_list_t(0 to 3); -- Here i use the type
+ begin
+ dummy := new_sample & dummy(0 to dummy'high-1); -- Error about missing &
+ end procedure;
+end package body;