Remove test which is invalid Ada 2005.

From-SVN: r111132

1 files changed, 0 insertions, 17 deletions

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