From 1dba11822e73daaaf1afc31ab17d616d85c217e3 Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Sat, 8 Jan 2005 18:31:40 +0100
Subject: 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                |  7 ++++++-
 gcc/testsuite/gfortran.dg/select_2.f90 | 18 ++++++++++++++++++
 gcc/testsuite/gfortran.dg/select_3.f90 | 19 +++++++++++++++++++
 gcc/testsuite/gfortran.dg/select_4.f90 | 16 ++++++++++++++++
 4 files changed, 59 insertions(+), 1 deletion(-)
 create mode 100644 gcc/testsuite/gfortran.dg/select_2.f90
 create mode 100644 gcc/testsuite/gfortran.dg/select_3.f90
 create mode 100644 gcc/testsuite/gfortran.dg/select_4.f90

(limited to 'gcc')

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9d46008..55a54aa 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/testsuite/gfortran.dg/select_2.f90 b/gcc/testsuite/gfortran.dg/select_2.f90
new file mode 100644
index 0000000..5859ee3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/select_2.f90
@@ -0,0 +1,18 @@
+! { 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
diff --git a/gcc/testsuite/gfortran.dg/select_3.f90 b/gcc/testsuite/gfortran.dg/select_3.f90
new file mode 100644
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
diff --git a/gcc/testsuite/gfortran.dg/select_4.f90 b/gcc/testsuite/gfortran.dg/select_4.f90
new file mode 100644
index 0000000..8c410fc
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/select_4.f90
@@ -0,0 +1,16 @@
+! { 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
-- 
cgit v1.1