Skip to content

R
riscv-gcc-1
Commit 5a6452e6 by Tom de Vries Committed by Tom de Vries
Options

Add oacc kernels testcases in libgomp.oacc-fortran 

2016-03-09  Tom de Vries  <tom@codesourcery.com>

	* testsuite/libgomp.oacc-fortran/kernels-loop-2.f95: New test.
	* testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95: Same.
	* testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95:
	Same.
	* testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95: Same.
	* testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95: Same.
	* testsuite/libgomp.oacc-fortran/kernels-loop-data.f95: Same.
	* testsuite/libgomp.oacc-fortran/kernels-loop.f95: Same.

From-SVN: r234078
parent bf751f40
Showing with 255 additions and 0 deletions
libgomp/ChangeLog
2016-03-09 Tom de Vries <tom@codesourcery.com>
* testsuite/libgomp.oacc-fortran/kernels-loop-2.f95: New test.
* testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95: Same.
* testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95:
Same.
* testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95: Same.
* testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95: Same.
* testsuite/libgomp.oacc-fortran/kernels-loop-data.f95: Same.
* testsuite/libgomp.oacc-fortran/kernels-loop.f95: Same.
2016-03-07 Martin Jambor <mjambor@suse.cz>
* testsuite/lib/libgomp.exp
......
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-2.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc kernels copyout (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
!$acc kernels copyout (b(0:n-1))
do i = 0, n -1
b(i) = i * 4
end do
!$acc end kernels
!$acc kernels copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc data copyout (a(0:n-1))
!$acc kernels present (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
!$acc end data
!$acc data copyout (b(0:n-1))
!$acc kernels present (b(0:n-1))
do i = 0, n -1
b(i) = i * 4
end do
!$acc end kernels
!$acc end data
!$acc data copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
!$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
!$acc end data
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc enter data create (a(0:n-1))
!$acc kernels present (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
!$acc exit data copyout (a(0:n-1))
!$acc enter data create (b(0:n-1))
!$acc kernels present (b(0:n-1))
do i = 0, n -1
b(i) = i * 4
end do
!$acc end kernels
!$acc exit data copyout (b(0:n-1))
!$acc enter data copyin (a(0:n-1), b(0:n-1)) create (c(0:n-1))
!$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
!$acc exit data copyout (c(0:n-1))
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc enter data create (a(0:n-1), b(0:n-1), c(0:n-1))
!$acc kernels present (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
!$acc kernels present (b(0:n-1))
do i = 0, n -1
b(i) = i * 4
end do
!$acc end kernels
!$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
!$acc exit data copyout (a(0:n-1), b(0:n-1), c(0:n-1))
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc enter data create (a(0:n-1), b(0:n-1), c(0:n-1))
!$acc kernels present (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
do i = 0, n -1
b(i) = i * 4
end do
!$acc update device (b(0:n-1))
!$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
!$acc exit data copyout (a(0:n-1), c(0:n-1))
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
!$acc data copyout (a(0:n-1), b(0:n-1), c(0:n-1))
!$acc kernels present (a(0:n-1))
do i = 0, n - 1
a(i) = i * 2
end do
!$acc end kernels
!$acc kernels present (b(0:n-1))
do i = 0, n -1
b(i) = i * 4
end do
!$acc end kernels
!$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
!$acc end data
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95 0 → 100644
! { dg-do run }
! { dg-options "-ftree-parallelize-loops=32" }
program main
implicit none
integer, parameter :: n = 1024
integer, dimension (0:n-1) :: a, b, c
integer :: i, ii
do i = 0, n - 1
a(i) = i * 2
end do
do i = 0, n -1
b(i) = i * 4
end do
!$acc kernels copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
do ii = 0, n - 1
c(ii) = a(ii) + b(ii)
end do
!$acc end kernels
do i = 0, n - 1
if (c(i) .ne. a(i) + b(i)) call abort
end do
end program main
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment