blob: e331dfdc09eeac60fd3fa951308f5784ad54a3d9 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-g" }
procedure Addr5 (Len : Integer) is
S : aliased String (1 .. Len) := (others => ' ');
C : Character;
for C'Address use S'Address;
begin
null;
end;