select_2.f90, [...]: New.

* gfortran.dg/select_2.f90, gfortran.dg/select_3.f90,
gfortran.dg/select_4.f90: New.

From-SVN: r93087

gcc/testsuite/ChangeLog

+2005-01-08  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/select_2.f90, gfortran.dg/select_3.f90,
+	gfortran.dg/select_4.f90: New.
+
 2005-01-07  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.c-torture/execute/20050107-1.c: New test.
@@ -526,7 +531,7 @@
 	* cpp/inc/pragma-once-1a.h: Likewise.
 
 2004-12-15  Bud Davis  <bdavis9659@comcast.net>
-            Steven G. Kargle  <kargls@comcast.net>
+            Steven G. Kargl  <kargls@comcast.net>
 
 	PR fortran/17597
 	* gfortran.dg/list_read_3.f90: New test.

gcc/testsuite/gfortran.dg/select_2.f90

+! { dg-do run }
+!  Simple test for SELECT CASE
+!
+program select_2
+  integer i
+  do i = 1, 4
+     select case(i)
+     case (1)
+       if (i /= 1) call abort
+     case (2:3)
+       if (i /= 2 .and. i /= 3) call abort
+     case (4)
+       if (i /= 4) call abort
+     case default
+       call abort
+     end select
+  end do
+end program select_2

gcc/testsuite/gfortran.dg/select_3.f90

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

gcc/testsuite/gfortran.dg/select_4.f90

+! { dg-do run }
+!  Short test program with a CASE statement that uses a range.
+!
+program select_4
+  integer i
+  do i = 1, 40, 4
+     select case(i)
+     case (:5)
+       if (i /= 1 .and. i /= 5) call abort
+     case (20:30)
+       if (i /= 21 .and. i /= 25 .and. i /= 29) call abort
+     case (34:)
+       if (i /= 37) call abort
+     end select
+  end do
+end program select_4