diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-02-26 20:36:41 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-02-26 20:36:41 +0100 |
| commit | adb3f0936d2f66b8c2aa96f671f5c112f274373f (patch) | |
| tree | 1550250c5c18ab79e95d3fa018aba9b48caf6e1d /gcc/fortran/openmp.c | |
| parent | 1c379b783e583f7af055a0e0470cbf825488448f (diff) | |
| download | gcc-adb3f0936d2f66b8c2aa96f671f5c112f274373f.zip gcc-adb3f0936d2f66b8c2aa96f671f5c112f274373f.tar.gz gcc-adb3f0936d2f66b8c2aa96f671f5c112f274373f.tar.bz2 | |
re PR fortran/47886 (ICE: OpenMP !$omp task if(omp_get_num_threads() > 0))
2011-02-26 Tobias Burnus <burnus@net-b.de>
PR fortran/47886
* openmp.c (gfc_resolve_omp_directive): Resolve if()
condition of OpenMP's task.
2011-02-26 Tobias Burnus <burnus@net-b.de>
PR fortran/47886
* gfortran.dg/gomp/task-1.f90: New.
From-SVN: r170521
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 24e32eb..2b70c69 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -1573,6 +1573,7 @@ gfc_resolve_omp_directive (gfc_code *code, gfc_namespace *ns ATTRIBUTE_UNUSED) case EXEC_OMP_PARALLEL_SECTIONS: case EXEC_OMP_SECTIONS: case EXEC_OMP_SINGLE: + case EXEC_OMP_TASK: if (code->ext.omp_clauses) resolve_omp_clauses (code); break; |