mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-23 10:31:22 +00:00
43 lines
675 B
Fortran
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
|