diff options
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 3 |
1 files changed, 3 insertions, 0 deletions
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: |