From 386ad8152b179d07b900012ca5bbadeaec452f3d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 23 Apr 2020 17:42:02 +0200 Subject: Add test for ghdl#1238 --- testsuite/ghdl-issues/issue1238/multiplexers_3.vhdl | 21 +++++++++++++++++++++ testsuite/ghdl-issues/issue1238/testsuite.sh | 9 +++++++++ 2 files changed, 30 insertions(+) create mode 100644 testsuite/ghdl-issues/issue1238/multiplexers_3.vhdl create mode 100755 testsuite/ghdl-issues/issue1238/testsuite.sh (limited to 'testsuite') diff --git a/testsuite/ghdl-issues/issue1238/multiplexers_3.vhdl b/testsuite/ghdl-issues/issue1238/multiplexers_3.vhdl new file mode 100644 index 0000000..71659cd --- /dev/null +++ b/testsuite/ghdl-issues/issue1238/multiplexers_3.vhdl @@ -0,0 +1,21 @@ +library ieee; +use ieee.std_logic_1164.all; + +entity multiplexers_3 is + + port (di : in std_logic_vector(7 downto 0); + sel : in std_logic_vector(7 downto 0); + do : out std_logic); +end multiplexers_3; + +architecture archi of multiplexers_3 is +begin + do <= di(0) when sel(0)='0' else 'Z'; + do <= di(1) when sel(1)='0' else 'Z'; + do <= di(2) when sel(2)='0' else 'Z'; + do <= di(3) when sel(3)='0' else 'Z'; + do <= di(4) when sel(4)='0' else 'Z'; + do <= di(5) when sel(5)='0' else 'Z'; + do <= di(6) when sel(6)='0' else 'Z'; + do <= di(7) when sel(7)='0' else 'Z'; +end archi; diff --git a/testsuite/ghdl-issues/issue1238/testsuite.sh b/testsuite/ghdl-issues/issue1238/testsuite.sh new file mode 100755 index 0000000..bdea9d3 --- /dev/null +++ b/testsuite/ghdl-issues/issue1238/testsuite.sh @@ -0,0 +1,9 @@ +#!/bin/sh + +topdir=../.. +. $topdir/testenv.sh + +synth_import --std=08 multiplexers_3.vhdl -e + +clean +echo OK -- cgit v1.2.3