summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/addr2.adb
blob: 15d51e30dc588f0b891f14be1fa66013a04026a4 (plain)
1
2
3
4
5
6
7
8
9
10
--  { dg-do run }

with addr2_p; use addr2_p;
procedure addr2 is
begin
   Process (B1);
   Process (Blk => B1);
   Process (B2);
   Process (Blk => B2);
end;