PR middle-end/77674
[official-gcc.git] / gcc / testsuite / gfortran.dg / continuation_12.f90
blob171d826cb6c486d7afc8c5fa02d97fb7356f3076
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