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