blob: 754a3bc57ec982bb984ec381fe6ef0b0d9f0f1b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|