[Openmp-commits] [openmp] r351745 - Fixed https://reviews.llvm.org/D55078 broken Fortran fixed form.

[Andrey Churbanov via Openmp-commits]

Author: achurbanov
Date: Mon Jan 21 07:30:31 2019
New Revision: 351745

URL: http://llvm.org/viewvc/llvm-project?rev=351745&view=rev
Log:
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

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

Modified: openmp/trunk/runtime/src/include/50/omp_lib.h.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/50/omp_lib.h.var?rev=351745&r1=351744&r2=351745&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.h.var (original)
+++ openmp/trunk/runtime/src/include/50/omp_lib.h.var Mon Jan 21 07:30:31 2019
@@ -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