1-- { dg-do compile }
2-- { dg-options "-g" }
3
4procedure Addr5 (Len : Integer) is
5  S : aliased String (1 .. Len) := (others => ' ');
6  C : Character;
7  for C'Address use S'Address;
8begin
9  null;
10end;
11