1-- { dg-do compile }
2-- { dg-options "-fdump-tree-original" }
3
4package 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 J;
19  end;
20
21  procedure Set_J (Val : Integer) is
22  begin
23    J := Val;
24  end;
25
26end 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 "j" "original" } }
31