Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
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