| Submitter | Steve Kargl |
|---|---|
| Date | June 11, 2010, 12:07 a.m. |
| Message ID | <20100611000744.GA2114@troutmask.apl.washington.edu> |
| Download | mbox | patch |
| Permalink | /patch/55279/ |
| State | New |
| Headers | show |
Comments
Patch
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