gcc/testsuite/gnat.dg/atomic7_pkg2.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14

pragma Restrictions (No_Elaboration_Code);

package body Atomic7_Pkg2 is

  T : Natural := 0;
  pragma Atomic (T);

  function Stamp return Natural is
  begin
     T := T + 1;
     return T;
  end;

end Atomic7_Pkg2;