Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr20086.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
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')call abort write(line,2090) if (line.ne.' stiffness reformed for hello hello')call abort stop 2070 format (2x,37hstiffness reformed for this high step) 2090 format (2x,34hstiffness reformed for hello hello) end