Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / compile / 980310-8.f

diff --git a/gcc/testsuite/g77.f-torture/compile/980310-8.f b/gcc/testsuite/g77.f-torture/compile/980310-8.f
deleted file mode 100644 (file)
index 9501012..0000000
--- a/gcc/testsuite/g77.f-torture/compile/980310-8.f
+++ /dev/null
@@ -1,39 +0,0 @@
-C To: egcs-bugs@cygnus.com
-C Subject: egcs-g77 and array indexing
-C Reply-To: etseidl@jutland.ca.sandia.gov
-C Date: Wed, 26 Nov 1997 10:38:27 -0800
-C From: Edward Seidl <etseidl@jutland.ca.sandia.gov>
-C      
-C      I have some horrible spaghetti code I'm trying compile with egcs-g77,
-C      but it's puking on code like the example below.  I have no idea if it's
-C      legal fortran or not, and I'm in no position to change it.  All I do know
-C      is it compiles with a number of other compilers, including f2c and
-C      g77-0.5.19.1/gcc-2.7.2.1.  When I try to compile with egcs-2.90.18 971122
-C      I get the following (on both i686-pc-linux-gnu and alphaev56-unknown-linux-gnu):
-C      
-C      foo.f: In subroutine `foobar':
-C      foo.f:11: 
-C               subroutine foobar(norb,nnorb)
-C                                 ^
-C      Array `norb' at (^) is too large to handle
-
-      program foo
-      implicit integer(A-Z)
-      dimension norb(6)
-      nnorb=6
-
-      call foobar(norb,nnorb)
-
-      stop
-      end
-
-      subroutine foobar(norb,nnorb)
-      implicit integer(A-Z)
-      dimension norb(-1:*)
-
-      do 10 i=-1,nnorb-2
-        norb(i) = i+999
-  10  continue
-
-      return
-      end