11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: res = IFLM 3089adc33Speter klausler! CHECK: (666) 4089adc33Speter klausler! CHECK-NOT: res = ((666)+111) 564ab3302SCarolineConcatto* FLM call with '(' on next line (not a continuation) 664ab3302SCarolineConcatto integer function IFLM(x) 764ab3302SCarolineConcatto integer :: x 864ab3302SCarolineConcatto IFLM = x 964ab3302SCarolineConcatto end function IFLM 1064ab3302SCarolineConcatto program main 1164ab3302SCarolineConcatto#define IFLM(x) ((x)+111) 1264ab3302SCarolineConcatto integer :: res 1364ab3302SCarolineConcatto res = IFLM 1464ab3302SCarolineConcatto(666) 1564ab3302SCarolineConcatto if (res .eq. 777) then 16089adc33Speter klausler print *, 'pp039.F yes' 1764ab3302SCarolineConcatto else 18089adc33Speter klausler print *, 'pp039.F no: ', res 1964ab3302SCarolineConcatto end if 2064ab3302SCarolineConcatto end 21