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