gcc/testsuite/gnat.dg/array25_pkg.adb

   1 package body Array25_Pkg is
   2
   3    procedure Get_Inner (A : out Arr1) is
   4    begin
   5       null;
   6    end;
   7
   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;
  14
  15 end Array25_Pkg;