gcc/testsuite/gnat.dg/addr5.adb

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