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