[PATCH 1/6] [GOMP4] OpenACC 1.0+ support in fortran front-end

Jakub Jelinek jakub@redhat.com
Fri Jan 31 12:00:00 GMT 2014


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



More information about the Gcc-patches mailing list