new tests, derived from bug-reports from Toon and Tim

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26552 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e46b33a..834cebf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+1999-04-20  Craig Burley  <craig@jcb-sc.com>
+
+       * g77.f-torture/compile/19990419-0.f: New test.
+       * g77.f-torture/execute/19990419-1.f: New test.
+
 Sat Apr 17 16:56:48 1999  Richard Henderson  <rth@cygnus.com>
 
        * gcc.dg/uninit-9.c (func): Use __builtin_alloca instead of alloca

diff --git a/gcc/testsuite/g77.f-torture/compile/19990419-0.f b/gcc/testsuite/g77.f-torture/compile/19990419-0.f
new file mode 100644 (file)
index 0000000..084e7a2
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990419-0.f
@@ -0,0 +1,7 @@
+* Test case Toon submitted, cut down to expose the one bug.
+* Belongs in compile/.
+      SUBROUTINE INIERS1
+      IMPLICIT   LOGICAL(L)
+      COMMON/COMIOD/ NHIERS1, LERS1
+      inquire(nhiers1, exist=lers1)
+      END

diff --git a/gcc/testsuite/g77.f-torture/execute/19990419-1.f b/gcc/testsuite/g77.f-torture/execute/19990419-1.f
new file mode 100644 (file)
index 0000000..7449bac
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/19990419-1.f
@@ -0,0 +1,21 @@
+* Test DO WHILE, to make sure it fully reevaluates its expression.
+* Belongs in execute/.
+      common /x/ ival
+      j = 0
+      do while (i() .eq. 1)
+         j = j + 1
+         if (j .gt. 5) call abort
+      end do
+      if (j .ne. 4) call abort
+      if (ival .ne. 5) call abort
+      end
+      function i()
+      common /x/ ival
+      ival = ival + 1
+      i = 10
+      if (ival .lt. 5) i = 1
+      end
+      block data
+      common /x/ ival
+      data ival/0/
+      end