gcc/testsuite/gnat.dg/bug_elaboration_code.adb

   1 package body Bug_Elaboration_Code is
   2
   3    procedure Increment_I is
   4    begin
   5       I := I + 1;
   6    end Increment_I;
   7
   8 begin
   9    I := 5;
  10    Increment_I;
  11    J := I;
  12 end Bug_Elaboration_Code;