The parameters for functions from the frexp family were the wrong way round.

The parameters for functions from the frexp family were the wrong way
round.  Swap them.

From-SVN: r171971

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 40b84dc04ab5f942de79978e561d21390b9a9986..5d3a799075e5b8b8475226c31207751431a2a70c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-05  Duncan Sands  <baldrick@free.fr>
+
+       * f95-lang.c (build_builtin_fntypes): Swap frexp parameter types.
+
 2010-04-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        * frontend-passes: (optimize_lexical_comparison): New function.

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 3340dc4ee247b5573489804ba4d01bbac3c0a007..728b6311a97eede57297f34e259890dcb862cb1f 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -695,10 +695,9 @@ build_builtin_fntypes (tree *fntype, tree type)
                                         type, integer_type_node, NULL_TREE);
   /* type (*) (void) */
   fntype[3] = build_function_type_list (type, NULL_TREE);
-  /* type (*) (&int, type) */
-  fntype[4] = build_function_type_list (type,
+  /* type (*) (type, &int) */
+  fntype[4] = build_function_type_list (type, type,
                                         build_pointer_type (integer_type_node),
-                                        type,
                                         NULL_TREE);
   /* type (*) (int, type) */
   fntype[5] = build_function_type_list (type,