11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*6fac3f7bSPeter Klausler! CHECK: res = ((666)+111) 364ab3302SCarolineConcatto! FLM call with closing ')' on next line (not a continuation) 464ab3302SCarolineConcatto integer function IFLM(x) 564ab3302SCarolineConcatto integer :: x 664ab3302SCarolineConcatto IFLM = x 764ab3302SCarolineConcatto end function IFLM 864ab3302SCarolineConcatto program main 964ab3302SCarolineConcatto#define IFLM(x) ((x)+111) 1064ab3302SCarolineConcatto integer :: res 1164ab3302SCarolineConcatto res = IFLM(666 1264ab3302SCarolineConcatto) 1364ab3302SCarolineConcatto if (res .eq. 777) then 14089adc33Speter klausler print *, 'pp127.F90 yes' 1564ab3302SCarolineConcatto else 16089adc33Speter klausler print *, 'pp127.F90 no: ', res 1764ab3302SCarolineConcatto end if 1864ab3302SCarolineConcatto end 19