flang/test/Preprocessing/implicit-contin4.F90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! 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