Subversion Repositories openrisc

! { dg-do run }
! PR42742 Handle very large format strings correctly
! Test derived from example developed by Manfred Schwarb.
      character(12) bufarr(74)
      character(74*13+30) fmtstr,fmtstr2
      character(1) delim
      integer i,j,dat(5),pindx, loopcounter
      character(983) big_string ! any less and this test fails.
 
      do i=1,74
        write(bufarr(i),'(i12)') i
      enddo
 
      delim=" "
      dat(1)=2009
      dat(2)=10
      dat(3)=31
      dat(4)=3
      dat(5)=0
      fmtstr="(i2,i6,4(a1,i2.2)"
      open(10, status="scratch")
      do j=1,74
        fmtstr=fmtstr(1:len_trim(fmtstr))//",a1,a12"
        fmtstr2=fmtstr(1:len_trim(fmtstr))//")"
c        write(0,*) "interation ",j,": ",len_trim(fmtstr2)
        do i=1,10
          write(10,fmtstr2)
     &           i,dat(1),"-",dat(2),"-",dat(3),
     &           delim,dat(4),":",dat(5),
     &           (delim,bufarr(pindx),pindx=1,j)
        enddo
        loopcounter = j
      enddo
      close(10)
      if (loopcounter /= 74) call abort
      end