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

From-SVN: r26552

gcc/testsuite/ChangeLog

+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

gcc/testsuite/g77.f-torture/compile/19990419-0.f

+* 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

gcc/testsuite/g77.f-torture/execute/19990419-1.f

+* 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