re PR fortran/36515 (Integer read from stdin yields a value overflow for a valid...

2008-06-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36515
	* gfortran.dg/no_range_check_2.f90: New test.

From-SVN: r136823

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 95a49dc246d65fc0e5112676415bec5122706990..6084985374f49a334e496a414d09162f0b44c3b6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/36515
+       * gfortran.dg/no_range_check_2.f90: New test.
+
 2008-06-15  Mark Shinwell  <shinwell@codesourcery.com>
 
        * lib/target-supports.exp (check_effective_target_mips_loongson): New.

diff --git a/gcc/testsuite/gfortran.dg/no_range_check_2.f90 b/gcc/testsuite/gfortran.dg/no_range_check_2.f90
new file mode 100644 (file)
index 0000000..4b45c4c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/no_range_check_2.f90
@@ -0,0 +1,11 @@
+! { dg-do run }
+! { dg-options "-fno-range-check" }
+! PR36515 Integer read a value overflow for an invalid integer.
+! This tests that -fno-range-check allows this legacy behavior at runtime.
+program int_range
+character(25) :: inputline = "-2147483648"
+integer*4 smallest
+read(inputline,100) smallest
+100 format(1i11)
+if (smallest.ne.-2147483648) call abort
+end