diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90 | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90 deleted file mode 100644 index dbcc3b71d..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90 +++ /dev/null @@ -1,53 +0,0 @@ -! PR fortran/42162 -! { dg-do run } - -subroutine sub1(k, a) - implicit none - integer :: k, a(3) - !$omp do - do k=1,3 - a(k) = a(k) + 1 - enddo - !$omp end do -end subroutine sub1 - -subroutine sub2(k, a) - implicit none - integer :: k, a(3) - !$omp do private (k) - do k=1,3 - a(k) = a(k) + 1 - enddo - !$omp end do -end subroutine sub2 - -subroutine sub3(k, a) - implicit none - integer :: k, a(3) - !$omp do lastprivate (k) - do k=1,3 - a(k) = a(k) + 1 - enddo - !$omp end do -end subroutine sub3 - -program pr42162 - implicit none - integer :: k, a(3), b(3), c(3) - a = 1 - b = 2 - c = 3 - k = 3 - !$omp parallel num_threads(3) - call sub1 (k, a) - !$omp end parallel - k = 4 - !$omp parallel num_threads(3) - call sub2 (k, b) - !$omp end parallel - k = 10 - !$omp parallel num_threads(3) - call sub3 (k, c) - !$omp end parallel - if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) call abort -end |