diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2008-04-16 17:56:58 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2008-04-16 17:56:58 +0200 |
| commit | fc207c379c9b877e55256abc18bb8af9a7870d3d (patch) | |
| tree | ad33e4179bc6f612eb411239cdaee2f1b9f619f4 /gcc/fortran/f95-lang.c | |
| parent | 17c340e049b6cd5e282a020e484b789c678cbd39 (diff) | |
| download | gcc-fc207c379c9b877e55256abc18bb8af9a7870d3d.zip gcc-fc207c379c9b877e55256abc18bb8af9a7870d3d.tar.gz gcc-fc207c379c9b877e55256abc18bb8af9a7870d3d.tar.bz2 | |
re PR target/35662 (gfortran interfaces badly with glibc sincosf() causing breakage)
PR target/35662
* f95-lang.c (gfc_init_builtin_functions): Make sure
BUILT_IN_SINCOS{,F,L} types aren't varargs.
* gfortran.dg/pr35662.f90: New test.
From-SVN: r134349
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index eacaff8..4d2e978 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -848,21 +848,21 @@ gfc_init_builtin_functions (void) ptype = build_pointer_type (float_type_node); tmp = tree_cons (NULL_TREE, float_type_node, tree_cons (NULL_TREE, ptype, - build_tree_list (NULL_TREE, ptype))); + tree_cons (NULL_TREE, ptype, void_list_node))); func_float_floatp_floatp = build_function_type (void_type_node, tmp); ptype = build_pointer_type (double_type_node); tmp = tree_cons (NULL_TREE, double_type_node, tree_cons (NULL_TREE, ptype, - build_tree_list (NULL_TREE, ptype))); + tree_cons (NULL_TREE, ptype, void_list_node))); func_double_doublep_doublep = build_function_type (void_type_node, tmp); ptype = build_pointer_type (long_double_type_node); tmp = tree_cons (NULL_TREE, long_double_type_node, tree_cons (NULL_TREE, ptype, - build_tree_list (NULL_TREE, ptype))); + tree_cons (NULL_TREE, ptype, void_list_node))); func_longdouble_longdoublep_longdoublep = build_function_type (void_type_node, tmp); |