+2007-12-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/34411
+ * gfortran.dg/error_recovery_5.f90: New.
+ * gfortran.dg/optional_dim_2.f90: Fix test, not related to this PR.
+
2007-12-10 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/34371
--- /dev/null
+! { dg-do run }
+! PR34411 hang-up during read of non-expected input
+! Test case derived from that given in PR
+! Prior to patch, the do loop was infinite, limits set in this one
+program pr34411
+ real :: x,y
+ ii = 0
+ iostat = 0
+ x = 0.0; y= 0.0
+ open (10, status="scratch")
+ write (10, '(a)')" 289 329.142 214.107 12.313 12.050 11.913 11.868"
+ write (10, '(a)')" 2038.497 99.99 0.00 0.019 0.021 0.025 0.034"
+ write (10, '(a)')""
+ write (10, '(a)')" 413 360.334 245.261 12.375 11.910 11.469 11.086"
+ write (10, '(a)')" 2596.395 99.99 0.00 0.019 0.017 0.016 0.015"
+ write (10, '(a)')""
+ write (10, '(a)')" 655 332.704 317.964 12.523 12.212 11.998 11.892"
+ write (10, '(a)')" 1627.586 99.99 0.00 0.005 0.005 0.006 0.007"
+ write (10, '(a)')""
+ write (10, '(a)')" 360 379.769 231.226 12.709 12.422 12.195 11.941"
+ write (10, '(a)')" 2561.539 99.99 0.00 0.042 0.043 0.050 0.055"
+ rewind 10
+ do i = 1,100
+ read(10,'(T7,2F9.3)', iostat=ii, end=666) x,y
+ end do
+666 continue
+ if (i /= 12) call abort
+ if (x /= 379.76901 .and. y /= 231.22600) call abort
+ close(10)
+end program pr34411
lotto = eoshift((/.true.,.true.,.true.,.true./),1,boundary=bound,dim=dimmy)
lotto = eoshift(lotto,1,dim=dimmy)
write(testbuf,*) lotto
- if (trim(testbuf).ne." T T F F") print *, testbuf
+ if (trim(testbuf).ne." T T F F") call abort
end subroutine
end program test
\ No newline at end of file