Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/loop_optimization14.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- PR middle-end/55321 -- { dg-do compile } -- { dg-options "-O" } with Loop_Optimization14_Pkg; use Loop_Optimization14_Pkg; package body Loop_Optimization14 is procedure Finalize_Pool (Pool : in out Rec) is Raised : Boolean := False; begin Pool.A := True; while not Pool.B loop begin Proc (Pool.B); exception when others => if not Raised then Raised := True; end if; end; end loop; end; end Loop_Optimization14;