1-- { dg-do compile }
2
3package body Addr8 is
4
5   procedure Proc (B: Bytes) is
6      O: Integer;
7      for O'Address use B'Address;
8   begin
9      null;
10   end;
11
12end Addr8;
13