[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / volatile10.adb

-- { dg-do compile }\r
\r
with Volatile10_Pkg; use Volatile10_Pkg;\r
\r
procedure Volatile10 is\r
   N : Num;\r
begin\r
   N := F.N1;\r
   N := F.N2;\r
end;\r