| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 1 | ! FLM call with '(' on next line (not a continuation) |
| 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 *, 'pp128.F90 pass' | ||||
| 13 | else | ||||
| 14 | print *, 'pp128.F90 FAIL: ', res | ||||
| 15 | end if | ||||
| 16 | end | ||||