aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue2165/e.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue2165/e.vhdl')
-rw-r--r--testsuite/gna/issue2165/e.vhdl13
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/gna/issue2165/e.vhdl b/testsuite/gna/issue2165/e.vhdl
new file mode 100644
index 000000000..1938ade32
--- /dev/null
+++ b/testsuite/gna/issue2165/e.vhdl
@@ -0,0 +1,13 @@
+entity e is end;
+architecture a of e is
+
+ -- Body mismatches declaration because 'arg' is not marked constant.
+ -- However constant is the default value when not specified
+ function f1(constant arg : bit) return bit;
+ function f1( arg : bit) return bit
+ is
+ begin
+ return '0';
+ end;
+begin
+end;