------- Comment #5 from kargl at gcc dot gnu dot org 2006-07-20 04:37 ------- (In reply to comment #4) > My gfortran skills are not what they used to be,
You're always welcomed to spend some quality time with the gfortran source code :-) > but I believe this is the fix: > > Index: trans-stmt.c > =================================================================== > --- trans-stmt.c (revision 115467) > +++ trans-stmt.c (working copy) > @@ -663,6 +663,7 @@ gfc_trans_arithmetic_if (gfc_code * code > > /* Pre-evaluate COND. */ > gfc_conv_expr_val (&se, code->expr); > + se.expr = gfc_evaluate_now (se.expr, &se.pre); > I think you're on the right track, but shouldn't it be se.expr = gfc_evaluate_now (code->expr, &se.pre); I'm not sure of the &se.pre part, yet. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28439
