call MPI_BARRIER(POP_Communicator,ierr) !dir$ offload begin target(mic:0) ierr = 13 call MPI_ABORT(MPI_COMM_WORLD,errorCode, ierr) !dir$ end offload #else !dir$ offload begin target(mic:0) call MPI_BARRIER(POP_Communicator, ierr) call MPI_ABORT(MPI_COMM_WORLD, errorCode, ierr) ...