]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/compile/19990502-1.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / compile / 19990502-1.f
diff --git a/gcc/testsuite/g77.f-torture/compile/19990502-1.f b/gcc/testsuite/g77.f-torture/compile/19990502-1.f
deleted file mode 100644 (file)
index b7238fc..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-      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