re PR fortran/28390 (Broken !$omp parallel do lastprivate(iterationvar))
authorJakub Jelinek <jakub@redhat.com>
Sun, 16 Jul 2006 20:19:27 +0000 (22:19 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Sun, 16 Jul 2006 20:19:27 +0000 (22:19 +0200)
commit742fae059b1fdc29fe83d5151b47a41684433f18
tree6ee884f0b083b665ed63861a34cbb674ebe062cc
parent42ccbf3d11f315dc0752c58efb572451a27f82ce
re PR fortran/28390 (Broken !$omp parallel do lastprivate(iterationvar))

PR fortran/28390
* trans-openmp.c (gfc_trans_omp_do): Look for LASTPRIVATE in
code->exp.omp_clauses rather than in the 3rd function argument.

* testsuite/libgomp.fortran/pr28390.f: New test.

From-SVN: r115504
gcc/fortran/ChangeLog
gcc/fortran/trans-openmp.c
libgomp/ChangeLog
libgomp/testsuite/libgomp.fortran/pr28390.f [new file with mode: 0644]