1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/gna/issue2148/unused.vhdl b/testsuite/gna/issue2148/unused.vhdl
new file mode 100644
index 000000000..03860f23f
--- /dev/null
+++ b/testsuite/gna/issue2148/unused.vhdl
@@ -0,0 +1,16 @@
+entity e is end;
+
+architecture a of e is
+
+    procedure p is
+        variable a : integer;
+    begin
+        null;
+    end;
+begin
+    process
+    begin
+        p;
+        wait;
+    end process;
+end;