Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/dtio_30.f03 @ 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
51 rewind(10) 51 rewind(10)
52 w = t('p','z') 52 w = t('p','z')
53 read(10, nml) 53 read(10, nml)
54 write(str,*) w 54 write(str,*) w
55 if (str.ne." jr jr jr jr jr jr jr jr jr jr jr jr jr jr kr kr kr jr jr jr jr jr jr jr jr jr jr jr jr jr") & 55 if (str.ne." jr jr jr jr jr jr jr jr jr jr jr jr jr jr kr kr kr jr jr jr jr jr jr jr jr jr jr jr jr jr") &
56 & call abort 56 & STOP 1
57 str = "" 57 str = ""
58 write(str,"(*(DT))") w 58 write(str,"(*(DT))") w
59 if (str.ne."jrjrjrjrjrjrjrjrjrjrjrjrjrjrkrkrkrjrjrjrjrjrjrjrjrjrjrjrjrjr") call abort 59 if (str.ne."jrjrjrjrjrjrjrjrjrjrjrjrjrjrkrkrkrjrjrjrjrjrjrjrjrjrjrjrjrjr") STOP 2
60 end program p 60 end program p