Message ID | 20100611000744.GA2114@troutmask.apl.washington.edu |
---|---|
State | New |
Headers | show |
Index: resolve.c =================================================================== --- resolve.c (revision 160583) +++ resolve.c (working copy) @@ -3615,11 +3615,11 @@ resolve_operator (gfc_expr *e) e->rank = op1->rank; if (e->shape == NULL) { - t = compare_shapes(op1, op2); + t = compare_shapes (op1, op2); if (t == FAILURE) e->shape = NULL; else - e->shape = gfc_copy_shape (op1->shape, op1->rank); + e->shape = gfc_copy_shape (op1->shape, op1->rank); } } else