1
2with controlled1; use controlled1;
3package controlled2 is
4   procedure Test_Suite;
5end controlled2;
6