1--  { dg-do run }
2
3with Addr12_A;
4
5procedure Addr12 is
6begin
7   Addr12_A.Do_Stuff;
8end;
9