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

gcc/fortran/ChangeLog

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

gcc/fortran/f95-lang.c

 /* 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;

gcc/testsuite/ChangeLog

+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>
 
 	* gcc.dg/ipa/ipa-pta-11.c: Adjust.

gcc/testsuite/gfortran.dg/gomp/pr43836.f90

+! 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