blob: 848d8e944cadc30f05cbe98b239e27f3762f6575 [file] [log] [blame]
 ! { 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