gcc-4.9/gcc/testsuite/gnat.dg/volatile5_pkg.ads


1
2
3
4
5
6
7
8
9
10
11

package Volatile5_Pkg is

   type Rec is record
      I : Integer;
   end record;
   pragma Volatile(Rec);

  function F return Rec;

end Volatile5_Pkg;
--