gcc/testsuite/gfortran.dg/goacc/assumed.f95

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-fmax-errors=100" }
   3
   4 module test
   5 contains
   6   subroutine assumed_size(a)
   7     implicit none
   8     integer :: a(*), i
   9     !$acc declare device_resident (a) ! { dg-error "Assumed size" }
  10     !$acc data copy (a) ! { dg-error "Assumed size" }
  11     !$acc end data
  12     !$acc data deviceptr (a) ! { dg-error "Assumed size" }
  13     !$acc end data
  14     !$acc parallel private (a) ! { dg-error "Assumed size" }
  15     !$acc end parallel
  16     !$acc host_data use_device (a) ! { dg-error "Assumed size" }
  17     !$acc end host_data
  18     !$acc parallel loop reduction(+:a) ! { dg-error "Assumed size" }
  19     do i = 1,5
  20     enddo
  21     !$acc end parallel loop
  22     !$acc update device (a) ! { dg-error "Assumed size" }
  23     !$acc update host (a) ! { dg-error "Assumed size" }
  24     !$acc update self (a) ! { dg-error "Assumed size" }
  25   end subroutine assumed_size
  26   subroutine assumed_rank(a)
  27     implicit none
  28     integer, intent(in) :: a(..)
  29     integer :: i
  30     !$acc declare device_resident (a) ! { dg-error "Assumed rank" }
  31     !$acc data copy (a) ! { dg-error "Assumed rank" }
  32     !$acc end data
  33     !$acc data deviceptr (a) ! { dg-error "Assumed rank" }
  34     !$acc end data
  35     !$acc parallel private (a) ! { dg-error "Assumed rank" }
  36     !$acc end parallel
  37     !$acc host_data use_device (a) ! { dg-error "Assumed rank" }
  38     !$acc end host_data
  39     !$acc parallel loop reduction(+:a) ! { dg-error "Assumed rank" }
  40     do i = 1,5
  41     enddo
  42     !$acc end parallel loop
  43     !$acc update device (a) ! { dg-error "Assumed rank" }
  44     !$acc update host (a) ! { dg-error "Assumed rank" }
  45     !$acc update self (a) ! { dg-error "Assumed rank" }
  46   end subroutine assumed_rank
  47 end module test