2 ! PR42742 Handle very large format strings correctly
3 ! Test derived from example developed by Manfred Schwarb.
4 character(12) bufarr(74)
5 character(74*13+30) fmtstr,fmtstr2
7 integer i,j,dat(5),pindx, loopcounter
8 character(983) big_string ! any less and this test fails.
11 write(bufarr(i),'(i12)') i
20 fmtstr="(i2,i6,4(a1,i2.2)"
21 open(10, status="scratch")
23 fmtstr=fmtstr(1:len_trim(fmtstr))//",a1,a12"
24 fmtstr2=fmtstr(1:len_trim(fmtstr))//")"
25 c write(0,*) "interation ",j,": ",len_trim(fmtstr2)
28 & i,dat(1),"-",dat(2),"-",dat(3),
29 & delim,dat(4),":",dat(5),
30 & (delim,bufarr(pindx),pindx=1,j)
35 if (loopcounter /= 74) call abort