1*50e1ad6eSRoger Ferrer Ibanez! RUN: %flang -E %s | FileCheck %s 2*50e1ad6eSRoger Ferrer Ibanez! Macro definitions with unbalanced parentheses should not affect 3*50e1ad6eSRoger Ferrer Ibanez! implicit continuations. 4*50e1ad6eSRoger Ferrer Ibanezsubroutine foo(a, d) 5*50e1ad6eSRoger Ferrer Ibanez implicit none 6*50e1ad6eSRoger Ferrer Ibanez integer :: a 7*50e1ad6eSRoger Ferrer Ibanez integer :: d 8*50e1ad6eSRoger Ferrer Ibanez 9*50e1ad6eSRoger Ferrer Ibanez#define sub(x, y) foo2(x, y) 10*50e1ad6eSRoger Ferrer Ibanez#define bar ) 11*50e1ad6eSRoger Ferrer Ibanez 12*50e1ad6eSRoger Ferrer Ibanez call sub(1, 13*50e1ad6eSRoger Ferrer Ibanez 2) 14*50e1ad6eSRoger Ferrer Ibanezend subroutine foo 15*50e1ad6eSRoger Ferrer Ibanez 16*50e1ad6eSRoger Ferrer Ibanez!CHECK: call foo2(1, 2) 17*50e1ad6eSRoger Ferrer Ibanez!CHECK: end subroutine foo 18