gcc-4.9/gcc/testsuite/gnat.dg/volatile10.adb


1
2
3
4
5
6
7
8
9
10

-- { dg-do compile }

with Volatile10_Pkg; use Volatile10_Pkg;

procedure Volatile10 is
   N : Num;
begin
   N := F.N1;
   N := F.N2;
end;