diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-12-20 09:13:09 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-12-20 09:13:09 +0100 |
| commit | c7abc45c7f097a501a93d0778cfa445745b74d22 (patch) | |
| tree | c1105d7d38643842a8a83544615c0aaec01a6b80 /gcc/fortran/resolve.c | |
| parent | f411364823c12f94105779db7f8e812b6acbe1a8 (diff) | |
| download | gcc-c7abc45c7f097a501a93d0778cfa445745b74d22.zip gcc-c7abc45c7f097a501a93d0778cfa445745b74d22.tar.gz gcc-c7abc45c7f097a501a93d0778cfa445745b74d22.tar.bz2 | |
re PR fortran/34482 (FAIL: gfortran.dg/nan_4.f90 -O tests for errors)
2007-12-20 Tobias Burnus <burnus@net-b.de>
PR fortran/34482
* gfortran.texi (BOZ): Document behavior for complex
numbers.
* target-memory.h (gfc_convert_boz): Update prototype.
* target-memory.c (gfc_convert_boz): Add error check
and convert BOZ to smallest possible bit size.
* resolve.c (resolve_ordinary_assign): Check return value.
* expr.c (gfc_check_assign): Ditto.
* simplify.c (simplify_cmplx, gfc_simplify_dble,
gfc_simplify_float, gfc_simplify_real): Ditto.
2007-12-20 Tobias Burnus <burnus@net-b.de>
PR fortran/34482
* gfortran.dg/boz_8.f90: Add error-check check.
* gfortran.dg/boz_9.f90: Shorten BOZ where needed, replace
stop by call abort.
From-SVN: r131098
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) |