Introduce new OpenMP 5.0 depend object type.
authorAndrey Churbanov <Andrey.Churbanov@intel.com>
Wed, 15 May 2019 13:45:36 +0000 (13:45 +0000)
committerAndrey Churbanov <Andrey.Churbanov@intel.com>
Wed, 15 May 2019 13:45:36 +0000 (13:45 +0000)
The implementation should be done by compiler, user can only declare
objects of this type and use them in OpenMP directives.

Differential Revision: https://reviews.llvm.org/D61860

llvm-svn: 360774

openmp/runtime/src/include/50/omp.h.var
openmp/runtime/src/include/50/omp_lib.f.var
openmp/runtime/src/include/50/omp_lib.f90.var
openmp/runtime/src/include/50/omp_lib.h.var

index 05dc26672b20d62b63d8be43de4de5256dbc045a..11c32733f66ce289d2097fc42201f0d25a26a888 100644 (file)
 
     /* OpenMP 5.0 */
     extern int   __KAI_KMPC_CONVENTION  omp_get_device_num (void);
+    typedef void * omp_depend_t;
 
     /* kmp API functions */
     extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void);
index 17d0a2a81e9f02b90ebfdd5f8011665f0fd5fe9d..8981f39bd9a5ab8b1128be5c62f4e6166e4b7d57 100644 (file)
@@ -44,6 +44,7 @@
         end type omp_alloctrait
 
         integer, parameter :: omp_pause_resource_kind = omp_integer_kind
+        integer, parameter :: omp_depend_kind = int_ptr_kind()
 
       end module omp_lib_kinds
 
index a971577e39c780f0fb4d2336032c9e6ec8b609f9..2776c66f1c71794e4b3175b1305a853608222d69 100644 (file)
@@ -41,6 +41,7 @@
         end type omp_alloctrait
 
         integer, parameter :: omp_pause_resource_kind = omp_integer_kind
+        integer, parameter :: omp_depend_kind = c_intptr_t
 
       end module omp_lib_kinds
 
index cf861834421d5829ee631394640485b46de324ef..6bfd8ce9696f04a7b1f1be089b101771a2b8ff72 100644 (file)
@@ -48,6 +48,8 @@
       parameter(omp_alloctrait_val_kind=int_ptr_kind())
       integer omp_pause_resource_kind
       parameter(omp_pause_resource_kind=omp_integer_kind)
+      integer omp_depend_kind
+      parameter(omp_depend_kind=int_ptr_kind())
 
       integer(kind=omp_integer_kind)openmp_version
       parameter(openmp_version=@LIBOMP_OMP_YEAR_MONTH@)