GFortran FMTIO bug

program IntlWrite
      implicit none
      character(len=120) str
      integer i,j
      real x(10),t1,t2
      data x/7.569e-1,5.556e-1,-1.640e-1,9.362e-1,1.057e-1,-2.385e-1, &
           -9.541e-1,1.449e-1,-7.885e-1,-1.108e-1/

      call cpu_time(t1)
      do i=1,10
         x(i) = (2*x(i)-1)*1e-4
      end do

      do j=1,1000000
         write (str,'(1P,10E12.3)') x
         if (mod(j,200000).eq.0) write (*,10) j, str
      end do
      call cpu_time(t2)
      print *,'Elapsed time: ',t2-t1
      !pause
   10 format(1x,I7,2x,A)

      end