summaryrefslogtreecommitdiff
path: root/testsuite/gna/ticket49/bug.vhdl
diff options
context:
space:
mode:
authorTristan Gingold2015-05-11 21:03:45 +0200
committerTristan Gingold2015-05-11 21:03:45 +0200
commitf94b64e892c4c5b7cc9b3661a0de0a358e79093c (patch)
tree98df9f9fd235536855c5474625fee57aff16c7f0 /testsuite/gna/ticket49/bug.vhdl
parentae9bf87f0ecb5f8e43f8e1df4ce9fdb5a16bff8d (diff)
downloadghdl-f94b64e892c4c5b7cc9b3661a0de0a358e79093c.tar.gz
ghdl-f94b64e892c4c5b7cc9b3661a0de0a358e79093c.tar.bz2
ghdl-f94b64e892c4c5b7cc9b3661a0de0a358e79093c.zip
Allow generic without default values in top-level entity.
Implement ticket #47.
Diffstat (limited to 'testsuite/gna/ticket49/bug.vhdl')
-rw-r--r--testsuite/gna/ticket49/bug.vhdl22
1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/gna/ticket49/bug.vhdl b/testsuite/gna/ticket49/bug.vhdl
new file mode 100644
index 0000000..45f66c3
--- /dev/null
+++ b/testsuite/gna/ticket49/bug.vhdl
@@ -0,0 +1,22 @@
+entity ent is
+end entity;
+
+architecture a of ent is
+ procedure set(x : integer; value : integer := 0) is
+ begin
+ end procedure;
+
+ procedure set(x : integer; y : integer; value : integer := 0) is
+ begin
+ end procedure;
+
+ procedure set(x : integer; y : integer; z : integer; value : integer := 0) is
+ begin
+ end procedure;
+begin
+ main : process
+ begin
+ set(0, value => 1); -- Works
+ set(0, 1, value => 1); -- Does not work
+ end process;
+end architecture;