diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-04-21 23:20:07 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-04-21 23:20:07 +0200 |
| commit | 2b65cd83e9a09a18d44984ca261b40b84d2eaeab (patch) | |
| tree | f93a8619f89a854ac49ab65ed278a4b41075e48e /gcc/fortran/f95-lang.c | |
| parent | e792884f755b35f38d3868ec17473ac608f7dffd (diff) | |
| download | gcc-2b65cd83e9a09a18d44984ca261b40b84d2eaeab.zip gcc-2b65cd83e9a09a18d44984ca261b40b84d2eaeab.tar.gz gcc-2b65cd83e9a09a18d44984ca261b40b84d2eaeab.tar.bz2 | |
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: r158619
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 96ff8bb..8efa6de 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -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. @@ -608,6 +608,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; |