[Openmp-commits] [openmp] [OpenMP][omp_lib] Restore compatibility with more restrictive Fortran compilers (PR #77780)

[Paul Osmialowski via Openmp-commits]

https://github.com/pawosm-arm created https://github.com/llvm/llvm-project/pull/77780

The most recent changes to `omp_lib.h.var` have re-introduced some compatibility issues that had to be fixed due to the similar changes in the past. Namely:

1. D120707 has removed the "use omp_lib_kinds" statement and replaced it with import

2. D114537 added line continuation to the long lines

This patch introduces the same kind of changes in order to restore compatibility with some more restrictive Fortran compilers so their users could still benefit from the LLVM's OpenMP Fortran library.

>From 1919cb8049403fbf2a3a8945f1a08a618903f6c1 Mon Sep 17 00:00:00 2001
From: Pawel Osmialowski <pawel.osmialowski at arm.com>
Date: Thu, 11 Jan 2024 13:54:08 +0000
Subject: [PATCH] [OpenMP][omp_lib] Restore compatibility with more restrictive
 Fortran compilers

The most recent changes to `omp_lib.h.var` have re-introduced some
compatibility issues that had to be fixed due to the similar changes in
the past. Namely:

1. D120707 has removed the "use omp_lib_kinds" statement and replaced
   it with import

2. D114537 added line continuation to the long lines

This patch introduces the same kind of changes in order to restore
compatibility with some more restrictive Fortran compilers so their
users could still benefit from the LLVM's OpenMP Fortran library.
---
 openmp/runtime/src/include/omp_lib.h.var | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/openmp/runtime/src/include/omp_lib.h.var b/openmp/runtime/src/include/omp_lib.h.var
index d20aade6ef8b32..617f2321676dee 100644
--- a/openmp/runtime/src/include/omp_lib.h.var
+++ b/openmp/runtime/src/include/omp_lib.h.var
@@ -741,10 +741,10 @@
           integer(c_int), value :: device_num
         end function
 
-        function omp_target_memset_async(ptr, val, count, device_num, &
-                                         depobj_count, depobj_list) bind(c)
+        function omp_target_memset_async(ptr, val, count, device_num,                                                               &
+     &      depobj_count, depobj_list) bind(c)
           use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t
-          use omp_lib_kinds
+          import
           type(c_ptr) :: omp_target_memset_async
           type(c_ptr), value :: ptr
           integer(c_int), value :: val