| ! RUN: %flang -E %s | FileCheck %s | |
| ! Macro definitions with unbalanced parentheses should not affect | |
| ! implicit continuations. | |
| subroutine foo(a, d) | |
| implicit none | |
| integer :: a | |
| integer :: d | |
| #define sub(x, y) foo2(x, y) | |
| #define bar ) | |
| call sub(1, | |
| 2) | |
| end subroutine foo | |
| !CHECK: call foo2(1, 2) | |
| !CHECK: end subroutine foo |