1! { dg-do run }
2! { dg-options -Wampersand }
3! PR 19101  Test line continuations and spaces.  Note: the missing ampersand
4! before "world" is non standard default behavior.  Use -std=f95, -std=f2003,
5! -pedantic, -Wall, or -Wampersand to catch this error
6! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
7program main
8  character (len=40) &
9  c
10  c = "Hello, &
11         world!" ! { dg-warning "Missing '&' in continued character constant" }
12  if (c.ne.&
13                                   "Hello, world!")&
14                               call abort();end program main
15
16