25 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2#define e eeeee3module m4 interface operator(.e.)5 module procedure ir,rr6 end interface operator(.e.)7contains8 function ir(k1,k2)9 intent(in)::k1,k210 ir=k1+k211 end function ir12 function rr(k1,k2)13 real,intent(in)::k1,k214 rr=k1+k215 end function rr16end module m17program main18 use m19!CHECK: IF (real((ir(1_4,5_4)),kind=4)/=6._4) ERROR STOP 1_420!CHECK: IF ((rr(1._4,5.e-1_4))/=1.5_4) ERROR STOP 2_421 if((1.e.5)/=6.e0) error stop 122 if((1..e..5)/=1.5) error stop 223 print *,'pass'24end program main25