From 21e4db5b3fdad4a45ede8fbcae96e928101892ee Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 12 May 2015 20:20:00 +0200 Subject: Testcase for ticket55. --- testsuite/gna/ticket55/bug.vhdl | 6 ++++++ testsuite/gna/ticket55/bug1.vhdl | 6 ++++++ testsuite/gna/ticket55/bug2.vhdl | 6 ++++++ testsuite/gna/ticket55/bug3.vhdl | 6 ++++++ testsuite/gna/ticket55/testsuite.sh | 12 ++++++++++++ 5 files changed, 36 insertions(+) create mode 100644 testsuite/gna/ticket55/bug.vhdl create mode 100644 testsuite/gna/ticket55/bug1.vhdl create mode 100644 testsuite/gna/ticket55/bug2.vhdl create mode 100644 testsuite/gna/ticket55/bug3.vhdl create mode 100755 testsuite/gna/ticket55/testsuite.sh (limited to 'testsuite') 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" -- cgit v1.2.3