Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
pr89324.f90
blob: 014b655d5edae26689ff57eda808e2a0f6146d5b [
file
] [
log
] [
blame
]
module
a
contains
pure
function
myotherlen
()
myotherlen
=
99
end
subroutine b
characterx
block
character
(
myotherlen
())
c
c
=
"abc"
x
=
c
end
block
end
end