1--  { dg-do run }
2
3with addr2_p; use addr2_p;
4procedure addr2 is
5begin
6   Process (B1);
7   Process (Blk => B1);
8   Process (B2);
9   Process (Blk => B2);
10end;
11