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