From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 16 Feb 2006 08:48:59 +0000 (+0100)
Subject: Remove test which is invalid Ada 2005.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=07b8ceeab7684f244330b3c2881d1e38fe4403b1;p=gcc.git

Remove test which is invalid Ada 2005.

From-SVN: r111132
---

diff --git a/gcc/testsuite/ada/acats/tests/cb/cb41004.a b/gcc/testsuite/ada/acats/tests/cb/cb41004.a
index 09dfa9bfabc..5a7b704949f 100644
--- a/gcc/testsuite/ada/acats/tests/cb/cb41004.a
+++ b/gcc/testsuite/ada/acats/tests/cb/cb41004.a
@@ -96,23 +96,6 @@ begin
       end if;
 
 
-      -- Verify that Raise_Exception has no effect in the case of Null_Id.
-      begin
-         Ada.Exceptions.Raise_Exception(A_Null_Exception_Id);
-         TC_Flag := True;
-      exception
-         when others =>
-            Report.Failed("Exception raised by procedure Raise_Exception " &
-                          "when called with a Null_Id input parameter");
-      end;
-
-      if not TC_Flag then
-         Report.Failed("Incorrect processing following the call to " &
-                       "Raise_Exception with a Null_Id input parameter");
-      end if;
-      TC_Flag := False;
-
-
       -- Verify that Reraise_Occurrence has no effect in the case of
       -- Null_Occurrence.
       begin