1-- { dg-do compile }
2
3with Volatile5_Pkg; use Volatile5_Pkg;
4
5procedure Volatile5 is
6
7   A : Rec;
8
9   procedure Proc is
10   begin
11      A := F;
12   end;
13
14begin
15   Proc;
16end;
17