1-- { dg-do compile }
2
3procedure 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
14begin
15   null;
16end;
17