Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90

! { dg-do run }
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }

program main
  use openacc
  implicit none

  integer, parameter :: N = 32
  real, allocatable :: a(:), b(:), c(:)
  integer i

  i = 0

  allocate (a(N))
  allocate (b(N))
  allocate (c(N))

  a(:) = 3.0
  b(:) = 0.0

  !$acc parallel copyin (a(1:N)) copyout (b(1:N))
    do i = 1, N
      b(i) = a(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (b(i) .ne. 3.0) STOP 1
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 2
  if (acc_is_present (b) .eqv. .TRUE.) STOP 3

  a(:) = 5.0
  b(:) = 1.0

  !$acc parallel copyin (a(1:N)) copyout (b(1:N))
    do i = 1, N
      b(i) = a(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (b(i) .ne. 5.0) STOP 4
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 5
  if (acc_is_present (b) .eqv. .TRUE.) STOP 6

  a(:) = 6.0
  b(:) = 0.0

  call acc_copyin (a, sizeof (a))

  a(:) = 9.0

  !$acc parallel present_or_copyin (a(1:N)) copyout (b(1:N))
    do i = 1, N
      b(i) = a(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (b(i) .ne. 6.0) STOP 7
  end do

  call acc_copyout (a, sizeof (a))

  if (acc_is_present (a) .eqv. .TRUE.) STOP 8
  if (acc_is_present (b) .eqv. .TRUE.) STOP 9

  a(:) = 6.0
  b(:) = 0.0

  !$acc parallel copyin (a(1:N)) present_or_copyout (b(1:N))
     do i = 1, N
       b(i) = a(i)
     end do
  !$acc end parallel

  do i = 1, N
     if (b(i) .ne. 6.0) STOP 10
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 11
  if (acc_is_present (b) .eqv. .TRUE.) STOP 12

  a(:) = 5.0
  b(:) = 2.0

  call acc_copyin (b, sizeof (b))

  !$acc parallel copyin (a(1:N)) present_or_copyout (b(1:N))
     do i = 1, N
       b(i) = a(i)
     end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 5.0) STOP 13
    if (b(i) .ne. 2.0) STOP 14
  end do

  call acc_copyout (b, sizeof (b))

  if (acc_is_present (a) .eqv. .TRUE.) STOP 15
  if (acc_is_present (b) .eqv. .TRUE.) STOP 16

  a(:) = 3.0;
  b(:) = 4.0;

  !$acc parallel copy (a(1:N)) copyout (b(1:N))
    do i = 1, N
      a(i) = a(i) + 1
      b(i) = a(i) + 2
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 4.0) STOP 17
    if (b(i) .ne. 6.0) STOP 18
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 19
  if (acc_is_present (b) .eqv. .TRUE.) STOP 20

  a(:) = 4.0
  b(:) = 7.0

  !$acc parallel present_or_copy (a(1:N)) present_or_copy (b(1:N))
    do i = 1, N
      a(i) = a(i) + 1
      b(i) = b(i) + 2
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 5.0) STOP 21
    if (b(i) .ne. 9.0) STOP 22
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 23
  if (acc_is_present (b) .eqv. .TRUE.) STOP 24

  a(:) = 3.0
  b(:) = 7.0

  call acc_copyin (a, sizeof (a))
  call acc_copyin (b, sizeof (b))

  !$acc parallel present_or_copy (a(1:N)) present_or_copy (b(1:N))
    do i = 1, N
      a(i) = a(i) + 1
      b(i) = b(i) + 2
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 3.0) STOP 25
    if (b(i) .ne. 7.0) STOP 26
  end do

  call acc_copyout (a, sizeof (a))
  call acc_copyout (b, sizeof (b))

  if (acc_is_present (a) .eqv. .TRUE.) STOP 27
  if (acc_is_present (b) .eqv. .TRUE.) STOP 28

  a(:) = 3.0
  b(:) = 7.0

  !$acc parallel copyin (a(1:N)) create (c(1:N)) copyout (b(1:N))
    do i = 1, N
      c(i) = a(i)
      b(i) = c(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 3.0) STOP 29
    if (b(i) .ne. 3.0) STOP 30
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 31
  if (acc_is_present (b) .eqv. .TRUE.) STOP 32
  if (acc_is_present (c) .eqv. .TRUE.) STOP 33

  a(:) = 4.0
  b(:) = 8.0

  !$acc parallel copyin (a(1:N)) present_or_create (c(1:N)) copyout (b(1:N))
    do i = 1, N
      c(i) = a(i)
      b(i) = c(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 4.0) STOP 34
    if (b(i) .ne. 4.0) STOP 35
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 36
  if (acc_is_present (b) .eqv. .TRUE.) STOP 37
  if (acc_is_present (c) .eqv. .TRUE.) STOP 38

  a(:) = 4.0

  call acc_copyin (a, sizeof (a))
  call acc_copyin (b, sizeof (b))
  call acc_copyin (c, sizeof (c))

  !$acc parallel present (a(1:N)) present (c(1:N)) present (b(1:N))
    do i = 1, N
      c(i) = a(i)
      b(i) = c(i)
    end do
  !$acc end parallel

  call acc_copyout (a, sizeof (a))
  call acc_copyout (b, sizeof (b))
  call acc_copyout (c, sizeof (c))
  
  do i = 1, N
    if (a(i) .ne. 4.0) STOP 39
    if (b(i) .ne. 4.0) STOP 40
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 41
  if (acc_is_present (b) .eqv. .TRUE.) STOP 42
  if (acc_is_present (c) .eqv. .TRUE.) STOP 43

  a(:) = 6.0
  b(:) = 0.0

  call acc_copyin (a, sizeof (a))

  a(:) = 9.0

  !$acc parallel pcopyin (a(1:N)) copyout (b(1:N))
    do i = 1, N
      b(i) = a(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (b(i) .ne. 6.0) STOP 44
  end do
  
  call acc_copyout (a, sizeof (a))

  if (acc_is_present (a) .eqv. .TRUE.) STOP 45
  if (acc_is_present (b) .eqv. .TRUE.) STOP 46

  a(:) = 6.0
  b(:) = 0.0

  !$acc parallel copyin (a(1:N)) pcopyout (b(1:N))
   do i = 1, N
     b(i) = a(i)
   end do
  !$acc end parallel

  do i = 1, N
    if (b(i) .ne. 6.0) STOP 47
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 48
  if (acc_is_present (b) .eqv. .TRUE.) STOP 49

  a(:) = 5.0
  b(:) = 7.0

  !$acc parallel copyin (a(1:N)) pcreate (c(1:N)) copyout (b(1:N))
    do i = 1, N
      c(i) = a(i)
      b(i) = c(i)
    end do
  !$acc end parallel

  do i = 1, N
    if (a(i) .ne. 5.0) STOP 50
    if (b(i) .ne. 5.0) STOP 51
  end do

  if (acc_is_present (a) .eqv. .TRUE.) STOP 52
  if (acc_is_present (b) .eqv. .TRUE.) STOP 53
  if (acc_is_present (c) .eqv. .TRUE.) STOP 54

end program main