1! FLM call name split with 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 = IFL& 10&M(666) 11 if (res .eq. 777) then 12 print *, 'pp109.F90 pass' 13 else 14 print *, 'pp109.F90 FAIL: ', res 15 end if 16 end 17