gcc/testsuite/gfortran.dg/goacc/cray-2.f95

! { dg-additional-options "-fcray-pointer" }
! See also cray.f95.

program test
  call oacc1
contains
  subroutine oacc1
    implicit none
    integer :: i
    real :: pointee
    pointer (ptr, pointee)
    !$acc declare device_resident (pointee)
    !$acc declare device_resident (ptr)
    !$acc data copy (pointee) ! { dg-error "Cray pointee" }
    !$acc end data
    !$acc data deviceptr (pointee) ! { dg-error "Cray pointee" }
    !$acc end data
    !$acc parallel private (pointee) ! { dg-error "Cray pointee" }
    !$acc end parallel
    !$acc host_data use_device (pointee) ! { dg-error "Cray pointee" }
    !$acc end host_data
    !$acc parallel loop reduction(+:pointee) ! { dg-error "Cray pointee" }
    do i = 1,5
    enddo
    !$acc end parallel loop
    !$acc parallel loop
    do i = 1,5
      !$acc cache (pointee) ! { dg-error "Cray pointee" }
    enddo
    !$acc end parallel loop
    !$acc update device (pointee) ! { dg-error "Cray pointee" }
    !$acc update host (pointee) ! { dg-error "Cray pointee" }
    !$acc update self (pointee) ! { dg-error "Cray pointee" }
    !$acc data copy (ptr)
    !$acc end data
    !$acc data deviceptr (ptr) ! { dg-error "Cray pointer" }
    !$acc end data
    !$acc parallel private (ptr)
    !$acc end parallel
    !$acc host_data use_device (ptr) ! { dg-error "Cray pointer" }
    !$acc end host_data
    !$acc parallel loop reduction(+:ptr) ! { dg-error "Cray pointer" }
    do i = 1,5
    enddo
    !$acc end parallel loop
    !$acc parallel loop
    do i = 1,5
      !TODO: This must fail, as in openacc-1_0-branch.
      !$acc cache (ptr) ! { dg-error "" "TODO" { xfail *-*-* } }
    enddo
    !$acc end parallel loop
    !$acc update device (ptr)
    !$acc update host (ptr)
    !$acc update self (ptr)
  end subroutine oacc1
end program test