From 602b85231dd432fdad1cdb814eec39d449a33d7f Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 15 May 2009 08:52:41 +0200 Subject: re PR fortran/39352 (gfortran.dg/vect/pr39318.f90 doesn't work on ia64) 2009-05-15 Tobias Burnus PR fortran/39352 * f95-lang.c: Add gfc_maybe_initialize_eh. * gfortran.h: Add gfc_maybe_initialize_eh prototype. * Make-lang.in: Add new .h dendencies for f95-lang.c * openmp.c (resolve_omp_do): Call gfc_maybe_initialize_eh. * misc.c (gfc_free): Avoid #define trickery for free. From-SVN: r147559 --- gcc/fortran/openmp.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/fortran/openmp.c') diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 0e9dda8..608d605 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -1503,6 +1503,9 @@ resolve_omp_do (gfc_code *code) void gfc_resolve_omp_directive (gfc_code *code, gfc_namespace *ns ATTRIBUTE_UNUSED) { + if (code->op != EXEC_OMP_ATOMIC) + gfc_maybe_initialize_eh (); + switch (code->op) { case EXEC_OMP_DO: -- cgit v1.1