Magic-Mirror/llvm-capstone
1
0
Fork 0
mirror of https://github.com/capstone-engine/llvm-capstone.git synced 2024-11-23 05:40:09 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

[OpenMP][omp_lib] Restore compatibility with more restrictive Fortran compilers (#77780)

Browse Source 
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.
This commit is contained in:
Paul Osmialowski 2024-01-18 11:06:24 +00:00 committed by GitHub
parent 667e58a72e
commit d5b2e41e20
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
openmp/runtime/src/include/omp_lib.h.var
View File

@ -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