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