flang/test/Semantics/cuf10.cuf

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenacc
   2 module m
   3   real, device :: a(4,8)
   4   real, managed, allocatable :: b(:,:)
   5  contains
   6   attributes(global) subroutine kernel(a,b,c,n,m)
   7     integer, value :: n
   8     integer, intent(in) :: m
   9     real a(n,m), c(n,m)
  10     real, managed :: b(n,m)
  11   end
  12   attributes(device) subroutine devsub(a,n)
  13     integer, value :: n
  14     real, device :: a(n)
  15   end
  16   subroutine test
  17     real c(4)
  18     allocate(b(4,8))
  19     !ERROR: dummy argument 'm=' has ATTRIBUTES(DEVICE) but its associated actual argument has no CUDA data attribute
  20     call kernel<<<1,32>>>(a,b,b,4,8)
  21     !$acc parallel loop copy(c)
  22     do j = 1, 1
  23       call devsub(c,4) ! not checked in OpenACC construct
  24     end do
  25   end
  26 end