1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK: res = ((111)+666) 364ab3302SCarolineConcatto* ## token pasting works in FLM 464ab3302SCarolineConcatto integer function IFLM(x) 564ab3302SCarolineConcatto integer :: x 664ab3302SCarolineConcatto IFLM = x 764ab3302SCarolineConcatto end function IFLM 864ab3302SCarolineConcatto program main 964ab3302SCarolineConcatto integer, parameter :: KWM = 668, KWM21 = 111, KWM1 = 669 1064ab3302SCarolineConcatto#define KWM1 111 1164ab3302SCarolineConcatto#define KWM2 33 1264ab3302SCarolineConcatto#define KWM KWM2 1364ab3302SCarolineConcatto#define IFLM(x) ((x##1)+6##6##6) 1464ab3302SCarolineConcatto integer :: res 1564ab3302SCarolineConcatto res = IFLM(KWM) 1664ab3302SCarolineConcatto if (res .eq. 777) then 17089adc33Speter klausler print *, 'pp026.F yes' 1864ab3302SCarolineConcatto else 19089adc33Speter klausler print *, 'pp026.F no: ', res 2064ab3302SCarolineConcatto end if 2164ab3302SCarolineConcatto end 22