diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 4e77605..8ae8464 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -2777,7 +2777,8 @@ gfc_check_assign (gfc_expr *lvalue, gfc_expr *rvalue, int conform) gfc_warning ("BOZ literal at %L is bitwise transferred " "non-integer symbol '%s'", &rvalue->where, lvalue->symtree->n.sym->name); - gfc_convert_boz (rvalue, &lvalue->ts); + if (!gfc_convert_boz (rvalue, &lvalue->ts)) + return FAILURE; if ((rc = gfc_range_check (rvalue)) != ARITH_OK) { if (rc == ARITH_UNDERFLOW) |