gcc/testsuite/gnat.dg/controlled4.ads

with controlled3; use controlled3;
package controlled4 is
   procedure Test_Suite;
end;