blob: 0d05222d446df1f3f97804e2d81f74656f95ed1c [file] [log] [blame]
! RUN: %python %S/test_errors.py %s %flang_fc1
module m
real, device :: a(4,8)
real, managed, allocatable :: b(:,:)
contains
attributes(global) subroutine kernel(a,b,c,n,m)
integer, value :: n
integer, intent(in) :: m
real a(n,m), c(n,m)
real, managed :: b(n,m)
end
subroutine test
allocate(b(4,8))
!ERROR: dummy argument 'm=' has ATTRIBUTES(DEVICE) but its associated actual argument has no CUDA data attribute
call kernel<<<1,32>>>(a,b,b,4,8)
end
end