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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8f2e3c34f4d025d01051ffdd024aebc7cc1821d8..0bfc8d04c38695e10da2f744aacdfdc8b87a9d7a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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().

diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index 086ec4dbb382b52f957b4808d3c7ed86e1dcf0d0..b473fdb15eeee4f95e6819fd397d9ee8a645793d 100644 (file)
--- a/gcc/fortran/arith.c
+++ b/gcc/fortran/arith.c
@@ -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;