comparison gcc/testsuite/gfortran.dg/pr49103.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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)
19 end