Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! This test checks if the runtime can properly handle implicit ! firstprivate varaibles inside subroutines in modules. ! { dg-do run } module test_mod contains subroutine test(x) IMPLICIT NONE INTEGER :: x, y, j x = 5 !$ACC PARALLEL LOOP copyout (y) DO j=1,10 y=x ENDDO !$ACC END PARALLEL LOOP y = -1; !$ACC PARALLEL LOOP firstprivate (y) copyout (x) DO j=1,10 x=y ENDDO !$ACC END PARALLEL LOOP end subroutine test end module test_mod program t use test_mod INTEGER :: x_min x_min = 8 CALL test(x_min) if (x_min .ne. -1) STOP 1 end program t