Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
zero_length_1.f90
blob: 996f98606cb696ee845e86790bdb754ecd08d966 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR libfortran
/
31210
program test
implicit
none
integer
::
l
=
0
character
(
len
=
20
)
::
s
write
(
s
,
'(A,I1)'
)
foo
(),
0
if
(
trim
(
s
)
/=
"0"
)
STOP
1
contains
function
foo
()
character
(
len
=
l
)
::
foo
foo
=
"XXXX"
end
function
end
program test