gcc/testsuite/gnat.dg/volatile2.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

with volatile1; use volatile1;

package volatile2 is
   
   type PData_Array is access Data_Array;
   
   type Result_Desc is
      record
         Data : PData_Array;
      end record;
   
   type Result is access Result_Desc;
   
   procedure Copy;

end volatile2;