diff options
| author | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 10:21:52 +0000 |
|---|---|---|
| committer | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 10:21:52 +0000 |
| commit | 21f43e2d798b8ec731ff4ad66a463d5033d53880 (patch) | |
| tree | bec5f88c4634d70667862a2fc6321492f52e99fb /gcc/fortran/f95-lang.c | |
| parent | 5ae67b1bc16ff12a479d2cfe16d1b315ed1dbd0f (diff) | |
| download | gcc-21f43e2d798b8ec731ff4ad66a463d5033d53880.tar.gz | |
2005-12-09 Richard Guenther <rguenther@suse.de>
* f95-lang.c (build_builtin_fntypes): Use correct
return types, as indicated by comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108277 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index d7bc19b0b4f..1ddad87e719 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); |