summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/volatile2.ads
blob: 0f7ed071c2bbe17d8ff40244ede5c6c85e950782 (plain)
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;