Re: [patch, libfortran] Fix PR 21797

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

On Tue, May 31, 2005 at 11:22:47PM +0200, Thomas Koenig wrote:
> On Tue, May 31, 2005 at 10:47:45PM +0200, Steven Bosscher wrote:
> 
> > Did you perhaps forget to attach the patch?
> 
> Yes, I did.  Here it is.
> 

> Index: m4/cexp.m4
> ===================================================================
> RCS file: /cvs/gcc/gcc/libgfortran/m4/cexp.m4,v
> retrieving revision 1.4
> diff -c -r1.4 cexp.m4
> *** m4/cexp.m4	12 Jan 2005 21:27:31 -0000	1.4
> --- m4/cexp.m4	31 May 2005 20:16:31 -0000
> ***************
> *** 109,115 ****
>           }
>         else
>           {
> !           COMPLEX_ASSIGN (v, fabs`'q (sqrt (re)),
>                             copysign`'q (0.0, im));
>           }
>       }
> --- 109,115 ----
>           }
>         else
>           {
> !           COMPLEX_ASSIGN (v, fabs`'q (sqrt`'q (re)),
>                             copysign`'q (0.0, im));
>           }
>       }


That's only part of the cexp.m4 patch that I posted.  Here's the
entire patch, again.  Note, the second chunk fixes a fabs to 
fabs`'q problem.

-- 
Steve

Attachment: cexp.m4.diff
Description: Text document