comparison gcc/testsuite/gfortran.dg/pr49103.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
11 end do 11 end do
12 end do 12 end do
13 rewind (10) 13 rewind (10)
14 do i = 0, 7 14 do i = 0, 7
15 read (10, *) a 15 read (10, *) a
16 if (any (a .ne. mod (i, 2))) call abort 16 if (any (a .ne. mod (i, 2))) STOP 1
17 end do 17 end do
18 close (10) 18 close (10)
19 end 19 end