From 936e3917bfdd298dd67b8866e25fae5a1e74317d Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 1 Sep 2014 03:37:01 +0200
Subject: Fix vests test tc43.

---
 testsuite/vests/testsuite.sh                          | 2 +-
 testsuite/vests/vhdl-93/billowitch/compliant/tc43.vhd | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/testsuite/vests/testsuite.sh b/testsuite/vests/testsuite.sh
index 2eb281f..9f95814 100755
--- a/testsuite/vests/testsuite.sh
+++ b/testsuite/vests/testsuite.sh
@@ -214,6 +214,6 @@ delete_lib random
 delete_lib utilities
 
 # Remove io files created by tests
-rm iofile.* *.file fopen*.out
+rm -f iofile.* *.file fopen*.out
 
 echo "Vests tests successful"
diff --git a/testsuite/vests/vhdl-93/billowitch/compliant/tc43.vhd b/testsuite/vests/vhdl-93/billowitch/compliant/tc43.vhd
index a48679e..bd3e9e2 100644
--- a/testsuite/vests/vhdl-93/billowitch/compliant/tc43.vhd
+++ b/testsuite/vests/vhdl-93/billowitch/compliant/tc43.vhd
@@ -32,7 +32,9 @@ ENTITY c04s03b01x01p02n01i00043ent IS
 END c04s03b01x01p02n01i00043ent;
 
 ARCHITECTURE c04s03b01x01p02n01i00043arch OF c04s03b01x01p02n01i00043ent IS
-  constant integer:integer := 1;  -- No_failure_here
+  -- constant integer:integer := 1;  -- No_failure_here
+  -- According to scopes and visibility rules, this test is not correct.
+  constant integer:natural := 1;
 BEGIN
   TESTING: PROCESS
   BEGIN
-- 
cgit