1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
! { 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
|
