1 files changed, 31 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
new file mode 100644
index 000000000..18bc79b43
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
@@ -0,0 +1,31 @@
+INTEGER         :: I = 1
+SELECT CASE (I)
+   CASE (-3:-5)  ! Can never be matched
+      CALL abort
+   CASE (1)
+      CONTINUE
+   CASE DEFAULT
+      CALL abort
+END SELECT
+
+I = -3
+SELECT CASE (I)
+   CASE (-3:-5) ! Can never be matched
+      CALL abort
+   CASE (1)
+      CONTINUE
+   CASE DEFAULT
+      CONTINUE
+END SELECT
+
+I = -5
+SELECT CASE (I)
+   CASE (-3:-5) ! Can never be matched
+      CALL abort
+   CASE (-5)
+      CONTINUE
+   CASE DEFAULT
+      CALL abort
+END SELECT
+END
+