diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/nestedfn4.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 deleted file mode 100644 index c987bf440..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 +++ /dev/null @@ -1,41 +0,0 @@ -program foo - integer :: i, j, k - integer :: a(10), c(10) - k = 2 - a(:) = 0 - call test1 - call test2 - do i = 1, 10 - if (a(i) .ne. 10 * i) call abort - end do - !$omp parallel do reduction (+:c) - do i = 1, 10 - c = c + a - end do - do i = 1, 10 - if (c(i) .ne. 10 * a(i)) call abort - end do - !$omp parallel do lastprivate (j) - do j = 1, 10, k - end do - if (j .ne. 11) call abort -contains - subroutine test1 - integer :: i - integer :: b(10) - do i = 1, 10 - b(i) = i - end do - c(:) = 0 - !$omp parallel do reduction (+:a) - do i = 1, 10 - a = a + b - end do - end subroutine test1 - subroutine test2 - !$omp parallel do lastprivate (j) - do j = 1, 10, k - end do - if (j .ne. 11) call abort - end subroutine test2 -end program foo |