From: Duncan Sands <baldrick@free.fr>
Date: Tue, 5 Apr 2011 10:59:38 +0000 (+0200)
Subject: The parameters for functions from the frexp and scalbn families were the wrong way... 
X-Git-Tag: releases/gcc-4.5.3~113
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e0003021619551e6f02ebe5f61a4c51843a8705b;p=thirdparty%2Fgcc.git

The parameters for functions from the frexp and scalbn families were the wrong way round.

The parameters for functions from the frexp and scalbn families
were the wrong way round.  Swap them.

From-SVN: r171979
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ec23216ae08d..2ebd1b4b9991 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-05  Duncan Sands  <baldrick@free.fr>
+
+	* f95-lang.c (build_builtin_fntypes): Swap frexp and scalbn parameter
+	types.
+
 2011-03-13  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/47348
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 9fddaf77db19..cce07cb66890 100644
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -646,19 +646,20 @@ build_builtin_fntypes (tree *fntype, tree type)
   /* type (*) (type, type) */
   tmp = tree_cons (NULL_TREE, type, tmp);
   fntype[1] = build_function_type (type, tmp);
-  /* type (*) (int, type) */
+  /* type (*) (type, int) */
   tmp = tree_cons (NULL_TREE, integer_type_node, void_list_node);
   tmp = tree_cons (NULL_TREE, type, tmp);
   fntype[2] = build_function_type (type, tmp);
   /* type (*) (void) */
   fntype[3] = build_function_type (type, void_list_node);
   /* type (*) (type, &int) */
-  tmp = tree_cons (NULL_TREE, type, void_list_node);
-  tmp = tree_cons (NULL_TREE, build_pointer_type (integer_type_node), tmp);
+  tmp = tree_cons (NULL_TREE, build_pointer_type (integer_type_node),
+                   void_list_node);
+  tmp = tree_cons (NULL_TREE, type, tmp);
   fntype[4] = build_function_type (type, tmp);
   /* type (*) (type, int) */
-  tmp = tree_cons (NULL_TREE, type, void_list_node);
-  tmp = tree_cons (NULL_TREE, integer_type_node, tmp);
+  tmp = tree_cons (NULL_TREE, integer_type_node, void_list_node);
+  tmp = tree_cons (NULL_TREE, type, tmp);
   fntype[5] = build_function_type (type, tmp);
 }