gcc/testsuite/gfortran.dg/pr65996.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-dH" }
   3 ! PR 65996.f90. before patch compiler aborted on this program.
   4 program foo
   5   implicit none
   6   character(len=16) :: a,b,c
   7   a="XXX"
   8   b="&
   9     &XXX"
  10   c="XXX &
  11     & XXX"
  12   write(0,*) 'a=',a,' b=',b,' c=',c
  13 endprogram foo