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 *, 'pp103.F90 pass'
12 else
13 print *, 'pp103.F90 FAIL: ', res
14 end if
15 end
16