summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr20086.f90
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