1! { dg-do run }
2! PR46705 Spurious "Missing '&' in continued character constant" warning occurs twice
3character(15) :: astring
41 FORMAT (''&
5   ' abcdefg x')
6write(astring, 1)
7if (astring.ne."' abcdefg x") STOP 1
8END
9