------- Comment #21 from jv244 at cam dot ac dot uk 2009-06-10 09:25 ------- reduced testcase:
MODULE M1 IMPLICIT NONE CONTAINS SUBROUTINE S1(I) INTEGER :: I,K CHARACTER(LEN=100) :: a,b write(a,'(I0,A)') I,"X" write(b,*) I write(6,FMT='('//TRIM(a)//",a,' ')", ADVANCE="NO") TRIM(b) END SUBROUTINE S1 END MODULE USE M1 CALL S1(3) CALL S1(3) END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40330