From: Craig Burley <craig@jcb-sc.com>
Date: Mon, 19 Apr 1999 21:29:25 +0000 (+0000)
Subject: new tests, derived from bug-reports from Toon and Tim
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2e6472064f0e3a2d524163bf7c9f7f8a33eaf08e;p=gcc.git

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

From-SVN: r26552
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e46b33a519a..834cebf342b 100644
--- 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
index 00000000000..084e7a254bf
--- /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
index 00000000000..7449bac2b95
--- /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