blob: b40dbafb37dd87e22bb313952d850f9dd9d1dc8e [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-gnatp -O2" }
with Raise_Ce;
procedure Handle_And_Return is
begin
begin
Raise_CE;
return;
exception
when others => null;
end;
begin
Raise_CE;
return;
exception
when others => null;
end;
end;