diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2006-07-16 22:19:27 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2006-07-16 22:19:27 +0200 |
| commit | 742fae059b1fdc29fe83d5151b47a41684433f18 (patch) | |
| tree | 6ee884f0b083b665ed63861a34cbb674ebe062cc /libgomp/testsuite | |
| parent | 42ccbf3d11f315dc0752c58efb572451a27f82ce (diff) | |
| download | gcc-742fae059b1fdc29fe83d5151b47a41684433f18.tar.gz | |
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
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/pr28390.f | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/pr28390.f b/libgomp/testsuite/libgomp.fortran/pr28390.f new file mode 100644 index 00000000000..68fc32b6f50 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/pr28390.f @@ -0,0 +1,8 @@ +! PR fortran/28390 + program pr28390 + integer i +!$omp parallel do lastprivate(i) + do i=1,100 + end do + if (i.ne.101) call abort + end |