1! { dg-do run } 2! PR34676 IO error delayed 3! Test case from PR modified by <jvdelisle@gcc.gnu.org> 4implicit none 5integer::i,badness 6character::c 7open(unit=10,status="scratch") 8write(10,'(a)') '1' 9write(10,'(a)') '2' 10write(10,'(a)') '3' 11rewind(10) 12do i=1,10 13 read(10,*,iostat=badness) 14 if (badness/=0) exit 15enddo 16if (i /= 4) STOP 1 17end 18