phynexis-deps/openmp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Andrey Churbanov
2019-01-21 15:30:31 +00:00
parent 4b75f4e92a
commit f30a96a18f
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
runtime/src/include/50/omp_lib.h.var
+6 -4
View File
@@ -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