gcc-4.9/gcc/testsuite/gnat.dg/array1.ads


1
2
3
4
5
6
7
8
9

with SYSTEM;
WITH array2; use array2;

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

end array1;