Add reproducer for #395

1 files changed, 8 insertions, 0 deletions

diff --git a/testsuite/gna/issue395/e.vhdl b/testsuite/gna/issue395/e.vhdl
new file mode 100644
index 000000000..bf1591d80
--- /dev/null
+++ b/testsuite/gna/issue395/e.vhdl
@@ -0,0 +1,8 @@
+entity e is end entity;
+architecture a of e is
+  function f(b:integer:=0) return string is begin return "abc"; end function;
+  function f               return string is begin return "def"; end function;
+  subtype r is integer range 1 to 2;
+begin
+  assert false report "x: " & f(r) severity note;
+end architecture;