summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/addr4.adb
blob: 8bb3f2c97233df35cd5ae58d94f6084ad9ca9d91 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- { dg-do compile }
-- { dg-options "-g" }

procedure Addr4 is
   function F return String is begin return ""; end F;
   S1 : String renames F;
   subtype ST is String (1 .. S1'Length);
   S2 : ST;
   for S2'Address use S1'Address;
begin
   null;
end;