Searched refs:EXACTP (Results 1 – 2 of 2) sorted by relevance
7 LOGICAL EXACTP local76 EXACTP=.TRUE.89 EXACTP=.FALSE.111 IF(EXACTP)RETURN132 IF(EXACTP)RETURN174 IF(EXACTP)RETURN
3470 #define EXACTP(o) (SG_EXACT_INTP(o) || SG_RATIONALP(o)) in Sg_MinMax() macro3471 int inexact = !EXACTP(arg0); in Sg_MinMax()3487 if (inexact && EXACTP(mi)) { in Sg_MinMax()3494 if (inexact && EXACTP(ma)) { in Sg_MinMax()3508 if (!EXACTP(SG_CAR(args))) inexact = TRUE; in Sg_MinMax()3517 #undef EXACTP in Sg_MinMax()