From: tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 12 Jun 2005 21:00:57 +0000 (+0000)
Subject: 2005-06-12  Steven G. Kargl <kargls@comcast.net>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=bc51db285ecda0ea35f135b917e07ffffe308a46;hp=513b6a0570bbae748a21459a19cb3e8bbebf95f5;ds=sidebyside

2005-06-12  Steven G. Kargl <kargls@comcast.net>
	    Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/PR21797
	* m4/cexp.m4 (csqrt`'q):  Add type qualifyer to
	sqrt and fabs.
	* generated/exp_c4.c:  Regenerated.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100864 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0d164fe1920..d596186836a 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,11 @@
+2005-06-12  Steven G. Kargl <kargls@comcast.net>
+	    Thomas Koenig  <Thomas.Koenig@online.de>
+
+	PR libfortran/PR21797
+	* m4/cexp.m4 (csqrt`'q):  Add type qualifyer to
+	sqrt and fabs.
+	* generated/exp_c4.c:  Regenerated.
+
 2005-06-12  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR libfortran/19155
diff --git a/libgfortran/generated/exp_c4.c b/libgfortran/generated/exp_c4.c
index 149d7d0d34e..c4bc41bad20 100644
--- a/libgfortran/generated/exp_c4.c
+++ b/libgfortran/generated/exp_c4.c
@@ -108,7 +108,7 @@ csqrtf (GFC_COMPLEX_4 z)
         }
       else
         {
-          COMPLEX_ASSIGN (v, fabsf (sqrt (re)),
+          COMPLEX_ASSIGN (v, fabsf (sqrtf (re)),
                           copysignf (0.0, im));
         }
     }
@@ -116,7 +116,7 @@ csqrtf (GFC_COMPLEX_4 z)
     {
       GFC_REAL_4 r;
 
-      r = sqrtf (0.5 * fabs (im));
+      r = sqrtf (0.5 * fabsf (im));
 
       COMPLEX_ASSIGN (v, copysignf (r, im), r);
     }
diff --git a/libgfortran/m4/cexp.m4 b/libgfortran/m4/cexp.m4
index 13e34da841d..7b92b790447 100644
--- a/libgfortran/m4/cexp.m4
+++ b/libgfortran/m4/cexp.m4
@@ -109,7 +109,7 @@ csqrt`'q (complex_type z)
         }
       else
         {
-          COMPLEX_ASSIGN (v, fabs`'q (sqrt (re)),
+          COMPLEX_ASSIGN (v, fabs`'q (sqrt`'q (re)),
                           copysign`'q (0.0, im));
         }
     }
@@ -117,7 +117,7 @@ csqrt`'q (complex_type z)
     {
       real_type r;
 
-      r = sqrt`'q (0.5 * fabs (im));
+      r = sqrt`'q (0.5 * fabs`'q (im));
 
       COMPLEX_ASSIGN (v, copysign`'q (r, im), r);
     }