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