2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / volatile10.adb
blob945d562d57056c15ff889cd5e2392b1f30d891c2
1 -- { dg-do compile }
3 with Volatile10_Pkg; use Volatile10_Pkg;
5 procedure Volatile10 is
6 N : Num;
7 begin
8 N := F.N1;
9 N := F.N2;
10 end;