* arith.c (gfc_int2complex): Fix incorrect range checking.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81985
138bc75d-0d04-0410-961f-
82ee72b054a4
+2004-05-17 Steve Kargl <kargls@comcast.net>
+
+ * arith.c (gfc_int2complex): Fix incorrect range checking.
+
2004-05-18 Paul Brook <paul@codesourcery.com>
PR fortran/13930
mpf_set_z (result->value.complex.r, src->value.integer);
mpf_set_ui (result->value.complex.i, 0);
- if ((rc = gfc_check_real_range (result->value.complex.i, kind)) != ARITH_OK)
+ if ((rc = gfc_check_real_range (result->value.complex.r, kind)) != ARITH_OK)
{
arith_error (rc, &src->ts, &result->ts, &src->where);
gfc_free_expr (result);