This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
The new loop should be changed into "for (i = 1; i < nargs; i++)"; for MIN or MAX, we generate a series of comparisons; the first comparison is to compare arg[1] with arg[0], not arg[0] with itself.mvar = gfc_create_var (type, "M"); elsecase = build2_v (MODIFY_EXPR, mvar, limit); - for (arg = TREE_CHAIN (arg), i = 0, argexpr = argexpr->next; - arg != NULL_TREE; arg = TREE_CHAIN (arg), i++) + for (i = 0; i < nargs; i++) { tree cond;
Thanks again for your hard work, FX
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |