gcc/fortran/arith.c

315 /* Given a real and a kind, make sure that the real lies within the
497       rc = gfc_check_real_range (e->value.real, e->ts.kind);
499 	mpfr_set_ui (e->value.real, 0, GFC_RND_MODE);
501 	mpfr_set_inf (e->value.real, mpfr_sgn (e->value.real));
503 	mpfr_set_nan (e->value.real);
595       mpfr_neg (result->value.real, op1->value.real, GFC_RND_MODE);
627       mpfr_add (result->value.real, op1->value.real, op2->value.real,
661       mpfr_sub (result->value.real, op1->value.real, op2->value.real,
695       mpfr_mul (result->value.real, op1->value.real, op2->value.real,
739       if (mpfr_sgn (op2->value.real) == 0 && flag_range_check == 1)
745       mpfr_div (result->value.real, op1->value.real, op2->value.real,
809 	      mpfr_set_ui (result->value.real, 1, GFC_RND_MODE);
885 	      mpfr_pow_z (result->value.real, op1->value.real,
913       if (mpfr_cmp_si (op1->value.real, 0) < 0)
921 	mpfr_pow (result->value.real, op1->value.real, op2->value.real,
984 /* Comparison between real values; returns 0 if (op1 .op. op2) is true.
994 	rc = mpfr_equal_p (op1->value.real, op2->value.real) ? 0 : 1;
997 	rc = mpfr_greater_p (op1->value.real, op2->value.real) ? 1 : -1;
1000 	rc = mpfr_greaterequal_p (op1->value.real, op2->value.real) ? 1 : -1;
1003 	rc = mpfr_less_p (op1->value.real, op2->value.real) ? -1 : 1;
1006 	rc = mpfr_lessequal_p (op1->value.real, op2->value.real) ? -1 : 1;
1872 /* Convert a real string to an expression node.  */
1880   mpfr_set_str (e->value.real, buffer, 10, GFC_RND_MODE);
1886 /* Convert a pair of real, constant expression nodes to a single
1890 gfc_convert_complex (gfc_expr *real, gfc_expr *imag, int kind)
1894   e = gfc_get_constant_expr (BT_COMPLEX, kind, &real->where);
1895   mpc_set_fr_fr (e->value.complex, real->value.real, imag->value.real,
2004   mpfr_set_z (result->value.real, src->value.integer, GFC_RND_MODE);
2006   if ((rc = gfc_check_real_range (result->value.real, kind)) != ARITH_OK)
2041 /* Convert default real to default integer.  */
2051   gfc_mpfr_to_mpz (result->value.integer, src->value.real, &src->where);
2064 /* Convert real to real.  */
2074   mpfr_set (result->value.real, src->value.real, GFC_RND_MODE);
2076   rc = gfc_check_real_range (result->value.real, kind);
2082       mpfr_set_ui (result->value.real, 0, GFC_RND_MODE);
2095 /* Convert real to complex.  */
2105   mpc_set_fr (result->value.complex, src->value.real, GFC_MPC_RND_MODE);
2150 /* Convert complex to real.  */
2160   mpc_real (result->value.real, src->value.complex, GFC_RND_MODE);
2162   rc = gfc_check_real_range (result->value.real, kind);
2168       mpfr_set_ui (result->value.real, 0, GFC_RND_MODE);
2316 /* Convert Hollerith to real. The constant will be padded or truncated.  */
2326 		       result->representation.length, result->value.real);