Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/gfortran.dg/namelist_use.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/namelist_use.f90 Thu Oct 25 08:08:40 2018 +0900 +++ b/gcc/testsuite/gfortran.dg/namelist_use.f90 Thu Oct 25 10:21:07 2018 +0900 @@ -22,10 +22,10 @@ write (10,*) "&NML2 aa='pqrs' ii=2 rrr=3.5 /" rewind (10) read (10,nml=nml1,iostat=i) - if ((i.ne.0).or.(aa.ne."lmno").or.(ii.ne.1).or.(rr.ne.2.5)) call abort () + if ((i.ne.0).or.(aa.ne."lmno").or.(ii.ne.1).or.(rr.ne.2.5)) STOP 1 read (10,nml=nml2,iostat=i) - if ((i.ne.0).or.(aa.ne."pqrs").or.(ii.ne.2).or.(rrr.ne.3.5)) call abort () + if ((i.ne.0).or.(aa.ne."pqrs").or.(ii.ne.2).or.(rrr.ne.3.5)) STOP 2 close (10) end program namelist_use