OSDN Git Service

2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / 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