[Openmp-commits] [PATCH] D50565: [OMPT] Make omp_control_tool() compliant when called from Fortran programs

Jonathan Peyton via Phabricator via Openmp-commits openmp-commits at lists.llvm.org
Mon Aug 13 10:27:14 PDT 2018


This revision was automatically updated to reflect the committed changes.
Closed by commit rL339585: [OMPT] Make omp_control_tool() compliant when called from Fortran programs (authored by jlpeyton, committed by ).
Herald added a subscriber: llvm-commits.

Changed prior to commit:
  https://reviews.llvm.org/D50565?vs=160116&id=160389#toc

Repository:
  rL LLVM

https://reviews.llvm.org/D50565

Files:
  openmp/trunk/runtime/src/include/50/omp_lib.f90.var
  openmp/trunk/runtime/src/include/50/omp_lib.h.var


Index: openmp/trunk/runtime/src/include/50/omp_lib.f90.var
===================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.f90.var
+++ openmp/trunk/runtime/src/include/50/omp_lib.f90.var
@@ -531,11 +531,12 @@
             integer (kind=omp_lock_hint_kind), value :: hint
           end subroutine omp_init_nest_lock_with_hint
 
-          function omp_control_tool(command, modifier) bind(c)
+          function omp_control_tool(command, modifier, arg) bind(c)
             use omp_lib_kinds
             integer (kind=omp_integer_kind) omp_control_tool
             integer (kind=omp_control_tool_kind), value :: command
             integer (kind=omp_control_tool_kind), value :: modifier
+            integer (kind=kmp_pointer_kind), optional :: arg
           end function omp_control_tool
 
         end interface
Index: openmp/trunk/runtime/src/include/50/omp_lib.h.var
===================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.h.var
+++ openmp/trunk/runtime/src/include/50/omp_lib.h.var
@@ -506,11 +506,12 @@
           integer (kind=omp_lock_hint_kind), value :: hint
         end subroutine omp_init_nest_lock_with_hint
 
-        function omp_control_tool(command, modifier) bind(c)
+        function omp_control_tool(command, modifier, arg) bind(c)
           import
           integer (kind=omp_integer_kind) omp_control_tool
           integer (kind=omp_control_tool_kind), value :: command
           integer (kind=omp_control_tool_kind), value :: modifier
+          integer (kind=kmp_pointer_kind), optional :: arg
         end function omp_control_tool
 
       end interface


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D50565.160389.patch
Type: text/x-patch
Size: 1703 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/openmp-commits/attachments/20180813/d7f16bdf/attachment.bin>


More information about the Openmp-commits mailing list