new test of DO WHILE

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 02e0253..39c0ee3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,9 @@
 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.
 
 Sun May  2 01:38:50 1999  Craig Burley  <craig@jcb-sc.com>

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 (file)
index 0000000..b7238fc
--- /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