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