1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/gna/bug015/phys2.vhdl b/testsuite/gna/bug015/phys2.vhdl
new file mode 100644
index 000000000..3c0957fec
--- /dev/null
+++ b/testsuite/gna/bug015/phys2.vhdl
@@ -0,0 +1,14 @@
+entity tb2 is
+end;
+
+use work.physical.all;
+
+architecture test of tb2 is
+  constant CLOCK_FREQ    : FREQ    := MHz;
+  procedure p (a : freq) is
+  begin
+  end p;
+begin
+  p (clock_freq);
+  -- empty
+end architecture;