summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/volatile5.adb
blob: 24527a50004a0b7836bafd34aeb11e75067f953d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- { dg-do compile }

with Volatile5_Pkg; use Volatile5_Pkg;

procedure Volatile5 is

   A : Rec;

   procedure Proc is
   begin
      A := F;
   end;

begin
   Proc;
end;