gcc/testsuite/gnat.dg/array1.ads

with SYSTEM;
WITH array2; use array2;

package array1 is
  
  procedure Foo (R : RIC_TYPE);
  procedure Start_Timer (Q : SYSTEM.ADDRESS);

end array1;