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