gcc/testsuite/gfortran.dg/pr20086.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR 20086 - Missing characters in output with hollerith strings
   5       implicit none
   6       character*80 line
   7       write(line,2070)
   8       if (line.ne.'  stiffness reformed for this high step')call abort
   9       write(line,2090)
  10       if (line.ne.'  stiffness reformed for hello hello')call abort
  11       stop
  12
  13  2070  format (2x,37hstiffness reformed for this high step)
  14  2090  format (2x,34hstiffness reformed for hello hello)
  15
  16       end