gcc/testsuite/gfortran.dg/continuation_12.f90

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