diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:20:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:20:00 +0200 |
| commit | 21e4db5b3fdad4a45ede8fbcae96e928101892ee (patch) | |
| tree | a2106cea7b8640d77ed58dbecaae372c9653d2f8 /testsuite/gna | |
| parent | a29ce552ab91a5ec0951e92fe1329513cae0253b (diff) | |
| download | ghdl-21e4db5b3fdad4a45ede8fbcae96e928101892ee.tar.gz ghdl-21e4db5b3fdad4a45ede8fbcae96e928101892ee.tar.bz2 ghdl-21e4db5b3fdad4a45ede8fbcae96e928101892ee.zip | |
Testcase for ticket55.
Diffstat (limited to 'testsuite/gna')
| -rw-r--r-- | testsuite/gna/ticket55/bug.vhdl | 6 | ||||
| -rw-r--r-- | testsuite/gna/ticket55/bug1.vhdl | 6 | ||||
| -rw-r--r-- | testsuite/gna/ticket55/bug2.vhdl | 6 | ||||
| -rw-r--r-- | testsuite/gna/ticket55/bug3.vhdl | 6 | ||||
| -rwxr-xr-x | testsuite/gna/ticket55/testsuite.sh | 12 |
5 files changed, 36 insertions, 0 deletions
diff --git a/testsuite/gna/ticket55/bug.vhdl b/testsuite/gna/ticket55/bug.vhdl new file mode 100644 index 000000000..987e5fbc4 --- /dev/null +++ b/testsuite/gna/ticket55/bug.vhdl @@ -0,0 +1,6 @@ +package pkg is + function identifier return integer; + procedure identifier; + alias identifier_alias_fun is identifier[return integer]; + alias identifier_alias_proc is identifier[]; +end package; diff --git a/testsuite/gna/ticket55/bug1.vhdl b/testsuite/gna/ticket55/bug1.vhdl new file mode 100644 index 000000000..28e2b62e3 --- /dev/null +++ b/testsuite/gna/ticket55/bug1.vhdl @@ -0,0 +1,6 @@ +package pkg is +-- function identifier return integer; + procedure identifier; + alias identifier_alias_fun is identifier[return integer]; +-- alias identifier_alias_proc is identifier[]; +end package; diff --git a/testsuite/gna/ticket55/bug2.vhdl b/testsuite/gna/ticket55/bug2.vhdl new file mode 100644 index 000000000..25298e8a0 --- /dev/null +++ b/testsuite/gna/ticket55/bug2.vhdl @@ -0,0 +1,6 @@ +package pkg is + function identifier return integer; +-- procedure identifier; +-- alias identifier_alias_fun is identifier[return integer]; + alias identifier_alias_proc is identifier[]; +end package; diff --git a/testsuite/gna/ticket55/bug3.vhdl b/testsuite/gna/ticket55/bug3.vhdl new file mode 100644 index 000000000..7bed33c6f --- /dev/null +++ b/testsuite/gna/ticket55/bug3.vhdl @@ -0,0 +1,6 @@ +package pkg is + type e is (identifier, i2); +-- procedure identifier; +-- alias identifier_alias_fun is identifier[return integer]; + alias identifier_alias_proc is identifier[]; +end package; diff --git a/testsuite/gna/ticket55/testsuite.sh b/testsuite/gna/ticket55/testsuite.sh new file mode 100755 index 000000000..d0152dfbf --- /dev/null +++ b/testsuite/gna/ticket55/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze bug.vhdl +analyze_failure bug1.vhdl +analyze_failure bug2.vhdl +analyze_failure bug3.vhdl + +clean + +echo "Test successful" |