Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/read_repeat.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
14 rewind(10) 14 rewind(10)
15 15
16 read(10,*) (iarr(i), i=1,7) 16 read(10,*) (iarr(i), i=1,7)
17 read(10,*) ia, ib 17 read(10,*) ia, ib
18 18
19 if (any(iarr(1:2).ne.1)) call abort 19 if (any(iarr(1:2).ne.1)) STOP 1
20 if (any(iarr(3:5).ne.2)) call abort 20 if (any(iarr(3:5).ne.2)) STOP 2
21 if (any(iarr(6:7).ne.0)) call abort 21 if (any(iarr(6:7).ne.0)) STOP 3
22 if (ia .ne. 12 .or. ib .ne. 13) call abort 22 if (ia .ne. 12 .or. ib .ne. 13) STOP 4
23 23
24 close(10) 24 close(10)
25 end program rread 25 end program rread