aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug0112/assert01.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/bug0112/assert01.vhdl')
-rw-r--r--testsuite/gna/bug0112/assert01.vhdl13
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/gna/bug0112/assert01.vhdl b/testsuite/gna/bug0112/assert01.vhdl
new file mode 100644
index 000000000..da12815f5
--- /dev/null
+++ b/testsuite/gna/bug0112/assert01.vhdl
@@ -0,0 +1,13 @@
+entity assert01 is
+ generic (
+ ginv : boolean := false
+ );
+ port (i : bit;
+ o : out bit);
+end assert01;
+
+architecture behav of assert01 is
+begin
+ assert (not ginv) report "ginv is true" severity failure;
+ o <= i;
+end behav;