Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr20086.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
3 ! 3 !
4 ! PR 20086 - Missing characters in output with hollerith strings 4 ! PR 20086 - Missing characters in output with hollerith strings
5 implicit none 5 implicit none
6 character*80 line 6 character*80 line
7 write(line,2070) 7 write(line,2070)
8 if (line.ne.' stiffness reformed for this high step')call abort 8 if (line.ne.' stiffness reformed for this high step')STOP 1
9 write(line,2090) 9 write(line,2090)
10 if (line.ne.' stiffness reformed for hello hello')call abort 10 if (line.ne.' stiffness reformed for hello hello')STOP 2
11 stop 11 stop
12 12
13 2070 format (2x,37hstiffness reformed for this high step) 13 2070 format (2x,37hstiffness reformed for this high step)
14 2090 format (2x,34hstiffness reformed for hello hello) 14 2090 format (2x,34hstiffness reformed for hello hello)
15 15