| ! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s |
| ! Continuation between repeated quotation marks |
| subroutine test |
| !CHECK: portability: Character literal continuation line should have been preceded by '&' |
| print *, 'needs an '& |
| 'ampersand''' |
| !CHECK: portability: Character literal continuation line should have been preceded by '&' |
| print *, 'also needs an '& |
| 'ampersand''' |
| !CHECK-NOT: portability: Character literal continuation line should have been preceded by '&' |
| print *, 'has an '& |
| &'ampersand''' |
| end |