aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue2050/test_pkg.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue2050/test_pkg.vhdl')
-rw-r--r--testsuite/gna/issue2050/test_pkg.vhdl16
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/gna/issue2050/test_pkg.vhdl b/testsuite/gna/issue2050/test_pkg.vhdl
new file mode 100644
index 000000000..4b1ef2c96
--- /dev/null
+++ b/testsuite/gna/issue2050/test_pkg.vhdl
@@ -0,0 +1,16 @@
+package test_pkg is
+ type rec_t is record
+ comp_1 : integer;
+ end record;
+
+ constant REC_DEFAULT : rec_t := (comp_1 => 0);
+
+ procedure proc(param : integer := REC_DEFAULT.comp_1);
+end package;
+
+package body test_pkg is
+ procedure proc(param : integer := REC_DEFAULT.comp_1) is
+ begin
+ null;
+ end procedure;
+end package body;