parent
9dae6a7f36
commit
c363a0c4a5
|
@ -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.
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue