arith.c (gfc_check_integer_range): Disable range checking via -fno-range-check.

2006-09-28  Steven G. Kargl  <kargl@gcc.gnu.org>

	fortran/29147
	* arith.c (gfc_check_integer_range): Disable range checking via
	-fno-range-check.

From-SVN: r117297
This commit is contained in:
Steven G. Kargl 2006-09-29 04:51:53 +00:00
parent 67796c1fc2
commit a40e443fe8
2 changed files with 10 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2006-09-28 Steven G. Kargl <kargl@gcc.gnu.org>
fortran/29147
* arith.c (gfc_check_integer_range): Disable range checking via
-fno-range-check.
2006-09-28 Steven G. Kargl <kargl@gcc.gnu.org>
* arith.c: Change conditional test for inclusion of arctangent().

View File

@ -351,6 +351,10 @@ gfc_check_integer_range (mpz_t p, int kind)
result = ARITH_ASYMMETRIC;
}
if (gfc_option.flag_range_check == 0)
return result;
if (mpz_cmp (p, gfc_integer_kinds[i].min_int) < 0
|| mpz_cmp (p, gfc_integer_kinds[i].huge) > 0)
result = ARITH_OVERFLOW;