gcc/testsuite/gnat.dg/renaming6.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-fdump-tree-original" }
   3
   4 package body Renaming6 is
   5
   6   function Get_I return Integer is
   7   begin
   8     return I;
   9   end;
  10
  11   procedure Set_I (Val : Integer) is
  12   begin
  13     I := Val;
  14   end;
  15
  16   function Get_J return Integer is
  17   begin
  18     return X;
  19   end;
  20
  21   procedure Set_J (Val : Integer) is
  22   begin
  23     X := Val;
  24   end;
  25
  26 end Renaming6;
  27
  28 -- { dg-final { scan-tree-dump-times "atomic_load" 2 "original" } }
  29 -- { dg-final { scan-tree-dump-times "atomic_store" 2 "original" } }
  30 -- { dg-final { scan-tree-dump-not "x" "original" } }