Fix broken MinGW build of gcc.c
[official-gcc.git] / gcc / testsuite / gnat.dg / array25_pkg.adb
blob9bb2fa5b545713d9efd977570703b4198a2b8cfa
1 package body Array25_Pkg is
3 procedure Get_Inner (A : out Arr1) is
4 begin
5 null;
6 end;
8 procedure Get (A : out Arr2) is
9 begin
10 for I in Arr2'Range loop
11 Get_Inner (A (I).Data);
12 end loop;
13 end;
15 end Array25_Pkg;