program isCuda
  use cudafor
  integer, device :: dummyInteger
end program isCuda
