gcc/testsuite/gnat.dg/volatile2.ads

   1 with volatile1; use volatile1;
   2
   3 package volatile2 is
   4
   5    type PData_Array is access Data_Array;
   6
   7    type Result_Desc is
   8       record
   9          Data : PData_Array;
  10       end record;
  11
  12    type Result is access Result_Desc;
  13
  14    procedure Copy;
  15
  16 end volatile2;