Skip to content

Commit 31a0d60

Browse files
committed
request_get_status variants: add f08 interfaces
also switch MPI_Request_get_status to use new method for generating f08 bindings. Update fortran bindings interfaces generation code. f90/f77 interfaces will be added as another commit. Signed-off-by: Howard Pritchard <howardp@lanl.gov>
1 parent 81e3492 commit 31a0d60

14 files changed

+929
-79
lines changed

ompi/mpi/bindings/ompi_bindings/fortran.py

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -151,6 +151,11 @@ def print_f_source(self):
151151
self._print_fortran_interface()
152152
self.dump()
153153

154+
# Output in pre C function call methods
155+
156+
for param in self.parameters:
157+
self.dump_lines(param.pre_c_call())
158+
154159
# Call into the C function
155160
call_start = f' call {self.c_func_name}('
156161
params = [param.argument() for param in self.parameters]
@@ -184,7 +189,8 @@ def print_c_source(self):
184189
replacements={'INNER_CALL': self.inner_call,
185190
'COUNT_TYPE': count_type,
186191
'COUNT_FINT_TYPE': count_fint_type,
187-
'DISP_TYPE': disp_type})
192+
'DISP_TYPE': disp_type,
193+
'LOGICAL_TYPE': 'int'})
188194

189195
def print_interface(self):
190196
"""Output just the Fortran interface for this binding."""
@@ -234,6 +240,7 @@ def print_c_source_header(out):
234240
out.dump('#include "ompi/file/file.h"')
235241
out.dump('#include "ompi/errhandler/errhandler.h"')
236242
out.dump('#include "ompi/datatype/ompi_datatype.h"')
243+
out.dump('#include "ompi/attribute/attribute.h"')
237244
out.dump('#include "ompi/mca/coll/base/coll_base_util.h"')
238245
out.dump('#include "ts.h"')
239246
out.dump('#include "bigcount.h"')

0 commit comments

Comments
 (0)