FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove test which is invalid Ada 2005.

Browse source 
From-SVN: r111132
This commit is contained in:
Arnaud Charlet 2006-02-16 09:48:59 +01:00
parent 83d38ece09
commit 07b8ceeab7
1 changed files with 0 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gcc/testsuite/ada/acats/tests/cb/cb41004.a
View file

@ -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