1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2#define e eeeee 3module m 4 interface operator(.e.) 5 module procedure ir,rr 6 end interface operator(.e.) 7contains 8 function ir(k1,k2) 9 intent(in)::k1,k2 10 ir=k1+k2 11 end function ir 12 function rr(k1,k2) 13 real,intent(in)::k1,k2 14 rr=k1+k2 15 end function rr 16end module m 17program main 18 use m 19!CHECK: IF (real((ir(1_4,5_4)),kind=4)/=6._4) ERROR STOP 1_4 20!CHECK: IF ((rr(1._4,5.e-1_4))/=1.5_4) ERROR STOP 2_4 21 if((1.e.5)/=6.e0) error stop 1 22 if((1..e..5)/=1.5) error stop 2 23 print *,'pass' 24end program main 25