1-- { dg-do run } 2-- { dg-options "-gnatp -O2" } 3 4with Raise_Ce; 5 6procedure Handle_And_Return is 7begin 8 begin 9 Raise_CE; 10 return; 11 exception 12 when others => null; 13 end; 14 15 begin 16 Raise_CE; 17 return; 18 exception 19 when others => null; 20 end; 21end; 22