2008-11-20 Jakub Jelinek <jakub@redhat.com>
+ * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Use
+ gfc_index_one_node.
+ (gfc_conv_intrinsic_size): Use gfc_index_{zero,one}_node.
+
PR fortran/38181
* trans-intrinsic.c (gfc_conv_intrinsic_size): Inline 2 argument
size if the second argument is not optional and one argument size
tmp = fold_build2 (MINUS_EXPR, gfc_array_index_type,
gfc_index_one_node, loop.from[0]);
else
- tmp = build_int_cst (gfc_array_index_type, 1);
+ tmp = gfc_index_one_node;
gfc_add_modify (&block, offset, tmp);
else
{
se->expr = NULL_TREE;
- argse.expr = fold_build2 (MINUS_EXPR,
- gfc_array_index_type, argse.expr,
- build_int_cst (gfc_array_index_type, 1));
+ argse.expr = fold_build2 (MINUS_EXPR, gfc_array_index_type,
+ argse.expr, gfc_index_one_node);
}
}
else if (expr->value.function.actual->expr->rank == 1)
{
- argse.expr = build_int_cst (gfc_array_index_type, 0);
+ argse.expr = gfc_index_zero_node;
se->expr = NULL_TREE;
}
else
se->expr = fold_build2 (MINUS_EXPR, gfc_array_index_type,
ubound, lbound);
se->expr = fold_build2 (PLUS_EXPR, gfc_array_index_type, se->expr,
- build_int_cst (gfc_array_index_type, 1));
+ gfc_index_one_node);
se->expr = fold_build2 (MAX_EXPR, gfc_array_index_type, se->expr,
- build_int_cst (gfc_array_index_type, 0));
+ gfc_index_zero_node);
}
type = gfc_typenode_for_spec (&expr->ts);