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