[Bug libfortran/40330] [4.4, 4.5 Regression] incorrect IO

[jv244 at cam dot ac dot uk]

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