diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 95a49dc246d65fc0e5112676415bec5122706990..6084985374f49a334e496a414d09162f0b44c3b6 100644
--- 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
index 0000000000000000000000000000000000000000..4b45c4c8e4f213e26cba02fe38c869dfec09e9ce
--- /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