18 lines
333 B
Fortran
18 lines
333 B
Fortran
|
! 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
|