diff options
| -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 |