Mercurial > hg > CbC > CbC_gcc
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 |