Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
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