1! { dg-do compile }
2! { dg-additional-options "-dH" }
3! PR 65996.f90. before patch compiler aborted on this program.
4program 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
13endprogram foo
14