gcc/testsuite/gfortran.dg/pr20086.f90

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