1* FLM call split between name and (, clipped
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* 'comment' is in column 73
10*        1         2         3         4         5         6         7
11*234567890123456789012345678901234567890123456789012345678901234567890123
12      res = IFLM                                                        comment
13     +(666)
14      if (res .eq. 777) then
15        print *, 'pp015.F pass'
16      else
17        print *, 'pp015.F FAIL: ', res
18      end if
19      end
20