| ! { dg-do run } | |
| ! { dg-options -Wampersand } | |
| ! PR 19101 Test line continuations and spaces. Note: the missing ampersand | |
| ! before "world" is non standard default behavior. Use -std=f95, -std=f2003, | |
| ! -pedantic, -Wall, or -Wampersand to catch this error | |
| ! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>. | |
| program main | |
| character (len=40) & | |
| c | |
| c = "Hello, & | |
| world!" ! { dg-warning "Missing '&' in continued character constant" } | |
| if (c.ne.& | |
| "Hello, world!")& | |
| STOP 1;end program main | |