f95-lang.c (build_builtin_fntypes): Use correct return types, as indicated by comments.

2005-12-09  Richard Guenther  <rguenther@suse.de>

        * f95-lang.c (build_builtin_fntypes): Use correct
        return types, as indicated by comments.

From-SVN: r108277

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 91a4046cdb566372b99c5960962603b6de2b1bcc..0f9cd13045166b43b872ca451f55d050f65061e5 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-09  Richard Guenther  <rguenther@suse.de>
+
+       * f95-lang.c (build_builtin_fntypes): Use correct
+       return types, as indicated by comments.
+
 2005-12-08  Erik Edelmann  <eedelman@gcc.gnu.org>
 
        PR fortran/25292

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index d7bc19b0b4f2513e7a07c024792550898b75f138..1ddad87e71993c126dd1998386210a2b4fdfe22f 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -772,10 +772,10 @@ build_builtin_fntypes (tree * fntype, tree type)
   tree tmp;
 
   /* type (*) (type) */
-  tmp = tree_cons (NULL_TREE, float_type_node, void_list_node);
+  tmp = tree_cons (NULL_TREE, type, void_list_node);
   fntype[0] = build_function_type (type, tmp);
   /* type (*) (type, type) */
-  tmp = tree_cons (NULL_TREE, float_type_node, tmp);
+  tmp = tree_cons (NULL_TREE, type, tmp);
   fntype[1] = build_function_type (type, tmp);
   /* type (*) (int, type) */
   tmp = tree_cons (NULL_TREE, integer_type_node, void_list_node);