21 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: res = IFLM3! CHECK: (666)4! CHECK-NOT: res = ((666)+111)5* FLM call with '(' on next line (not a continuation)6 integer function IFLM(x)7 integer :: x8 IFLM = x9 end function IFLM10 program main11#define IFLM(x) ((x)+111)12 integer :: res13 res = IFLM14(666)15 if (res .eq. 777) then16 print *, 'pp039.F yes'17 else18 print *, 'pp039.F no: ', res19 end if20 end21