From 275f8ad123b22f7752b99cae48f240674a4d7b21 Mon Sep 17 00:00:00 2001 From: Gaurav Dhingra Date: Mon, 31 Mar 2025 09:58:37 +0530 Subject: [PATCH] initialize in a separate line to avoid LFortran warning --- src/mpi.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mpi.f90 b/src/mpi.f90 index 7f7be74..c4f6f58 100644 --- a/src/mpi.f90 +++ b/src/mpi.f90 @@ -141,11 +141,11 @@ subroutine MPI_Init_thread_proc(required, provided, ierr) integer, intent(out) :: provided integer, optional, intent(out) :: ierr integer(c_int) :: local_ierr - integer(c_int) :: argc = 0 + integer(c_int) :: argc type(c_ptr) :: argv = c_null_ptr integer(c_int) :: c_required integer(c_int) :: c_provided - + argc = 0 ! Map Fortran MPI_THREAD_FUNNELED to C MPI_THREAD_FUNNELED if needed c_required = int(required, c_int)