gcc/testsuite/gfortran.dg/Wno-all.f90

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