1 2 3 4 5 6 7 8 9 10
with Atomic7_Pkg2; use Atomic7_Pkg2; package Atomic7_Pkg1 is I : Integer := Stamp; pragma Atomic (I); J : Integer := Stamp; end Atomic7_Pkg1;