2 ! PR53029 Missed optimization, this test case took several seconds to
8 character(80) :: result
9 integer i
,j
,intvalues(m
)
14 write(value
,'(i3,a5)') j
," 5 69"
15 read(value
,*,end=20) intvalues
16 20 write(result
,*) (intvalues(i
),i
=2,4)
17 if (result
.ne
.(' 5 69 33')) STOP 1
19 if ((finish
-start
).gt
. 0.5) STOP 2
21 end program internalread