[OpenMP] Fix line truncation in omp_lib.h

[hbae]

Summary

Fixed code that exceeds 72 columns.

[AndreyChurbanov]

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

222

I think a better way to reduce the line length is to remove optional "kind=" from the attribute. E.g.

integer(omp_allocator_handle_kind)llvm_omp_target_device_mem_alloc

will fit into 72 char length.

In general there is no reliable way to have line continuation suitable for both fixed and free source forms,
because compilers usually have an option to change default line length, possibly up to "infinite" (e.g. -ffixed-line-length-0 for gfortran).
So having & at the end of line and beginning of the next line can always fail to compile with some compiler options.
Better to avoid this "universal" continuation if possible.

[hbae]

Applied suggested changes.

[AndreyChurbanov]

LGTM

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

!
       parameter(omp_low_lat_mem_alloc=5)
       integer(kind=omp_allocator_handle_kind)omp_cgroup_mem_alloc
       parameter(omp_cgroup_mem_alloc=6)
       integer(kind=omp_allocator_handle_kind)omp_pteam_mem_alloc
       parameter(omp_pteam_mem_alloc=7)
       integer(kind=omp_allocator_handle_kind)omp_thread_mem_alloc
       parameter(omp_thread_mem_alloc=8)
       ! Preview of target memory support
-      integer(kind=omp_allocator_handle_kind)llvm_omp_target_host_mem_alloc
+      integer(omp_allocator_handle_kind)llvm_omp_target_host_mem_alloc
       parameter(llvm_omp_target_host_mem_alloc=100)
-      integer(kind=omp_allocator_handle_kind)llvm_omp_target_shared_mem_alloc
+      integer(omp_allocator_handle_kind)llvm_omp_target_shared_mem_alloc
       parameter(llvm_omp_target_shared_mem_alloc=101)
-      integer(kind=omp_allocator_handle_kind)llvm_omp_target_device_mem_alloc
+      integer(omp_allocator_handle_kind)llvm_omp_target_device_mem_alloc
       parameter(llvm_omp_target_device_mem_alloc=102)
 
       integer(kind=omp_memspace_handle_kind)omp_default_mem_space
       parameter(omp_default_mem_space=0)
       integer(kind=omp_memspace_handle_kind)omp_large_cap_mem_space
       parameter(omp_large_cap_mem_space=1)
       integer(kind=omp_memspace_handle_kind)omp_const_mem_space
       parameter(omp_const_mem_space=2)
       integer(kind=omp_memspace_handle_kind)omp_high_bw_mem_space
       parameter(omp_high_bw_mem_space=3)
       integer(kind=omp_memspace_handle_kind)omp_low_lat_mem_space
       parameter(omp_low_lat_mem_space=4)
       ! Preview of target memory support
-      integer(kind=omp_memspace_handle_kind)llvm_omp_target_host_mem_space
+      integer(omp_memspace_handle_kind)llvm_omp_target_host_mem_space
       parameter(llvm_omp_target_host_mem_space=100)
-      integer(kind=omp_memspace_handle_kind)llvm_omp_target_shared_mem_space
+      integer(omp_memspace_handle_kind)llvm_omp_target_shared_mem_space
       parameter(llvm_omp_target_shared_mem_space=101)
-      integer(kind=omp_memspace_handle_kind)llvm_omp_target_device_mem_space
+      integer(omp_memspace_handle_kind)llvm_omp_target_device_mem_space
       parameter(llvm_omp_target_device_mem_space=102)
 
       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)
!       ***
         function omp_pause_resource_all(kind) bind(c)
           import
           integer (kind=omp_pause_resource_kind), value :: kind
           integer (kind=omp_integer_kind) omp_pause_resource_all
         end function omp_pause_resource_all
 
         function omp_get_supported_active_levels() bind(c)
           import
-          integer (kind=omp_integer_kind) omp_get_supported_active_levels
+          integer(kind=omp_integer_kind)omp_get_supported_active_levels
         end function omp_get_supported_active_levels
 
         subroutine omp_fulfill_event(event) bind(c)
           import
           integer (kind=omp_event_handle_kind), value :: event
         end subroutine omp_fulfill_event
 
         subroutine omp_init_lock(svar) bind(c)