Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/goacc/cray-2.f95 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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