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
This commit is contained in:
Richard Guenther 2005-12-09 10:21:52 +00:00 committed by Richard Biener
parent 2cf2d928fc
commit fb2d50f586
2 changed files with 7 additions and 2 deletions

View file

@ -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

View file

@ -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);