gcc/testsuite/gnat.dg/handle_and_return.adb

   1 -- { dg-do run }
   2 -- { dg-options "-gnatp -O2" }
   3
   4 with Raise_Ce;
   5
   6 procedure Handle_And_Return is
   7 begin
   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;
  21 end;