Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr19467.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 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
12 open (10, status = "scratch") 12 open (10, status = "scratch")
13 write (10, *) "&A ch = 'aa' , 'bb' /" 13 write (10, *) "&A ch = 'aa' , 'bb' /"
14 rewind (10) 14 rewind (10)
15 READ (10,nml=a, iostat = ier) 15 READ (10,nml=a, iostat = ier)
16 close (10) 16 close (10)
17 if ((ier /= 0) .or. (any (ch /= dh))) call abort () 17 if ((ier /= 0) .or. (any (ch /= dh))) STOP 1
18 end program pr19467 18 end program pr19467