f95-lang.c (gfc_init_builtin_functions): Fix the number of __builtin_pow[f] arguments.

	* f95-lang.c (gfc_init_builtin_functions): Fix the number of
	__builtin_pow[f] arguments.

From-SVN: r85653

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4d0b3309ffc928aa71a1a3a536bc37e8ae234707..7eb4fb566b3653e971718f85072b83da41c74b28 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-06  Feng Wang  <fengwang@nudt.edu.cn>
+
+       * f95-lang.c (gfc_init_builtin_functions): Fix the number of
+       __builtin_pow[f] arguments.
+
 2004-08-06  Steven G. Kargl  <kargls@comcast.net>
 
        * arith.c: Add #define for model numbers.  Remove global GMP variables.

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 3afeb668e654a625100029e1d762147f2ec80829..78bf19a924b80d5e49b215afea4da441fd788ec0 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -750,9 +750,9 @@ gfc_init_builtin_functions (void)
                      BUILT_IN_ROUNDF, "roundf", true);
 
   /* These are used to implement the ** operator.  */
-  gfc_define_builtin ("__builtin_pow", mfunc_double[0], 
+  gfc_define_builtin ("__builtin_pow", mfunc_double[1], 
                      BUILT_IN_POW, "pow", true);
-  gfc_define_builtin ("__builtin_powf", mfunc_float[0], 
+  gfc_define_builtin ("__builtin_powf", mfunc_float[1], 
                      BUILT_IN_POWF, "powf", true);
 
   /* Other builtin functions we use.  */