aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-06-27 20:31:28 +0200
committerTristan Gingold <tgingold@free.fr>2017-06-27 20:31:28 +0200
commit59869f0e517c69632da810c1a42aada26e537e32 (patch)
treed801346bda9068551a7f6bd0ddb4596cc9128c94 /testsuite/gna
parentaf582493c5767edf39a21c0f68e2cd6a3d3b3d2b (diff)
downloadghdl-59869f0e517c69632da810c1a42aada26e537e32.tar.gz
ghdl-59869f0e517c69632da810c1a42aada26e537e32.tar.bz2
ghdl-59869f0e517c69632da810c1a42aada26e537e32.zip
Testcase for #375
Diffstat (limited to 'testsuite/gna')
-rw-r--r--testsuite/gna/issue375/cond_assign_proc.vhdl26
-rwxr-xr-xtestsuite/gna/issue375/testsuite.sh11
2 files changed, 37 insertions, 0 deletions
diff --git a/testsuite/gna/issue375/cond_assign_proc.vhdl b/testsuite/gna/issue375/cond_assign_proc.vhdl
new file mode 100644
index 000000000..0ae81ed96
--- /dev/null
+++ b/testsuite/gna/issue375/cond_assign_proc.vhdl
@@ -0,0 +1,26 @@
+library ieee ;
+use ieee.std_logic_1164.all ;
+use std.textio.all ;
+
+entity cond_assign_proc is
+end entity cond_assign_proc;
+
+architecture doit of cond_assign_proc is
+ signal Clk : std_logic := '0' ;
+ signal Y : std_logic ;
+begin
+ Clk <= not Clk after 10 ns ;
+
+ process (all)
+ begin
+ Y <= '1' when Clk = '1' else '0' ;
+ end process ;
+
+ process
+ begin
+ wait for 500 ns ;
+ std.env.stop ;
+ end process ;
+end architecture doit ;
+
+
diff --git a/testsuite/gna/issue375/testsuite.sh b/testsuite/gna/issue375/testsuite.sh
new file mode 100755
index 000000000..15eef134f
--- /dev/null
+++ b/testsuite/gna/issue375/testsuite.sh
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze cond_assign_proc.vhdl
+elab_simulate cond_assign_proc
+
+clean
+
+echo "Test successful"