Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/warn25.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-options "-gnatwa" } with Ada.Exceptions; procedure Warn25 is CASA_Unavailable : Ada.Exceptions.Exception_Occurrence; use Ada.Exceptions; begin while True loop declare begin if Exception_Identity (CASA_Unavailable) = Null_Id then exit; end if; exception when E : others => Save_Occurrence (Source => E, Target => CASA_Unavailable); end; end loop; if Exception_Identity (CASA_Unavailable) /= Null_Id then Reraise_Occurrence (CASA_Unavailable); end if; end;