| commit | 8eb62d945316a8c5e056a7d29f0fe8acea7b2d8e | |
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 15 Nov 2005 08:06:20 +0000 (15 08:06 +0000) | ||
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 15 Nov 2005 08:06:20 +0000 (15 08:06 +0000) | ||
| tree | ed863bfd30cf8c7f3369246060ac47293ea21c5a | treesnapshot (tar.gz zip) |
| parent | 2db0ef8a09875b0de2556dacdb1b8a2288347b96 | commitdiff |
* trans-openmp.c (gfc_trans_omp_do): Add PBLOCK argument. If PBLOCK
is non-NULL, evaluate INIT/COND/INCR and chunk size expressions in
that statement block.
(gfc_trans_omp_parallel_do): Pass non-NULL PBLOCK to gfc_trans_omp_do
for non-ordered non-static combined loops.
(gfc_trans_omp_directive): Pass NULL PBLOCK to gfc_trans_omp_do.
* gfortran.dg/gomp/do-1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-20050608-branch@106944 138bc75d-0d04-0410-961f-82ee72b054a4
is non-NULL, evaluate INIT/COND/INCR and chunk size expressions in
that statement block.
(gfc_trans_omp_parallel_do): Pass non-NULL PBLOCK to gfc_trans_omp_do
for non-ordered non-static combined loops.
(gfc_trans_omp_directive): Pass NULL PBLOCK to gfc_trans_omp_do.
* gfortran.dg/gomp/do-1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-20050608-branch@106944 138bc75d-0d04-0410-961f-82ee72b054a4