[Openmp-commits] [PATCH] D52712: Fixed workaround made in https://reviews.llvm.org/D51694

[Andrey Churbanov via Phabricator via Openmp-commits]

AndreyChurbanov created this revision.
AndreyChurbanov added reviewers: jlpeyton, hbae, tlwilmar.
Herald added a subscriber: openmp-commits.

Kelvin Li suggested solution for using long name with long kind name in the Fortran header file - omit optional "kind=" part of the kind-selector.
This patch fixes the workarount I used earlier (use shorter kind name that is currently has the same value, but theoretically can be changed somewhen in future).

Also removed the "kind=" for surrounded constants (not sure if we should delete it everywhere??).


Repository:
  rOMP OpenMP

https://reviews.llvm.org/D52712

Files:
  runtime/src/include/50/omp_lib.h.var


Index: runtime/src/include/50/omp_lib.h.var
===================================================================
--- runtime/src/include/50/omp_lib.h.var
+++ runtime/src/include/50/omp_lib.h.var
@@ -109,13 +109,13 @@
       integer(kind=omp_control_tool_kind)omp_control_tool_end
       parameter(omp_control_tool_end=4)
 
-      integer(kind=omp_control_tool_result_kind)omp_control_tool_notool
+      integer(omp_control_tool_result_kind)omp_control_tool_notool
       parameter(omp_control_tool_notool=-2)
-      integer(kind=omp_integer_kind)omp_control_tool_nocallback
+      integer(omp_control_tool_result_kind)omp_control_tool_nocallback
       parameter(omp_control_tool_nocallback=-1)
-      integer(kind=omp_control_tool_result_kind)omp_control_tool_success
+      integer(omp_control_tool_result_kind)omp_control_tool_success
       parameter(omp_control_tool_success=0)
-      integer(kind=omp_control_tool_result_kind)omp_control_tool_ignored
+      integer(omp_control_tool_result_kind)omp_control_tool_ignored
       parameter(omp_control_tool_ignored=1)
 
       integer(kind=omp_allocator_kind)omp_null_allocator


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D52712.167685.patch
Type: text/x-patch
Size: 1130 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/openmp-commits/attachments/20181001/a0f12af8/attachment.bin>