gcc/testsuite/gnat.dg/opt82.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O2 -fdump-tree-optimized" }
   3
   4 with Opt82_Pkg; use Opt82_Pkg;
   5
   6 procedure Opt82 (R : access Rec) is
   7 begin
   8   R.A := 'A';
   9   R.B := 'B';
  10   R.C := 'C';
  11   R.D := 'D';
  12 exception
  13   when Storage_Error => R.A := 'E';
  14 end;