blob: 15d51e30dc588f0b891f14be1fa66013a04026a4 [file] [log] [blame]
-- { dg-do run }
with addr2_p; use addr2_p;
procedure addr2 is
begin
Process (B1);
Process (Blk => B1);
Process (B2);
Process (Blk => B2);
end;