Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array18.adb
blob: 54c7744cca9208fffa5bfe25dc72dea3e9cd9cad [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Array18_Pkg
;
use
Array18_Pkg
;
procedure
Array18
is
A
:
String
(
1
..
1
);
begin
A
:=
F
;
end
;