------- 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