This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
RE: single precision complex bug in g77 - was Testing g77 with LAPACK 3.0
- To: "Billinghurst, David (RTD)" <David dot Billinghurst at riotinto dot com dot au>, "'egcs-bugs at egcs dot cygnus dot com'" <egcs-bugs at egcs dot cygnus dot com>
- Subject: RE: single precision complex bug in g77 - was Testing g77 with LAPACK 3.0
- From: "Billinghurst, David (RTD)" <David dot Billinghurst at riotinto dot com dot au>
- Date: Wed, 7 Jul 1999 23:55:11 -0000
- Cc: "'egcs at egcs dot cygnus dot com'" <egcs at egcs dot cygnus dot com>
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
>