URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr20086.f90] - Rev 302
Compare with Previous | Blame | View Log
! { 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