testsuite/gna/bug018/repro1.vhdl


1
2
3
4
5
6
7
8
9

ENTITY repro1_ent IS
port(	S 	: inout string 	:= "abcdef");
END repro1_ent;

ARCHITECTURE repro1_arch OF repro1_ent IS
	constant C 	: string 	:= "abcdef";
BEGIN
  assert S = C;
END repro1_arch;