diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 57c17dc..6289d5d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5932,7 +5932,8 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) "non-integer symbol '%s'", &code->loc, lhs->symtree->n.sym->name); - gfc_convert_boz (rhs, &lhs->ts); + if (!gfc_convert_boz (rhs, &lhs->ts)) + return false; if ((rc = gfc_range_check (rhs)) != ARITH_OK) { if (rc == ARITH_UNDERFLOW) |