------- Comment #3 from dominiq at lps dot ens dot fr 2008-12-16 16:03 ------- If the subroutine
subroutine xmain()
call foo(func("_"//bar()))
end subroutine xmain
is replaced with
subroutine xmain()
character (len=2) :: zz(2)
zz=func("_"//bar())
call foo(zz)
end subroutine xmain
the code compiles and seems to give a sensible executable.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38538
