URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [pr20086.f90] - Rev 839
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log