blob: 9105c22f77fb496c78b22d37214da1a759aac4c9 [file] [log] [blame]
-- { dg-do compile }
package body Addr8 is
procedure Proc (B: Bytes) is
O: Integer;
for O'Address use B'Address;
begin
null;
end;
end Addr8;