From 07b8ceeab7684f244330b3c2881d1e38fe4403b1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 16 Feb 2006 09:48:59 +0100 Subject: [PATCH] Remove test which is invalid Ada 2005. From-SVN: r111132 --- gcc/testsuite/ada/acats/tests/cb/cb41004.a | 17 ----------------- 1 file changed, 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 -- 2.30.2