OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

New test

Browse Source 
From-SVN: r28899
This commit is contained in:
Craig Burley 1999-08-26 17:25:27 +00:00 committed by Craig Burley
parent 9dae6a7f36
commit c363a0c4a5
2 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/ChangeLog
View File

@ -1,5 +1,7 @@
1999-08-26 Craig Burley <craig@jcb-sc.com> 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. * g77.f-torture/compile/19990826-1.f: New test.
* gcc.c-torture/execute/990826-0.c: New test. * gcc.c-torture/execute/990826-0.c: New test.

33
gcc/testsuite/g77.f-torture/execute/19990826-2.f Normal file
View File

@ -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