Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
addr4.adb
blob: 8bb3f2c97233df35cd5ae58d94f6084ad9ca9d91 [
file
] [
log
] [
blame
]
--
{
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;