Add a reproducer for foreign procedures.

1 files changed, 15 insertions, 0 deletions

diff --git a/testsuite/gna/bug026/x.vhd b/testsuite/gna/bug026/x.vhd
new file mode 100644
index 0000000..a123e86
--- /dev/null
+++ b/testsuite/gna/bug026/x.vhd
@@ -0,0 +1,15 @@
+--library ieee;
+--use ieee.std_logic_1164.all;
+
+package dosomething is
+
+  type dosomething_t is record
+                       dummy1 : integer;
+                       dummy2 : integer;
+                       dummy3 : integer;
+                     end record;
+
+  procedure dosomething_hello (
+    variable r : inout dosomething_t);
+
+end dosomething;