Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 19981119-0.f

diff --git a/gcc/testsuite/g77.f-torture/execute/19981119-0.f b/gcc/testsuite/g77.f-torture/execute/19981119-0.f
deleted file mode 100644 (file)
index 5cfab57..0000000
--- a/gcc/testsuite/g77.f-torture/execute/19981119-0.f
+++ /dev/null
@@ -1,40 +0,0 @@
-* X-Delivered: at request of burley on mescaline.gnu.org
-* Date: Sat, 31 Oct 1998 18:26:29 +0200 (EET)
-* From: "B. Yanchitsky" <yan@im.imag.kiev.ua>
-* To: fortran@gnu.org
-* Subject: Bug report
-* MIME-Version: 1.0
-* Content-Type: TEXT/PLAIN; charset=US-ASCII
-* 
-* There is a trouble with g77 on Alpha.
-* My configuration: 
-* Digital Personal Workstation 433au,
-* Digital Unix 4.0D,
-* GNU Fortran 0.5.23 and GNU C 2.8.1.
-* 
-* The following program treated successfully but crashed when running. 
-* 
-* C --- PROGRAM BEGIN -------
-* 
-      subroutine sub(N,u)
-      integer N
-      double precision u(-N:N,-N:N)
-
-C vvvv    CRASH HERE   vvvvv   
-      u(-N,N)=0d0
-      return
-      end
-
-
-      program bug
-      integer N
-      double precision a(-10:10,-10:10)
-      data a/441*1d0/
-      N=10
-      call sub(N,a)
-      if (a(-N,N) .ne. 0d0) call abort
-      end
-* 
-* C --- PROGRAM END -------
-* 
-* Good luck!