mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-10 04:19:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR target/35662 (gfortran interfaces badly with glibc sincosf() causing breakage)

Browse Source 
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
This commit is contained in:
Jakub Jelinek 2008-04-16 17:56:58 +02:00 committed by Jakub Jelinek
parent 17c340e049
commit fc207c379c
4 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

6
gcc/fortran/f95-lang.c
View File

@ -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);

5
gcc/testsuite/ChangeLog
View File

@ -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.

20
gcc/testsuite/gfortran.dg/pr35662.f90 Normal file
View File

@ -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