18 lines · plain
1! RUN: %flang -E %s | FileCheck %s2! Macro definitions with unbalanced parentheses should not affect3! implicit continuations.4subroutine foo(a, d)5 implicit none6 integer :: a7 integer :: d8 9#define sub(x, y) foo2(x, y)10#define bar )11 12 call sub(1,13 2)14end subroutine foo15 16!CHECK: call foo2(1, 2)17!CHECK: end subroutine foo18