On Fri, Jan 31, 2014 at 03:10:59PM +0400, Ilmir Usmanov wrote:
> @@ -1182,6 +1281,26 @@ show_omp_node (int level, gfc_code *c)
> {
> switch (list_type)
> {
> + case OMP_LIST_COPY: type = "COPY"; break;
> + case OMP_LIST_OACC_COPYIN: type = "COPYIN"; break;
> + case OMP_LIST_COPYOUT: type = "COPYOUT"; break;
> + case OMP_LIST_CREATE: type = "CREATE"; break;
> + case OMP_LIST_DELETE: type = "DELETE"; break;
> + case OMP_LIST_PRESENT: type = "PRESENT"; break;
> + case OMP_LIST_PRESENT_OR_COPY:
> + type = "PRESENT_OR_COPY"; break;
> + case OMP_LIST_PRESENT_OR_COPYIN:
> + type = "PRESENT_OR_COPYIN"; break;
> + case OMP_LIST_PRESENT_OR_COPYOUT:
> + type = "PRESENT_OR_COPYOUT"; break;
> + case OMP_LIST_PRESENT_OR_CREATE:
> + type = "PRESENT_OR_CREATE"; break;
> + case OMP_LIST_DEVICEPTR: type = "DEVICEPTR"; break;
> + case OMP_LIST_USE_DEVICE: type = "USE_DEVICE"; break;
> + case OMP_LIST_DEVICE_RESIDENT: type = "USE_DEVICE"; break;
> + case OMP_LIST_HOST: type = "HOST"; break;
The above are OpenACC specific clauses, so they should have OACC_LIST_*?
> + case OMP_LIST_DEVICE: type = "DEVICE"; break;
This one is in OpenMP 4.0 too (though, I didn't get to OpenMP 4.0 / fortran
support yet), so this should be OMP_LIST_DEVICE.
> + case OMP_LIST_CACHE: type = ""; break;
Again, this is OpenACC specific.
Jakub
