Home | History | Annotate | Download | only in fortran

Lines Matching defs:int_info

135   gfc_integer_info *int_info;
145   for (int_info = gfc_integer_kinds; int_info->kind != 0; int_info++)
148       mpz_init (int_info->huge);
149       mpz_set_ui (int_info->huge, int_info->radix);
150       mpz_pow_ui (int_info->huge, int_info->huge, int_info->digits);
151       mpz_sub_ui (int_info->huge, int_info->huge, 1);
155       if (int_info->radix != 2)
165       mpz_init (int_info->pedantic_min_int);
166       mpz_neg (int_info->pedantic_min_int, int_info->huge);
168       mpz_init (int_info->min_int);
169       mpz_sub_ui (int_info->min_int, int_info->pedantic_min_int, 1);
172       mpfr_set_z (a, int_info->huge, GFC_RND_MODE);
175       int_info->range = (int) mpfr_get_si (a, GFC_RND_MODE);