From: Craig Burley <craig@jcb-sc.com>
Date: Sun, 2 May 1999 14:01:13 +0000 (+0000)
Subject: new test of DO WHILE
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a7e34b171b68ba66eae62aa80a41e19cc78380d5;p=gcc.git

new test of DO WHILE

From-SVN: r26726
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 02e02539872..39c0ee314e6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+1999-05-02  Craig Burley  <craig@jcb-sc.com>
+
+	* g77.f-torture/compile/19990502-1.f: New test.
+
 1999-05-02  Craig Burley  <craig@jcb-sc.com>
 
 	* g77.f-torture/compile/19990502-0.f: New test.
diff --git a/gcc/testsuite/g77.f-torture/compile/19990502-1.f b/gcc/testsuite/g77.f-torture/compile/19990502-1.f
new file mode 100644
index 00000000000..b7238fcd881
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990502-1.f
@@ -0,0 +1,6 @@
+      SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY)
+      INTEGER*2 IGAMS(2,NADC)
+      in = 1
+      do while (in.le.nadc.and.IGAMS(2,in).le.in)
+      enddo
+      END