Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr53298.f90
blob: 998f88df926bd0f0727140174f841aae15c2961e [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program test
character
(
len
=
5
)
::
str
(
3
)
str
=
[
"abcde"
,
"12345"
,
"ABCDE"
]
call f
(
str
(:))
contains
subroutine f
(
x
)
character
(
len
=*)
::
x
(:)
write
(*,*)
x
(:)(
1
:)
end
subroutine f
end
program test
!
{
dg
-
output
"abcde12345ABCDE"
}