! { dg-do run }
! PR53029 Missed optimization, this test case took several seconds to
      program internalread
      implicit none
      integer m
      parameter(m=1000000)
      character value*10
      character(80) :: result
      integer i,j,intvalues(m)
      real :: start, finish
      intvalues = 33
      call cpu_time(start)
      do j=1,100
        write(value,'(i3,a5)') j," 5 69"
        read(value,*,end=20) intvalues
   20   write(result,*) (intvalues(i),i=2,4)
      if (result.ne.('           5          69          33')) STOP 1
      call cpu_time(finish)
      if ((finish-start).gt. 0.5) STOP 2
      enddo
      end program internalread