fix #59

Author: SimonDanisch

src/backends/backends.jl

@@ -182,7 +182,7 @@ end
 
 function init(filterfuncs::Function...; kw_args...)
     devices = available_devices(filterfuncs...)
-    devices = sort(devices, by = is_gpu) # prioritize gpu devices
+    devices = sort(devices, by = x-> !is_gpu(x)) # prioritize gpu devices
     if isempty(devices)
         error("No device found for: $(join(string.(filterfuncs), " "))")
     end

src/backends/opencl/opencl.jl

@@ -56,7 +56,8 @@ let contexts = Dict{cl.Device, CLContext}(), active_device = cl.Device[]
     all_contexts() = values(contexts)
     function current_device()
         if isempty(active_device)
-            push!(active_device, CUDAnative.default_device[])
+            devs = sort(devices(), by = x-> !is_gpu(x))
+            push!(active_device, first(devs))
         end
         active_device[]
     end