gcc/testsuite/gnat.dg/pointer_array.adb

   1 -- { dg-do compile }
   2
   3 procedure pointer_array is
   4
   5    type Node;
   6    type Node_Ptr is access Node;
   7    type Node is array (1..10) of Node_Ptr;
   8
   9    procedure Process (N : Node_Ptr) is
  10    begin
  11       null;
  12    end;
  13
  14 begin
  15    null;
  16 end;