Who knows m4?

[Steve Kargl]

PR 21797 appears to be related to the m4 used
to generate csqtf.  I think the attach patch will
fix 21797, but I have zero understanding of m4.
BTW, what's the magic incantation to regenerate the
generated files?

-- 
Steve
-------------- next part --------------
Index: cexp.m4
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/m4/cexp.m4,v
retrieving revision 1.4
diff -c -p -r1.4 cexp.m4
*** cexp.m4	12 Jan 2005 21:27:31 -0000	1.4
--- cexp.m4	28 May 2005 14:51:42 -0000
***************
*** 1,5 ****
  `/* Complex exponential functions
!    Copyright 2002, 2004 Free Software Foundation, Inc.
     Contributed by Paul Brook <paul@nowt.org>
  
  This file is part of the GNU Fortran 95 runtime library (libgfortran).
--- 1,5 ----
  `/* Complex exponential functions
!    Copyright 2002, 2004, 2005 Free Software Foundation, Inc.
     Contributed by Paul Brook <paul@nowt.org>
  
  This file is part of the GNU Fortran 95 runtime library (libgfortran).
*************** csqrt`'q (complex_type z)
*** 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));
          }
      }
*************** csqrt`'q (complex_type z)
*** 117,123 ****
      {
        real_type r;
  
!       r = sqrt`'q (0.5 * fabs (im));
  
        COMPLEX_ASSIGN (v, copysign`'q (r, im), r);
      }
--- 117,123 ----
      {
        real_type r;
  
!       r = sqrt`'q (0.5 * fabs`'q (im));
  
        COMPLEX_ASSIGN (v, copysign`'q (r, im), r);
      }