| Faris Rehman | 1c8f199 | 2021-01-25 12:07:17 | [diff] [blame] | 1 | ! RUN: %flang -E %s 2>&1 | FileCheck %s |
| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame] | 2 | ! CHECK: res=((666)+111) |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 3 | * FLM call split between name and ( and in argument |
| 4 | integer function IFLM(x) | ||||
| 5 | integer :: x | ||||
| 6 | IFLM = x | ||||
| 7 | end function IFLM | ||||
| 8 | program main | ||||
| 9 | #define IFLM(x) ((x)+111) | ||||
| 10 | integer :: res | ||||
| 11 | res = IFLM | ||||
| 12 | +(66 | ||||
| 13 | +6) | ||||
| 14 | if (res .eq. 777) then | ||||
| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame] | 15 | print *, 'pp016.F yes' |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 16 | else |
| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame] | 17 | print *, 'pp016.F no: ', res |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 18 | end if |
| 19 | end | ||||