new test of DO WHILE

From-SVN: r26726

new test of DO WHILE
From-SVN: r26726
a7e34b17 · Craig Burley · Craig Burley · f6a72cb6 · a7e34b17 · a7e34b17
Commit a7e34b17 authored May 02, 1999 by Craig Burley Committed by Craig Burley May 02, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/g77.f-torture/compile/19990502-1.f
+6 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 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>

--- a/gcc/testsuite/g77.f-torture/compile/19990502-1.f
+++ b/gcc/testsuite/g77.f-torture/compile/19990502-1.f
+      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