blob: 26b53276dc3d5cfc28faeeee8f0fc13702f6321a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
