1--  { dg-do run }
2
3with Limited1_Outer; use Limited1_Outer;
4
5procedure Limited1 is
6   X : Outer_Type := Make_Outer;
7begin
8   null;
9end;
10