diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-20 08:13:09 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-20 08:13:09 +0000 |
| commit | cb989427b3d6fb67e4182b701af7e0a18c2e20d2 (patch) | |
| tree | c1105d7d38643842a8a83544615c0aaec01a6b80 /gcc/fortran/resolve.c | |
| parent | 03459c1150388efcf407136365488bd90782a9d5 (diff) | |
| download | ppe42-gcc-cb989427b3d6fb67e4182b701af7e0a18c2e20d2.tar.gz ppe42-gcc-cb989427b3d6fb67e4182b701af7e0a18c2e20d2.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131098 138bc75d-0d04-0410-961f-82ee72b054a4
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 57c17dc4006..6289d5d18d6 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) |
