gcc/testsuite/gnat.dg/controlled2.ads

with controlled1; use controlled1;
package controlled2 is
   procedure Test_Suite;
end controlled2;