From d0fbe1a4dd4b3ddc76b7284d445ce830cfe7a3b2 Mon Sep 17 00:00:00 2001 From: Jiakun Yan Date: Mon, 18 Nov 2024 15:01:29 -0500 Subject: [PATCH] fix fortran/c bindings --- maint/local_python/binding_c.py | 2 +- maint/local_python/binding_f08.py | 2 +- maint/local_python/binding_f77.py | 2 +- maint/local_python/binding_f90.py | 2 +- src/binding/c/continue_api.txt | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/maint/local_python/binding_c.py b/maint/local_python/binding_c.py index 04728fff5eb..0d97608ffa6 100644 --- a/maint/local_python/binding_c.py +++ b/maint/local_python/binding_c.py @@ -570,7 +570,7 @@ def process_func_parameters(func): if p['length']: length = p['length'] if length == '*': - if RE.match(r'MPI_(Test|Wait|Request_get_status_|Continue)all', func_name, re.IGNORECASE): + if RE.match(r'MPIX?_(Test|Wait|Request_get_status_|Continue)all', func_name, re.IGNORECASE): length = "count" elif RE.match(r'MPI_(Test|Wait|Request_get_status_)some', func_name, re.IGNORECASE): length = "incount" diff --git a/maint/local_python/binding_f08.py b/maint/local_python/binding_f08.py index 75f92bc7017..b6ed1596289 100644 --- a/maint/local_python/binding_f08.py +++ b/maint/local_python/binding_f08.py @@ -1337,7 +1337,7 @@ def process_func_parameters(func): def check_func_directives(func): if 'dir' in func and func['dir'] == "mpit": func['_skip_fortran'] = 1 - elif RE.match(r'mpix_(grequest_|type_iov|async_)', func['name'], re.IGNORECASE): + elif RE.match(r'mpix_(grequest_|type_iov|async_|continue)', func['name'], re.IGNORECASE): func['_skip_fortran'] = 1 elif RE.match(r'mpi_attr_', func['name'], re.IGNORECASE): func['_skip_fortran'] = 1 diff --git a/maint/local_python/binding_f77.py b/maint/local_python/binding_f77.py index 40fefd45896..255a4bc1a7a 100644 --- a/maint/local_python/binding_f77.py +++ b/maint/local_python/binding_f77.py @@ -1260,7 +1260,7 @@ def dump_fortran_line(s): def check_func_directives(func): if 'dir' in func and func['dir'] == "mpit": func['_skip_fortran'] = 1 - elif RE.match(r'mpix_(grequest_|type_iov|async_)', func['name'], re.IGNORECASE): + elif RE.match(r'mpix_(grequest_|type_iov|async_|continue)', func['name'], re.IGNORECASE): func['_skip_fortran'] = 1 elif RE.match(r'mpi_\w+_(f|f08|c)2(f|f08|c)$', func['name'], re.IGNORECASE): # implemented in mpi_f08_types.f90 diff --git a/maint/local_python/binding_f90.py b/maint/local_python/binding_f90.py index 13b836ebd15..eea973468f9 100644 --- a/maint/local_python/binding_f90.py +++ b/maint/local_python/binding_f90.py @@ -216,7 +216,7 @@ def dump_f90_sizeofs(): def check_func_directives(func): if 'dir' in func and func['dir'] == "mpit": func['_skip_fortran'] = 1 - elif RE.match(r'mpix_(grequest_|type_iov|async_)', func['name'], re.IGNORECASE): + elif RE.match(r'mpix_(grequest_|type_iov|async_|continue)', func['name'], re.IGNORECASE): func['_skip_fortran'] = 1 elif RE.match(r'mpi_attr_', func['name'], re.IGNORECASE): func['_skip_fortran'] = 1 diff --git a/src/binding/c/continue_api.txt b/src/binding/c/continue_api.txt index 1c3dbfae878..3925ca0c9bd 100644 --- a/src/binding/c/continue_api.txt +++ b/src/binding/c/continue_api.txt @@ -30,7 +30,7 @@ MPIX_Continueall: cb: FUNCTION, func_type=MPIX_Continue_cb_function, [the continuation callback function] cb_data: BUFFER, [the argument passed to the callback] flags: ARRAY_LENGTH, [flags controlling aspects of the continuation] - array_of_statuses: STATUS, direction=inout, length=*, pointer=False, [array of status objects] + array_of_statuses: STATUS, direction=out, length=*, pointer=False, [array of status objects] cont_request: REQUEST, [the continuation request] { mpi_errno = MPIR_Continueall_impl(count, request_ptrs, cb, cb_data, flags, array_of_statuses,