gcc/testsuite/gnat.dg/renaming6.ads

   1 package Renaming6 is
   2
   3   I : Integer;
   4   pragma Atomic (I);
   5
   6   function Get_I return Integer;
   7   procedure Set_I (Val : Integer);
   8
   9   J : Integer renames I;
  10
  11   function Get_J return Integer;
  12   procedure Set_J (Val : Integer);
  13
  14 end Renaming6;