7 !$omp target map(from:v)
13 write (*,*) "Host fallback or unknown offloading"
15 write (*,*) "Offloading to NVidia PTX"
17 write (*,*) "Offloading to AMD GCN"
20 integer function on_nvptx ()
24 integer function on_gcn ()
28 integer function on ()
29 !$omp declare variant (on_nvptx) match(construct={target},device={arch(nvptx)})
30 !$omp declare variant (on_gcn) match(construct={target},device={arch(gcn)})