blob: 674261e3cf724639d7dbf4651750202e820554c2 [file] [log] [blame]
! { 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