gcc/testsuite/gfortran.dg/read_5.f90

   1 ! { dg-do run }
   2 ! PR53029 Missed optimization, this test case took several seconds to
   3       program internalread
   4       implicit none
   5       integer m
   6       parameter(m=1000000)
   7       character value*10
   8       character(80) :: result
   9       integer i,j,intvalues(m)
  10       real :: start, finish
  11       intvalues = 33
  12       call cpu_time(start)
  13       do j=1,100
  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
  18       call cpu_time(finish)
  19       if ((finish-start).gt. 0.5) STOP 2
  20       enddo
  21       end program internalread