1* function-like macros 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(666) 10 if (res .eq. 777) then 11 print *, 'pp003.F pass' 12 else 13 print *, 'pp003.F FAIL: ', res 14 end if 15 end 16