Skip to content

R
riscv-gcc-1
Commit d1d7b044 by Steven G. Kargl
Options

resolve.c (resolve_operator): Fix whitespace. 

2010-06-10  Steven G. Kargl  <kargl@gcc.gnu.org>

	* resolve.c (resolve_operator): Fix whitespace.

From-SVN: r160584
parent f8328d1d
Showing with 2 additions and 2 deletions
gcc/fortran/resolve.c
...@@ -3615,11 +3615,11 @@ resolve_operator (gfc_expr *e) ...@@ -3615,11 +3615,11 @@ resolve_operator (gfc_expr *e)
e->rank = op1->rank; e->rank = op1->rank;
if (e->shape == NULL) if (e->shape == NULL)
{ {
t = compare_shapes(op1, op2); t = compare_shapes (op1, op2);
if (t == FAILURE) if (t == FAILURE)
e->shape = NULL; e->shape = NULL;
else else
e->shape = gfc_copy_shape (op1->shape, op1->rank); e->shape = gfc_copy_shape (op1->shape, op1->rank);
} }
} }
else else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment