1! FLM call split between name and (, no leading & 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 *, 'pp116.F90 pass' 13 else 14 print *, 'pp116.F90 FAIL: ', res 15 end if 16 end 17