[patch, libfortran] Fix PR 21797

[Thomas Koenig]

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.

	Thomas

-------------- next part --------------
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));
          }
      }
Index: generated/exp_c4.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/generated/exp_c4.c,v
retrieving revision 1.4
diff -c -r1.4 exp_c4.c
*** generated/exp_c4.c	12 Jan 2005 21:27:32 -0000	1.4
--- generated/exp_c4.c	31 May 2005 20:16:31 -0000
***************
*** 108,114 ****
          }
        else
          {
!           COMPLEX_ASSIGN (v, fabsf (sqrt (re)),
                            copysignf (0.0, im));
          }
      }
--- 108,114 ----
          }
        else
          {
!           COMPLEX_ASSIGN (v, fabsf (sqrtf (re)),
                            copysignf (0.0, im));
          }
      }