flang/test/Preprocessing/implicit-contin4.F90

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