* gfortran.dg/select_2.f90, gfortran.dg/select_3.f90,

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / select_3.f90

diff --git a/gcc/testsuite/gfortran.dg/select_3.f90 b/gcc/testsuite/gfortran.dg/select_3.f90
new file mode 100644 (file)
index 0000000..022b682
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/select_3.f90
@@ -0,0 +1,19 @@
+! [dg-do run }
+!  Simple test program to see if gfortran eliminates the 'case (3:2)'
+!  statement.  This is an unreachable CASE because the range is empty.
+!
+program select_3
+  integer i
+  do i = 1, 4
+     select case(i)
+     case (1)
+       if (i /= 1) call abort
+     case (3:2)
+       call abort
+     case (4)
+       if (i /= 4) call abort
+     case default
+       if (i /= 2 .and. i /= 3) call abort
+     end select
+  end do
+end program select_3