2 -- { dg-options "-fdump-tree-original" }
4 package body Renaming6
is
6 function Get_I
return Integer is
11 procedure Set_I
(Val
: Integer) is
16 function Get_J
return Integer is
21 procedure Set_J
(Val
: Integer) is
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" } }