1* FLM call with '(' on next line (not a continuation) 2 integer function IFLM(x) 3 integer :: x 4 IFLM = x 5 end function IFLM 6 program main 7#define IFLM(x) ((x)+111) 8 integer :: res 9 res = IFLM 10(666) 11 if (res .eq. 777) then 12 print *, 'pp039.F pass' 13 else 14 print *, 'pp039.F FAIL: ', res 15 end if 16 end 17