! { dg-do run }

module m
integer, allocatable :: mint
!$acc declare create (mint)
end module m

program p
use m

allocate(mint)

mint = 0

!$acc serial
! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target openacc_nvidia_accel_selected } .-1 }
mint = 5
!$acc end serial

!$acc update host(mint)

if (mint.ne.5) stop 1

deallocate(mint)

end program p