Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90
2018-12-28 16:30:48 +01:00

43 lines
675 B
Fortran

! 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