1! PR fortran/49103
2! { dg-do run }
3  integer :: a(2), b(2), i, j
4  open (10, status='scratch')
5  do j = 1, 2
6    a = (/ 0, 0 /)
7    b = (/ 1, 1 /)
8    do i = 1, 2
9      write (10, *) a
10      write (10, *) b
11    end do
12  end do
13  rewind (10)
14  do i = 0, 7
15    read (10, *) a
16    if (any (a .ne. mod (i, 2))) call abort
17  end do
18  close (10)
19end
20