gcc/testsuite/gfortran.dg/Wall.f90

   1 ! { dg-do run }
   2 ! { dg-options -Wall }
   3 ! PR 30437  Test for Wall
   4 program main
   5   character (len=40) &
   6   c
   7   c = "Hello, &
   8          world!" ! { dg-warning "Missing '&' in continued character constant" }
   9   if (c.ne.&
  10                                    "Hello, world!")&
  11                                call abort();end program main
  12