Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr20086.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 source
! { dg-do run } ! { dg-options "-std=legacy" } ! ! PR 20086 - Missing characters in output with hollerith strings implicit none character*80 line write(line,2070) if (line.ne.' stiffness reformed for this high step')STOP 1 write(line,2090) if (line.ne.' stiffness reformed for hello hello')STOP 2 stop 2070 format (2x,37hstiffness reformed for this high step) 2090 format (2x,34hstiffness reformed for hello hello) end