gcc/testsuite/gnat.dg/global2.adb

   1 --  { dg-do compile }
   2
   3 package body Global2 is
   4    procedure Change_X is
   5    begin
   6       X.all := 1;
   7    end Change_X;
   8    procedure Change2_X is
   9    begin
  10       X.all := 1;
  11    end Change2_X;
  12 end Global2;