commit f30a96a18f25a4cc564fe4bd1ad4cc66bc74a203
author Andrey Churbanov <Andrey.Churbanov@intel.com> Mon Jan 21 15:30:31 2019 +0000
committer Andrey Churbanov <Andrey.Churbanov@intel.com> Mon Jan 21 15:30:31 2019 +0000
tree 24f8e47287f20d95b36335545f8c0089a3db9071
parent 4b75f4e92a2d559a91a74ff1235944b0b1cf5922

Fixed https://reviews.llvm.org/D55078 broken Fortran fixed form.

Long lines split in order to obey Fortran fixed form compilation.

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


git-svn-id: https://llvm.org/svn/llvm-project/openmp/trunk@351745 91177308-0d34-0410-b5e6-96231b3b80d8

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

diff --git a/runtime/src/include/50/omp_lib.h.var b/runtime/src/include/50/omp_lib.h.var
index 063a27f..1d8b287 100644
--- a/runtime/src/include/50/omp_lib.h.var
+++ b/runtime/src/include/50/omp_lib.h.var
@@ -136,10 +136,12 @@
       parameter(omp_pteam_mem_alloc=7)
       integer(kind=omp_allocator_kind)omp_thread_mem_alloc
       parameter(omp_thread_mem_alloc=8)
-
-      integer (kind=omp_pause_resource_kind), parameter :: omp_pause_resume = 0
-      integer (kind=omp_pause_resource_kind), parameter :: omp_pause_soft = 1
-      integer (kind=omp_pause_resource_kind), parameter :: omp_pause_hard = 2
+      integer(kind=omp_pause_resource_kind)omp_pause_resume
+      parameter(omp_pause_resume=0)
+      integer(kind=omp_pause_resource_kind)omp_pause_soft
+      parameter(omp_pause_soft=1)
+      integer(kind=omp_pause_resource_kind)omp_pause_hard
+      parameter(omp_pause_hard=2)
 
       interface