single precision complex bug in g77 - was Testing g77 with LAPACK 3.0

["Billinghurst, David (RTD)" <David dot Billinghurst at riotinto dot com dot au>]

Here is a 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) 
*
*  Works with:  -femulate-complex
*               egcs-1.1.2 
*
*  Originally derived from LAPACK 3.0 test suite.
*
*  David Billinghurst, (David.Billinghurst@riotinto.com.au)
*  7 July 1999
* 
      complex one, z
      real    a,cabs1
      CABS1( Z) = ABS( REAL( Z)) + ABS( AIMAG(Z))
      one = (1.,0.)
      a = cabs1(one)
      if ( abs(a-one) .gt. 1.0e-5 ) then
         write(6,*) 'A should be 1.0'
         call abort()
      end if
      end
###############################################################


> -----Original Message-----
> From:	Billinghurst, David (RTD) [SMTP:David.Billinghurst@riotinto.com.au]
> Sent:	Wednesday 7 July 1999 9:40
> To:	'Toon Moene'
> Cc:	'egcs@egcs.cygnus.com'
> Subject:	RE: Testing g77 with LAPACK 3.0
> 
> Sorry for the lack of detail - I was running for the door last night.
> 
> Compiles OK, with trivial patch.
> A couple of test cases seem to run forever - certainly much longer than
> they
> should so I killed them
> Some massive test failures - orders of magnitude wrong.
> 
> All recent snapshots, up to egcs-19990629 pass LAPACK 2.0 testsuite with
> "-O3 -funroll-loops"
> 
> I plan to run the testsuite with increasing levels of optimisation,
> starting
> with
>   -O0
>   -O1
>   -O2
> then I will throw in -funroll-loops and -femulate-complex
> 
> Good chance I can generate a simple test case when I can get a free
> evening.
> 
> 
> > -----Original Message-----
> > From:	Toon Moene [SMTP:toon@moene.indiv.nluug.nl]
> > Sent:	Wednesday, 7 July 1999 5:58
> > To:	Billinghurst, David (RTD)
> > Cc:	'egcs@egcs.cygnus.com'
> > Subject:	Re: Testing g77 with LAPACK 3.0
> > 
> > Billinghurst, David (RTD) wrote:
> > 
> > > Here are some preliminary results of some g77 testing against LAPACK
> 3.0
> > > (http://www.netlib.org/lapack/), which was released last week, on
> > > mips-sig-irix6.5
> > 
> > > Results from egcs-19990629 are not so good.  Seem to be some single
> > > precision
> > > complex problems.  May not have time to investigate further for a few
> > days.
> > 
> > NOOOO !!!  We don't want to go back to -femulate-complex.
> > 
> > You didn't say what problems:  Problems compiling, running, or getting
> > good test results ?  What if you rerun the stuff compiled with the
> > additional flag -femulate-complex ?
> > 
> > -- 
> > Toon Moene (toon@moene.indiv.nluug.nl)
> > Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
> > Phone: +31 346 214290; Fax: +31 346 214286
> > GNU Fortran: http://world.std.com/~burley/g77.html