| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | arith.h | 35 int gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op);
|
| H A D | arith.cc | 1060 gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_compare_expr() function
1181 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) == 0); in gfc_arith_eq()
1197 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) != 0); in gfc_arith_ne()
1211 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GT) > 0); in gfc_arith_gt()
1225 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GE) >= 0); in gfc_arith_ge()
1239 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LT) < 0); in gfc_arith_lt()
1253 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LE) <= 0); in gfc_arith_le()
|
| H A D | resolve.cc | 8511 && gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8520 && gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8526 retval = (gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8529 retval = (gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8535 if (gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8538 else if (gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8840 && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0) in resolve_select()
8928 && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0) in resolve_select()
|
| H A D | simplify.cc | 5627 if (gfc_compare_expr (a, value, INTRINSIC_EQ) == 0) in simplify_findloc_to_scalar()
5697 if (ma && gfc_compare_expr (a, value, INTRINSIC_EQ) == 0) in simplify_findloc_nodim()
5829 if (*src && gfc_compare_expr (*src, value, INTRINSIC_EQ) == 0) in simplify_findloc_to_array()
|
| H A D | ChangeLog-2007 | 367 * arith.h (gfc_compare_expr): Add operator argument, needed
372 (gfc_compare_expr): Use compare_real.
375 gfc_arith_le): Pass operator to gfc_compare_expr.
377 to gfc_compare_expr.
|
| H A D | ChangeLog | 171 * arith.cc (gfc_compare_expr): Handle equality comparison of constant
|
| H A D | openmp.cc | 277 if (gfc_compare_expr (omp_udr->ts.u.cl->length, in gfc_find_omp_udr()
4249 if (gfc_compare_expr (omp_udr->ts.u.cl->length, in gfc_omp_udr_find()
|
| H A D | ChangeLog-2004 | 1297 gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real,
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | arith.h | 35 int gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op);
|
| H A D | arith.c | 1061 gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_compare_expr() function
1177 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) == 0); in gfc_arith_eq()
1193 : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) != 0); in gfc_arith_ne()
1207 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GT) > 0); in gfc_arith_gt()
1221 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GE) >= 0); in gfc_arith_ge()
1235 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LT) < 0); in gfc_arith_lt()
1249 result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LE) <= 0); in gfc_arith_le()
|
| H A D | resolve.c | 8374 && gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8383 && gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8389 retval = (gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8392 retval = (gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8398 if (gfc_compare_expr (op1->high, op2->low, INTRINSIC_LT) < 0) in compare_cases()
8401 else if (gfc_compare_expr (op1->low, op2->high, INTRINSIC_GT) > 0) in compare_cases()
8703 && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0) in resolve_select()
8790 && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0) in resolve_select()
|
| H A D | simplify.c | 5496 if (gfc_compare_expr (a, value, INTRINSIC_EQ) == 0) in simplify_findloc_to_scalar()
5566 if (ma && gfc_compare_expr (a, value, INTRINSIC_EQ) == 0) in simplify_findloc_nodim()
5698 if (*src && gfc_compare_expr (*src, value, INTRINSIC_EQ) == 0) in simplify_findloc_to_array()
|
| H A D | openmp.c | 208 if (gfc_compare_expr (omp_udr->ts.u.cl->length, in gfc_find_omp_udr()
2956 if (gfc_compare_expr (omp_udr->ts.u.cl->length, in gfc_omp_udr_find()
|