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 | |
| 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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr35662.f90 | 20 |
4 files changed, 34 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dd5ef5b..f7ed06b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-04-16 Jakub Jelinek <jakub@redhat.com> + + PR target/35662 + * f95-lang.c (gfc_init_builtin_functions): Make sure + BUILT_IN_SINCOS{,F,L} types aren't varargs. + 2008-04-15 Paul Thomas <pault@gcc.gnu.org> PR fortran/35864 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); diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index de3305f..0c4c417 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-04-16 Jakub Jelinek <jakub@redhat.com> + + PR target/35662 + * gfortran.dg/pr35662.f90: New test. + 2008-04-16 Richard Guenther <rguenther@suse.de> * gcc.dg/tree-ssa/loop-35.c: New testcase. diff --git a/gcc/testsuite/gfortran.dg/pr35662.f90 b/gcc/testsuite/gfortran.dg/pr35662.f90 new file mode 100644 index 0000000..33095f0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr35662.f90 @@ -0,0 +1,20 @@ +! PR target/35662 +! { dg-do run } +! { dg-options "-O1" } + +subroutine f(x, y, z) + real, intent (in) :: x + real, intent (out) :: y, z + y = sin (x) + z = cos (x) +end subroutine f + +program pr35662 + real :: x, y, z + x = 3.1415926535897932384626433832795029 + call f (x, y, z) + if (abs (y) > 1.0e-5 .or. abs (z + 1.0) > 1.0e-5) call abort + x = x / 2.0 + call f (x, y, z) + if (abs (y - 1.0) > 1.0e-5 .or. abs (z) > 1.0e-5) call abort +end program pr35662 |