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