diff options
| author | Paul Thomas <pault@pc30.home> | 2020-03-28 19:11:35 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@pc30.home> | 2020-03-28 19:11:35 +0000 |
| commit | 7d57570b0658b8c1b8a97dafa53dfd4ab4bd3f65 (patch) | |
| tree | c4a70e2bbf1b580b1441006603ec2832adaffae1 /gcc/fortran/arith.c | |
| parent | 3fb7f2fbd5f109786922deb5af8fd8dd594a7ba6 (diff) | |
| download | gcc-7d57570b0658b8c1b8a97dafa53dfd4ab4bd3f65.zip gcc-7d57570b0658b8c1b8a97dafa53dfd4ab4bd3f65.tar.gz gcc-7d57570b0658b8c1b8a97dafa53dfd4ab4bd3f65.tar.bz2 | |
Patch for PR94246
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 7eb82d0..422ef40 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -524,7 +524,7 @@ gfc_range_check (gfc_expr *e) if (rc == ARITH_UNDERFLOW) mpfr_set_ui (mpc_imagref (e->value.complex), 0, GFC_RND_MODE); if (rc == ARITH_OVERFLOW) - mpfr_set_inf (mpc_imagref (e->value.complex), + mpfr_set_inf (mpc_imagref (e->value.complex), mpfr_sgn (mpc_imagref (e->value.complex))); if (rc == ARITH_NAN) mpfr_set_nan (mpc_imagref (e->value.complex)); @@ -1100,7 +1100,7 @@ compare_complex (gfc_expr *op1, gfc_expr *op2) /* Given two constant strings and the inverse collating sequence, compare the - strings. We return -1 for a < b, 0 for a == b and 1 for a > b. + strings. We return -1 for a < b, 0 for a == b and 1 for a > b. We use the processor's default collating sequence. */ int @@ -2176,7 +2176,7 @@ gfc_real2real (gfc_expr *src, int kind) if ((warn_conversion || warn_conversion_extra) && src->ts.kind > kind) { int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra; - + /* Calculate the difference between the constant and the rounded value and check it against zero. */ @@ -2358,7 +2358,7 @@ gfc_complex2real (gfc_expr *src, int kind) /* Calculate the difference between the real constant and the rounded value and check it against zero. */ - + if (kind > src->ts.kind && wprecision_real_real (mpc_realref (src->value.complex), src->ts.kind, kind)) @@ -2502,7 +2502,7 @@ gfc_character2character (gfc_expr *src, int kind) return result; } -/* Helper function to set the representation in a Hollerith conversion. +/* Helper function to set the representation in a Hollerith conversion. This assumes that the ts.type and ts.kind of the result have already been set. */ |