use omp_lib program openmp_mic integer::threadcount !dir$ offload begin target (mic) !$omp parallel threadcount=omp_get_thread_num() print *,'The number of threads is ',threadcount print *,'hello from thread no ',omp_get_num_thread(),'of',threadcount !$omp end parallel !dir$ end offload end program openmp_mic
Here is my sample program
i got the following error on compilation.
icc openmp_mic.f90
error #6785: This name does not match the unit name. [OPENMP_MIC]
end program openmp_mic
------------^
any help?