diff options
| author | Richard Guenther <rguenther@suse.de> | 2005-12-09 10:21:52 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2005-12-09 10:21:52 +0000 |
| commit | fb2d50f586c7a830d5a40e0f77fbdbba3ca10849 (patch) | |
| tree | bec5f88c4634d70667862a2fc6321492f52e99fb /gcc/fortran | |
| parent | 2cf2d928fc41f13373db65aa00589bdc374a857b (diff) | |
| download | gcc-fb2d50f586c7a830d5a40e0f77fbdbba3ca10849.zip gcc-fb2d50f586c7a830d5a40e0f77fbdbba3ca10849.tar.gz gcc-fb2d50f586c7a830d5a40e0f77fbdbba3ca10849.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 91a4046..0f9cd13 100644 --- 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 d7bc19b..1ddad87 100644 --- 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); |