| ! { 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 |