Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/namelist_88.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
130:e108057fa461 | 132:d34655255c78 |
---|---|
20 | 20 |
21 read(unit=23,nml=tab_nml) | 21 read(unit=23,nml=tab_nml) |
22 | 22 |
23 close(unit=23) | 23 close(unit=23) |
24 | 24 |
25 if (tab(1).ne.'in1') call abort | 25 if (tab(1).ne.'in1') STOP 1 |
26 if (tab(2).ne.'in2') call abort | 26 if (tab(2).ne.'in2') STOP 2 |
27 if (any(tab(3:tabsz).ne.'invalid')) call abort | 27 if (any(tab(3:tabsz).ne.'invalid')) STOP 3 |
28 | 28 |
29 end program namelist | 29 end program namelist |