/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | erf_3.F90 | 20 integer, parameter :: qp = real_kinds(ubound(real_kinds,dim=1)) variable in program:test 21 real(kind=qp) :: x 25 call check(erf(real(a,kind=qp)), erf(x)) ; \ 26 call check(erfc(real(a,kind=qp)), erfc(x)) ; \ 27 call check(erfc_scaled(real(a,kind=qp)), erfc_scaled(x)) 49 real(kind=qp), intent(in) :: a, b
|
H A D | norm2_3.f90 | 11 integer,parameter :: qp = selected_real_kind (precision (0.0d0)+1) variable 13 real(qp) :: a(3) = [real(qp) :: 1, 2, huge(3.0_qp)] 14 real(qp) :: b(3) = [real(qp) :: 1, 2, 3] 15 real(qp) :: c(4) = [real(qp) :: 1, 2, 3, -1] 16 real(qp) :: e(0) = [real(qp) :: ] 17 real(qp) [all...] |
H A D | quad_3.f90 | 11 real(kind=qp) :: a,b(2), c 17 if (size (real_kinds) >= 4 .and. qp == 16) then
|
/haiku-buildtools/gcc/gmp/mpn/generic/ |
H A D | sbpi1_bdiv_q.c | 38 qp[i] = D^{-1} * np[i] (mod B) 39 N -= B^i * qp[i] * D 44 qp[i] = (-D)^{-1} * np[i] (mod B) 45 N += B^i * qp[i] * D 50 mpn_sbpi1_bdiv_q (mp_ptr qp, argument 65 qp[0] = ~q; 66 qp++; 76 qp[0] = ~q; 77 qp++; 85 qp[ [all...] |
H A D | pre_divrem_1.c | 51 mpn_preinv_divrem_1 (mp_ptr qp, mp_size_t xsize, argument 74 ASSERT (MPN_SAME_OR_SEPARATE_P (qp+xsize, ap, size)); 78 qp += (size + xsize - 1); /* dest high limb */ 86 *qp-- = qhigh; 92 udiv_qrnnd_preinv (*qp, r, r, n0, d, dinv); 93 qp--; 102 *qp-- = 0; 115 udiv_qrnnd_preinv (*qp, r, r, 118 qp--; 121 udiv_qrnnd_preinv (*qp, [all...] |
H A D | divrem_1.c | 79 mpn_divrem_1 (mp_ptr qp, mp_size_t qxn, argument 91 ASSERT (MPN_SAME_OR_SEPARATE_P (qp+qxn, up, un)); 99 qp += (n - 1); /* Make qp point at most significant quotient limb */ 109 *qp-- = q; 122 udiv_qrnnd (*qp, r, r, n0, d); 124 qp--; 128 udiv_qrnnd (*qp, r, r, CNST_LIMB(0), d); 130 qp--; 143 udiv_qrnnd_preinv (*qp, [all...] |
H A D | dcpi1_bdiv_q.c | 45 mpn_dcpi1_bdiv_q_n (mp_ptr qp, argument 57 cy = mpn_dcpi1_bdiv_qr_n (qp, np, dp, lo, dinv, tp); 59 mpn_mullo_n (tp, qp, dp + hi, lo); 64 cy += mpn_submul_1 (np + lo, qp, lo, dp[lo]); 67 qp += lo; 71 mpn_sbpi1_bdiv_q (qp, np, n, dp, n, dinv); 81 mpn_dcpi1_bdiv_q (mp_ptr qp, argument 110 cy = mpn_sbpi1_bdiv_qr (qp, np, 2 * qn, dp, qn, dinv); 112 cy = mpn_dcpi1_bdiv_qr_n (qp, np, dp, qn, dinv, tp); 117 mpn_mul (tp, qp, q [all...] |
H A D | dcpi1_divappr_q.c | 33 mpn_dcpi1_divappr_q_n (mp_ptr qp, mp_ptr np, mp_srcptr dp, mp_size_t n, argument 43 qh = mpn_sbpi1_div_qr (qp + lo, np + 2 * lo, 2 * hi, dp + lo, hi, dinv->inv32); 45 qh = mpn_dcpi1_div_qr_n (qp + lo, np + 2 * lo, dp + lo, hi, dinv, tp); 47 mpn_mul (tp, qp + lo, hi, dp, lo); 55 qh -= mpn_sub_1 (qp + lo, qp + lo, hi, 1); 60 ql = mpn_sbpi1_divappr_q (qp, np + hi, 2 * lo, dp + hi, lo, dinv->inv32); 62 ql = mpn_dcpi1_divappr_q_n (qp, np + hi, dp + hi, lo, dinv, tp); 68 qp[i] = GMP_NUMB_MASK; 75 mpn_dcpi1_divappr_q (mp_ptr qp, mp_pt argument [all...] |
H A D | dcpi1_bdiv_qr.c | 39 Stores q at qp. Stores the n least significant limbs of r at the high half 51 mpn_dcpi1_bdiv_qr_n (mp_ptr qp, mp_ptr np, mp_srcptr dp, mp_size_t n, argument 62 cy = mpn_sbpi1_bdiv_qr (qp, np, 2 * lo, dp, lo, dinv); 64 cy = mpn_dcpi1_bdiv_qr_n (qp, np, dp, lo, dinv, tp); 66 mpn_mul (tp, dp + lo, hi, qp, lo); 72 cy = mpn_sbpi1_bdiv_qr (qp + lo, np + lo, 2 * hi, dp, hi, dinv); 74 cy = mpn_dcpi1_bdiv_qr_n (qp + lo, np + lo, dp, hi, dinv, tp); 76 mpn_mul (tp, qp + lo, hi, dp + hi, lo); 85 mpn_dcpi1_bdiv_qr (mp_ptr qp, mp_ptr np, mp_size_t nn, argument 112 cy = mpn_sbpi1_bdiv_qr (qp, n [all...] |
H A D | bdiv_q.c | 33 mpn_bdiv_q (mp_ptr qp, argument 44 mpn_sbpi1_bdiv_q (qp, tp, nn, dp, dn, di); 50 mpn_dcpi1_bdiv_q (qp, tp, nn, dp, dn, di); 54 mpn_mu_bdiv_q (qp, np, nn, dp, dn, tp);
|
H A D | sbpi1_bdiv_qr.c | 44 mpn_sbpi1_bdiv_qr (mp_ptr qp, argument 70 qp[i] = ~q; 75 ql = mpn_add_1 (qp, qp, dn, ql); 77 qp += dn; qn -= dn; 86 qp[i] = ~q; 92 ql = mpn_add_1 (qp, qp, qn, ql);
|
H A D | dcpi1_div_qr.c | 33 mpn_dcpi1_div_qr_n (mp_ptr qp, mp_ptr np, mp_srcptr dp, mp_size_t n, argument 43 qh = mpn_sbpi1_div_qr (qp + lo, np + 2 * lo, 2 * hi, dp + lo, hi, dinv->inv32); 45 qh = mpn_dcpi1_div_qr_n (qp + lo, np + 2 * lo, dp + lo, hi, dinv, tp); 47 mpn_mul (tp, qp + lo, hi, dp, lo); 55 qh -= mpn_sub_1 (qp + lo, qp + lo, hi, 1); 60 ql = mpn_sbpi1_div_qr (qp, np + hi, 2 * lo, dp + hi, lo, dinv->inv32); 62 ql = mpn_dcpi1_div_qr_n (qp, np + hi, dp + hi, lo, dinv, tp); 64 mpn_mul (tp, dp, hi, qp, lo); 72 mpn_sub_1 (qp, q 80 mpn_dcpi1_div_qr(mp_ptr qp, mp_ptr np, mp_size_t nn, mp_srcptr dp, mp_size_t dn, gmp_pi1_t *dinv) argument [all...] |
H A D | remove.c | 45 * If we require W to have space for un limbs, we could save qp or qp2 (but 47 * If we allow ourselves to clobber U, we could save the other of qp and qp2. 58 mp_ptr tp, qp, np, pp, qp2, scratch_out; local 71 qp = TMP_ALLOC_LIMBS (un); /* quotient, alternating */ 82 MPN_COPY (qp, up, un); 88 mpn_bdiv_qr (qp2, tp, qp, qn, pp, pn, scratch_out); 92 MP_PTR_SWAP (qp, qp2); 94 qn += qp[qn] != 0; 126 mpn_bdiv_qr (qp2, tp, qp, qn, pp, pn, scratch_out); 130 MP_PTR_SWAP (qp, qp [all...] |
/haiku-buildtools/gcc/gmp/mpz/ |
H A D | cdiv_q_ui.c | 30 mp_ptr np, qp; local 45 qp = PTR(quot); 55 qp[0] = 0; 63 mpn_tdiv_qr (qp, rp, (mp_size_t) 0, np, nn, dp, (mp_size_t) 2); 70 mpn_incr_u (qp, (mp_limb_t) 1); 74 qn -= qp[qn - 1] == 0; qn -= qn != 0 && qp[qn - 1] == 0; 79 rl = mpn_divrem_1 (qp, (mp_size_t) 0, np, nn, (mp_limb_t) divisor); 83 mpn_incr_u (qp, (mp_limb_t) 1); 87 qn = nn - (qp[n [all...] |
H A D | fdiv_q_ui.c | 29 mp_ptr np, qp; local 44 qp = PTR(quot); 54 qp[0] = 0; 62 mpn_tdiv_qr (qp, rp, (mp_size_t) 0, np, nn, dp, (mp_size_t) 2); 69 mpn_incr_u (qp, (mp_limb_t) 1); 73 qn -= qp[qn - 1] == 0; qn -= qn != 0 && qp[qn - 1] == 0; 78 rl = mpn_divrem_1 (qp, (mp_size_t) 0, np, nn, (mp_limb_t) divisor); 82 mpn_incr_u (qp, (mp_limb_t) 1); 86 qn = nn - (qp[n [all...] |
H A D | cdiv_qr_ui.c | 31 mp_ptr np, qp; local 47 qp = PTR(quot); 62 qp[0] = 0; 71 mpn_tdiv_qr (qp, rp, (mp_size_t) 0, np, nn, dp, (mp_size_t) 2); 78 mpn_incr_u (qp, (mp_limb_t) 1); 84 qn -= qp[qn - 1] == 0; qn -= qn != 0 && qp[qn - 1] == 0; 91 rl = mpn_divrem_1 (qp, (mp_size_t) 0, np, nn, (mp_limb_t) divisor); 98 mpn_incr_u (qp, (mp_limb_t) 1); 105 qn = nn - (qp[n [all...] |
H A D | fdiv_qr_ui.c | 29 mp_ptr np, qp; local 45 qp = PTR(quot); 60 qp[0] = 0; 69 mpn_tdiv_qr (qp, rp, (mp_size_t) 0, np, nn, dp, (mp_size_t) 2); 76 mpn_incr_u (qp, (mp_limb_t) 1); 82 qn -= qp[qn - 1] == 0; qn -= qn != 0 && qp[qn - 1] == 0; 89 rl = mpn_divrem_1 (qp, (mp_size_t) 0, np, nn, (mp_limb_t) divisor); 96 mpn_incr_u (qp, (mp_limb_t) 1); 103 qn = nn - (qp[n [all...] |
H A D | divexact.c | 31 mp_ptr qp; local 64 qp = PTR(quot); 67 qp = TMP_ALLOC_LIMBS (qn); 72 mpn_divexact (qp, np, nn, dp, dn); 73 MPN_NORMALIZE (qp, qn); 77 if (qp != PTR(quot)) 78 MPN_COPY (PTR(quot), qp, qn); local
|
H A D | tdiv_q.c | 30 mp_ptr np, dp, qp; local 51 qp = PTR (quot); 56 if (dp == qp) 64 if (np == qp) 70 mpn_div_q (qp, tp, nl, dp, dl, tp); 76 mpn_div_q (qp, np, nl, dp, dl, tp); 79 ql -= qp[ql - 1] == 0;
|
H A D | tdiv_q_ui.c | 29 mp_ptr np, qp; local 44 qp = PTR(quot); 61 mpn_tdiv_qr (qp, rp, (mp_size_t) 0, np, nn, dp, (mp_size_t) 2); 63 qn = nn - 2 + 1; qn -= qp[qn - 1] == 0; qn -= qn != 0 && qp[qn - 1] == 0; 68 rl = mpn_divrem_1 (qp, (mp_size_t) 0, np, nn, (mp_limb_t) divisor); 69 qn = nn - (qp[nn - 1] == 0);
|
/haiku-buildtools/isl/ |
H A D | isl_polynomial.c | 348 __isl_take isl_qpolynomial *qp, __isl_take isl_space *dim) 350 qp = isl_qpolynomial_cow(qp); 351 if (!qp || !dim) 354 isl_space_free(qp->dim); 355 qp->dim = dim; 357 return qp; 359 isl_qpolynomial_free(qp); 364 /* Reset the space of "qp". This function is called from isl_pw_templ.c 369 __isl_take isl_qpolynomial *qp, __isl_tak 347 isl_qpolynomial_reset_domain_space( __isl_take isl_qpolynomial *qp, __isl_take isl_space *dim) argument 368 isl_qpolynomial_reset_space_and_domain( __isl_take isl_qpolynomial *qp, __isl_take isl_space *space, __isl_take isl_space *domain) argument 376 isl_qpolynomial_get_ctx(__isl_keep isl_qpolynomial *qp) argument 381 isl_qpolynomial_get_domain_space( __isl_keep isl_qpolynomial *qp) argument 387 isl_qpolynomial_get_space(__isl_keep isl_qpolynomial *qp) argument 401 isl_qpolynomial_dim(__isl_keep isl_qpolynomial *qp, enum isl_dim_type type) argument 413 isl_qpolynomial_is_zero(__isl_keep isl_qpolynomial *qp) argument 418 isl_qpolynomial_is_one(__isl_keep isl_qpolynomial *qp) argument 423 isl_qpolynomial_is_nan(__isl_keep isl_qpolynomial *qp) argument 428 isl_qpolynomial_is_infty(__isl_keep isl_qpolynomial *qp) argument 433 isl_qpolynomial_is_neginfty(__isl_keep isl_qpolynomial *qp) argument 438 isl_qpolynomial_sgn(__isl_keep isl_qpolynomial *qp) argument 1039 struct isl_qpolynomial *qp = NULL; local 1071 isl_qpolynomial_copy(__isl_keep isl_qpolynomial *qp) argument 1080 isl_qpolynomial_dup(__isl_keep isl_qpolynomial *qp) argument 1102 isl_qpolynomial_cow(__isl_take isl_qpolynomial *qp) argument 1113 isl_qpolynomial_free(__isl_take isl_qpolynomial *qp) argument 1242 sort_divs(__isl_take isl_qpolynomial *qp) argument 1462 isl_qpolynomial_add_isl_int( __isl_take isl_qpolynomial *qp, isl_int v) argument 1483 isl_qpolynomial_neg(__isl_take isl_qpolynomial *qp) argument 1491 isl_qpolynomial_mul_isl_int( __isl_take isl_qpolynomial *qp, isl_int v) argument 1518 isl_qpolynomial_scale( __isl_take isl_qpolynomial *qp, isl_int v) argument 1526 isl_qpolynomial_scale_val( __isl_take isl_qpolynomial *qp, __isl_take isl_val *v) argument 1594 isl_qpolynomial_pow(__isl_take isl_qpolynomial *qp, unsigned power) argument 1677 struct isl_qpolynomial *qp; local 1693 isl_qpolynomial_is_cst(__isl_keep isl_qpolynomial *qp, isl_int *n, isl_int *d) argument 1743 isl_qpolynomial_get_constant_val( __isl_keep isl_qpolynomial *qp) argument 1781 isl_qpolynomial_is_affine(__isl_keep isl_qpolynomial *qp) argument 1844 isl_qpolynomial_extract_affine( __isl_keep isl_qpolynomial *qp) argument 1911 isl_qpolynomial_get_den(__isl_keep isl_qpolynomial *qp, isl_int *d) argument 2021 normalize_div(__isl_keep isl_qpolynomial *qp, int div) argument 2044 substitute_div( __isl_take isl_qpolynomial *qp, int div, __isl_take struct isl_upoly *s) argument 2090 substitute_non_divs( __isl_take isl_qpolynomial *qp) argument 2132 reduce_div(__isl_keep isl_qpolynomial *qp, int div, __isl_keep isl_vec *aff) argument 2191 invert_div(__isl_keep isl_qpolynomial *qp, int div, __isl_keep isl_vec *aff) argument 2217 reduce_divs(__isl_take isl_qpolynomial *qp) argument 2268 struct isl_qpolynomial *qp; local 2290 isl_qpolynomial *qp; local 2336 set_active(__isl_keep isl_qpolynomial *qp, int *active) argument 2355 isl_qpolynomial_involves_dims(__isl_keep isl_qpolynomial *qp, enum isl_dim_type type, unsigned first, unsigned n) argument 2396 remove_redundant_divs( __isl_take isl_qpolynomial *qp) argument 2511 isl_qpolynomial_set_dim_name( __isl_take isl_qpolynomial *qp, enum isl_dim_type type, unsigned pos, const char *s) argument 2527 isl_qpolynomial_drop_dims( __isl_take isl_qpolynomial *qp, enum isl_dim_type type, unsigned first, unsigned n) argument 2575 isl_qpolynomial_project_domain_on_params( __isl_take isl_qpolynomial *qp) argument 2597 isl_qpolynomial_substitute_equalities_lifted( __isl_take isl_qpolynomial *qp, __isl_take isl_basic_set *eq) argument 2665 isl_qpolynomial_substitute_equalities( __isl_take isl_qpolynomial *qp, __isl_take isl_basic_set *eq) argument 2710 isl_qpolynomial_gist( __isl_take isl_qpolynomial *qp, __isl_take isl_set *context) argument 2735 isl_qpolynomial_gist_params( __isl_take isl_qpolynomial *qp, __isl_take isl_set *context) argument 2744 isl_pw_qpolynomial_from_qpolynomial( __isl_take isl_qpolynomial *qp) argument 2917 isl_qpolynomial_eval( __isl_take isl_qpolynomial *qp, __isl_take isl_point *pnt) argument 3047 isl_qpolynomial_insert_dims( __isl_take isl_qpolynomial *qp, enum isl_dim_type type, unsigned first, unsigned n) argument 3103 isl_qpolynomial_add_dims( __isl_take isl_qpolynomial *qp, enum isl_dim_type type, unsigned n) argument 3157 isl_qpolynomial_move_dims( __isl_take isl_qpolynomial *qp, enum isl_dim_type dst_type, unsigned dst_pos, enum isl_dim_type src_type, unsigned src_pos, unsigned n) argument 3236 isl_qpolynomial *qp; local 3279 isl_qpolynomial *qp; local 3303 isl_qpolynomial_substitute( __isl_take isl_qpolynomial *qp, enum isl_dim_type type, unsigned first, unsigned n, __isl_keep isl_qpolynomial **subs) argument 3366 isl_qpolynomial_as_polynomial_on_domain(__isl_keep isl_qpolynomial *qp, __isl_keep isl_basic_set *bset, int (*fn)(__isl_take isl_basic_set *bset, __isl_take isl_qpolynomial *poly, void *user), void *user) argument 3493 isl_qpolynomial_coeff( __isl_keep isl_qpolynomial *qp, enum isl_dim_type type, unsigned t_pos, int deg) argument 3838 isl_qpolynomial_foreach_term(__isl_keep isl_qpolynomial *qp, int (*fn)(__isl_take isl_term *term, void *user), void *user) argument 3860 isl_qpolynomial *qp; local 3892 isl_qpolynomial_lift(__isl_take isl_qpolynomial *qp, __isl_take isl_space *dim) argument 3946 fix_inactive(__isl_take isl_set *set, __isl_keep isl_qpolynomial *qp) argument 3997 isl_qpolynomial *qp; member in struct:isl_opt_data 4021 isl_qpolynomial_opt_on_domain( __isl_take isl_qpolynomial *qp, __isl_take isl_set *set, int max) argument 4055 isl_qpolynomial_morph_domain( __isl_take isl_qpolynomial *qp, __isl_take isl_morph *morph) argument 4182 isl_qpolynomial_realign_domain( __isl_take isl_qpolynomial *qp, __isl_take isl_reordering *r) argument 4211 isl_qpolynomial_align_params( __isl_take isl_qpolynomial *qp, __isl_take isl_space *model) argument 4253 set_div_slice(__isl_take isl_space *dim, __isl_keep isl_qpolynomial *qp, int div, isl_int v) argument 4295 set_div(__isl_take isl_set *set, __isl_take isl_qpolynomial *qp, int div, isl_int v, struct isl_split_periods_data *data) argument 4334 split_div(__isl_take isl_set *set, __isl_take isl_qpolynomial *qp, int div, isl_int min, isl_int max, struct isl_split_periods_data *data) argument 4360 split_periods(__isl_take isl_set *set, __isl_take isl_qpolynomial *qp, void *user) argument 4468 isl_qpolynomial *qp; local 4498 isl_qpolynomial *qp; local 4605 qp_drop_floors( __isl_take isl_qpolynomial *qp, int down) argument 4682 make_divs_pos(__isl_take isl_qpolynomial *qp, int *signs) argument 4754 isl_qpolynomial *qp; member in struct:isl_to_poly_data 4770 isl_qpolynomial *qp, *up, *down; local 4867 isl_basic_map_from_qpolynomial( __isl_take isl_qpolynomial *qp) argument [all...] |
/haiku-buildtools/gcc/gmp/tests/mpn/ |
H A D | t-bdiv.c | 57 check_one (mp_ptr qp, mp_srcptr rp, mp_limb_t rh, argument 76 mpn_mul (tp, dp, dn, qp, qn); 78 mpn_mul (tp, qp, qn, dp, dn); 94 printf ("Q= "); dumpy (qp, qn); 139 mp_ptr np, dp, qp, rp; local 177 qp = TMP_ALLOC_LIMBS (maxnn + 2) + 1; 245 qp[-1] = qran0; 246 qp[nn - dn + 1] = qran1; 256 MPN_ZERO (qp, nn - dn); 259 rh = mpn_sbpi1_bdiv_qr (qp, r [all...] |
H A D | t-div.c | 57 check_one (mp_ptr qp, mp_srcptr rp, argument 71 refmpn_mul (tp, dp, dn, qp, qn); 73 refmpn_mul (tp, qp, qn, dp, dn); 87 printf ("Q= "); dumpy (qp, qn); 144 mp_ptr np, dp, qp, rp; local 183 qp = TMP_ALLOC_LIMBS (maxnn + 2) + 1; 268 qp[-1] = qran0; 269 qp[nn - dn + 1] = qran1; 281 MPN_ZERO (qp, nn - dn); 282 qp[n [all...] |
/haiku-buildtools/gcc/gcc/testsuite/g++.dg/graphite/ |
H A D | id-1.C | 36 for (unsigned int qp=0;qp<n_q_points;++qp) 37 psi[i][qp].resize(n_components);
|
/haiku-buildtools/gcc/gcc/testsuite/gcc.target/i386/ |
H A D | pr64291-1.c | 21 unsigned long *np, *dup, *dnp, *qp; local 26 qp = (unsigned long*)__builtin_alloca(4099*8) + 1; 38 qp[-1] = -757136820; 39 qp[nn - dn + 1] = 14883681;
|