X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F19990905-2.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F19990905-2.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=af82f65d288e93512ea0153a813832a82b71630e;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/testsuite/g77.f-torture/compile/19990905-2.f b/gcc/testsuite/g77.f-torture/compile/19990905-2.f
deleted file mode 100644
index af82f65d..00000000
--- a/gcc/testsuite/g77.f-torture/compile/19990905-2.f
+++ /dev/null
@@ -1,22 +0,0 @@
-* =watson11.f in Burley's g77 test suite.
-* Probably originally submitted by Ian Watson.
-* Too small to worry about copyright issues, IMO, since it
-* doesn't do anything substantive.
-      SUBROUTINE OUTDNS(A,B,LCONV)
-      IMPLICIT REAL*8(A-H,O-Z),INTEGER*4(I-N)
-      COMMON/ARRAYS/Z(64,8),AB(30,30),PAIRS(9,9),T(9,9),TEMP(9,9),C1(3),
-     >  C2(3),AA(30),BB(30)
-      EQUIVALENCE (X1,C1(1)),(Y1,C1(2)),(Z1,C1(3))
-      EQUIVALENCE (X2,C2(1)),(Y2,C2(2)),(Z2,C2(3))
-      COMMON /CONTRL/
-     >  SHIFT,CONV,SCION,DIVERG,
-     >  IOPT,KCNDO,KINDO,KMINDO,I2EINT,KOHNO,KSLATE,
-     >  N,NG,NUMAT,NSEK,NELECS,NIT,OCCA,OCCB,NOLDAT,NOLDFN
-      INTEGER*4 OCCA,OCCB
-      DIMENSION W(N),A(N,N),B(N,N)
-      DIMENSION BUF(100)
-      occb=5
-      ENTRY INDNS (A,B)
-   40 READ(IREAD) BUF
-      STOP
-      END