path: root/gcc/testsuite/gfortran.dg/pr65996.f90

! { dg-do compile }
! { dg-additional-options "-dH" }
! PR 65996.f90. before patch compiler aborted on this program.
program foo
  implicit none
  character(len=16) :: a,b,c
  a="XXX"
  b="&
    &XXX"
  c="XXX &
    & XXX"
  write(0,*) 'a=',a,' b=',b,' c=',c 
endprogram foo