HomeSort by: relevance | last modified time | path
    Searched defs:gfc_compare_expr (Results 1 - 2 of 2) sorted by relevancy

  /src/external/gpl3/gcc/dist/gcc/fortran/
arith.cc 1127 gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) function
1156 gfc_internal_error ("gfc_compare_expr(): Bad basic type");
1251 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) == 0);
1270 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) != 0);
1287 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GT) > 0);
1304 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GE) >= 0);
1321 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LT) < 0);
1338 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LE) <= 0);
  /src/external/gpl3/gcc.old/dist/gcc/fortran/
arith.cc 1060 gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) function
1089 gfc_internal_error ("gfc_compare_expr(): Bad basic type");
1181 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) == 0);
1197 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) != 0);
1211 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GT) > 0);
1225 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GE) >= 0);
1239 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LT) < 0);
1253 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LE) <= 0);

Completed in 31 milliseconds