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

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

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

From-SVN: r136823

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/no_range_check_2.f90

+! { 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