procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/43836 (ice with -fexceptions and -fopenmp)

Browse source 
PR fortran/43836
	* f95-lang.c (gfc_define_builtin): Set TREE_NOTHROW on
	the decl.

	* gfortran.dg/gomp/pr43836.f90: New test.

From-SVN: r158619
This commit is contained in:
Jakub Jelinek 2010-04-21 23:20:07 +02:00 • committed by Jakub Jelinek
parent e792884f75
commit 2b65cd83e9
4 changed files with 23 additions and 1 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 @@
2010-04-21 Jakub Jelinek <jakub@redhat.com>
PR fortran/43836
* f95-lang.c (gfc_define_builtin): Set TREE_NOTHROW on
the decl.
2010-04-20 Harald Anlauf <anlauf@gmx.de> 2010-04-20 Harald Anlauf <anlauf@gmx.de>
* intrinsic.c (sort_actual): Remove 'is' in error message. * intrinsic.c (sort_actual): Remove 'is' in error message.

3
gcc/fortran/f95-lang.c
View file

@ -1,5 +1,5 @@
/* gfortran backend interface /* gfortran backend interface
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010
Free Software Foundation, Inc. Free Software Foundation, Inc.
Contributed by Paul Brook. Contributed by Paul Brook.
@ -608,6 +608,7 @@ gfc_define_builtin (const char *name,
library_name, NULL_TREE); library_name, NULL_TREE);
if (const_p) if (const_p)
TREE_READONLY (decl) = 1; TREE_READONLY (decl) = 1;
TREE_NOTHROW (decl) = 1;
built_in_decls[code] = decl; built_in_decls[code] = decl;
implicit_built_in_decls[code] = decl; implicit_built_in_decls[code] = decl;

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2010-04-21 Jakub Jelinek <jakub@redhat.com>
PR fortran/43836
* gfortran.dg/gomp/pr43836.f90: New test.
2010-04-21 Richard Guenther <rguenther@suse.de> 2010-04-21 Richard Guenther <rguenther@suse.de>
* gcc.dg/ipa/ipa-pta-11.c: Adjust. * gcc.dg/ipa/ipa-pta-11.c: Adjust.

10
gcc/testsuite/gfortran.dg/gomp/pr43836.f90 Normal file
View file

@ -0,0 +1,10 @@
! PR fortran/43836
! { dg-do compile }
! { dg-options "-fopenmp -fexceptions -O2" }
subroutine foo
!$omp single
!$omp parallel
call bar
!$omp end parallel
!$omp end single
end subroutine foo