Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr49103.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
rev | line source |
---|---|
111 | 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 |