OSDN Git Service

2007-01-25 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / 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 "Warning: Missing '&' in continued character constant" }
9   if (c.ne.&
10                                    "Hello, world!")&
11                                call abort();end program main
12