New test

From-SVN: r28899

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a58e18428fbb4583354d4d38c27e5a8e4b65299d..4b0e26c5354ed503c35ec8d2bd11cb29a368938b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 1999-08-26  Craig Burley  <craig@jcb-sc.com>
 
+       * g77.f-torture/execute/19990826-2.f: New test.
+
        * g77.f-torture/compile/19990826-1.f: New test.
 
        * gcc.c-torture/execute/990826-0.c: New test.

diff --git a/gcc/testsuite/g77.f-torture/execute/19990826-2.f b/gcc/testsuite/g77.f-torture/execute/19990826-2.f
new file mode 100644 (file)
index 0000000..30bdb30
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/19990826-2.f
@@ -0,0 +1,33 @@
+* 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