summaryrefslogtreecommitdiff
path: root/testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd
diff options
context:
space:
mode:
authorTristan Gingold2013-12-20 06:36:56 +0100
committerTristan Gingold2013-12-20 06:36:56 +0100
commitbd674d4f2b4935a28981e71f0a689cc911a30b8d (patch)
tree29117fc7b150cbbc74359feedf35ecfad3264153 /testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd
parent6c3f709174e8e4d5411f851cedb7d84c38d3b04a (diff)
downloadghdl-bd674d4f2b4935a28981e71f0a689cc911a30b8d.tar.gz
ghdl-bd674d4f2b4935a28981e71f0a689cc911a30b8d.tar.bz2
ghdl-bd674d4f2b4935a28981e71f0a689cc911a30b8d.zip
Changes in the vests testsuite.
Some tests were 'fixed', some disabled. Need a second analysis.
Diffstat (limited to 'testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd')
-rw-r--r--testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd7
1 files changed, 4 insertions, 3 deletions
diff --git a/testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd b/testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd
index e916f79..18bbb83 100644
--- a/testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd
+++ b/testsuite/vests/vhdl-93/billowitch/compliant/tc2874.vhd
@@ -30,9 +30,7 @@
ENTITY c02s01b00x00p06n05i02874ent IS
function "+" (I1:Bit) return bit; --- No_Failure_here
-END c02s01b00x00p06n05i02874ent;
-
-ARCHITECTURE c02s01b00x00p06n05i02874arch OF c02s01b00x00p06n05i02874ent IS
+
function "+" (I1:Bit) return bit is
begin
if (I1 = '1') then
@@ -41,6 +39,9 @@ ARCHITECTURE c02s01b00x00p06n05i02874arch OF c02s01b00x00p06n05i02874ent IS
return '0';
end if;
end;
+END c02s01b00x00p06n05i02874ent;
+
+ARCHITECTURE c02s01b00x00p06n05i02874arch OF c02s01b00x00p06n05i02874ent IS
BEGIN
TESTING: PROCESS
variable k : bit := '0';