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