OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r158621
This commit is contained in:
Jakub Jelinek 2010-04-21 23:26:11 +02:00 committed by Jakub Jelinek
parent fcc4c42256
commit 110303ba43
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>
* intrinsic.c (sort_actual): Remove 'is' in error message.

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

@ -1,5 +1,5 @@
/* 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.
Contributed by Paul Brook.
@ -687,6 +687,7 @@ gfc_define_builtin (const char *name,
library_name, NULL_TREE);
if (const_p)
TREE_READONLY (decl) = 1;
TREE_NOTHROW (decl) = 1;
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-20 Jakub Jelinek <jakub@redhat.com>
PR fortran/43339

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