Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
addr5.adb
blob: e331dfdc09eeac60fd3fa951308f5784ad54a3d9 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-g"
}
procedure
Addr5
(
Len
:
Integer
)
is
S
:
aliased
String
(
1
..
Len
)
:=
(
others
=>
' '
);
C
:
Character
;
for
C
'Address use S'
Address
;
begin
null
;
end
;