Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/do_iterator_2.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
16 character lit*1, line*100 16 character lit*1, line*100
17 lit(i) = line(i:i) 17 lit(i) = line(i:i)
18 i = 1 18 i = 1
19 n = 5 19 n = 5
20 line = 'PZ0R1' 20 line = 'PZ0R1'
21 if (internal (1)) call abort () 21 if (internal (1)) STOP 1
22 if (m .ne. 4) call abort () 22 if (m .ne. 4) STOP 2
23 contains 23 contains
24 logical function internal (j) 24 logical function internal (j)
25 intent(in) j 25 intent(in) j
26 do i = j, n 26 do i = j, n
27 k = index ('RE', lit (i)) 27 k = index ('RE', lit (i))