Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/gang-static-1.f90 @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } program main integer, parameter :: n = 100 integer i, a(n), b(n) integer x do i = 1, n b(i) = i end do !$acc parallel loop gang (static:*) num_gangs (10) do i = 1, n a(i) = b(i) + 0 end do !$acc end parallel loop call test (a, b, 0, n) !$acc parallel loop gang (static:1) num_gangs (10) do i = 1, n a(i) = b(i) + 1 end do !$acc end parallel loop call test (a, b, 1, n) !$acc parallel loop gang (static:2) num_gangs (10) do i = 1, n a(i) = b(i) + 2 end do !$acc end parallel loop call test (a, b, 2, n) !$acc parallel loop gang (static:5) num_gangs (10) do i = 1, n a(i) = b(i) + 5 end do !$acc end parallel loop call test (a, b, 5, n) !$acc parallel loop gang (static:20) num_gangs (10) do i = 1, n a(i) = b(i) + 20 end do !$acc end parallel loop call test (a, b, 20, n) x = 5 !$acc parallel loop gang (static:0+x) num_gangs (10) do i = 1, n a(i) = b(i) + 5 end do !$acc end parallel loop call test (a, b, 5, n) x = 10 !$acc parallel loop gang (static:x) num_gangs (10) do i = 1, n a(i) = b(i) + 10 end do !$acc end parallel loop call test (a, b, 10, n) end program main subroutine test (a, b, sarg, n) integer n integer a (n), b(n), sarg integer i do i = 1, n if (a(i) .ne. b(i) + sarg) STOP 1 end do end subroutine test