Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr20086.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +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