diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-06-20 18:34:25 +0000 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-20 20:34:25 +0200 |
| commit | 160874e4cda4402512a4ccc1c36a723226cabf2a (patch) | |
| tree | 0735b31bfd78e2aa68d95cc6a98ba15421e79226 /gcc/fortran/arith.c | |
| parent | b9861bff6c54b2eabafbe684647972f3c4f2a747 (diff) | |
| download | gcc-160874e4cda4402512a4ccc1c36a723226cabf2a.zip gcc-160874e4cda4402512a4ccc1c36a723226cabf2a.tar.gz gcc-160874e4cda4402512a4ccc1c36a723226cabf2a.tar.bz2 | |
arith.c (gfc_range_check): correct complex underflow.
2004-06-20 Steven G. Kargl <kargls@comcast.net>
* arith.c (gfc_range_check): correct complex underflow.
From-SVN: r83417
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 6b7b29a..b6aec5b 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -1198,12 +1198,12 @@ gfc_range_check (gfc_expr * e) case BT_COMPLEX: rc = gfc_check_real_range (e->value.complex.r, e->ts.kind); if (rc == ARITH_UNDERFLOW) - mpf_set_ui (e->value.real, 0); + mpf_set_ui (e->value.complex.r, 0); if (rc == ARITH_OK || rc == ARITH_UNDERFLOW) { rc = gfc_check_real_range (e->value.complex.i, e->ts.kind); if (rc == ARITH_UNDERFLOW) - mpf_set_ui (e->value.real, 0); + mpf_set_ui (e->value.complex.i, 0); } break; |