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