Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 19990826-2.f

diff --git a/gcc/testsuite/g77.f-torture/execute/19990826-2.f b/gcc/testsuite/g77.f-torture/execute/19990826-2.f
deleted file mode 100644 (file)
index 30bdb30..0000000
--- a/gcc/testsuite/g77.f-torture/execute/19990826-2.f
+++ /dev/null
@@ -1,33 +0,0 @@
-* From: "Billinghurst, David (RTD)" <David.Billinghurst@riotinto.com.au>
-* Subject: RE: single precision complex bug in g77 - was Testing g77 with LA
-*      PACK 3.0
-* Date: Thu, 8 Jul 1999 00:55:11 +0100 
-* X-UIDL: b00d9d8081a36fef561b827d255dd4a5
-
-* Here is a slightly simpler and neater test case
-
-      program labug3
-      implicit none
-
-*  This program gives the wrong answer on mips-sgi-irix6.5
-*  when compiled with g77 from egcs-19990629 (gcc 2.95 prerelease)
-*  Get a = 0.0 when it should be 1.0 
-*
-*  Works with:  -femulate-complex
-*               egcs-1.1.2 
-*
-*  Originally derived from LAPACK 3.0 test suite.
-*
-*  David Billinghurst, (David.Billinghurst@riotinto.com.au)
-*  8 July 1999
-* 
-      complex one, z
-      real    a, f1
-      f1(z) = real(z)
-      one = (1.,0.)
-      a = f1(one) 
-      if ( abs(a-1.0) .gt. 1.0e-5 ) then
-         write(6,*) 'A should be 1.0 but it is',a
-         call abort()
-      end if
-      end