Fix wrong buffer size in ompi_session_get_nth_pset_f

Jan Fecht · Jan Fecht · commit ca10d77bb7f0 · 2023-03-13T21:12:51.000+01:00
Signed-off-by: Jan Fecht &lt;mail@fecht.cc&gt;
diff --git a/ompi/mpi/fortran/mpif-h/session_get_nth_pset_f.c b/ompi/mpi/fortran/mpif-h/session_get_nth_pset_f.c
@@ -77,7 +77,7 @@ void ompi_session_get_nth_pset_f(MPI_Fint *session, MPI_Fint *info, MPI_Fint *n,
 {
     int c_ierr;
     MPI_Session c_session;
-    char c_name[MPI_MAX_OBJECT_NAME];
+    char c_name[MPI_MAX_PSET_NAME_LEN];
 
     c_session = PMPI_Session_f2c(*session);
 

Original file line number	Diff line number	Diff line change
`@@ -77,7 +77,7 @@ void ompi_session_get_nth_pset_f(MPI_Fint session, MPI_Fint info, MPI_Fint *n,`
`77`	`77`	`{`
`78`	`78`	`int c_ierr;`
`79`	`79`	`MPI_Session c_session;`
`80`		`- char c_name[MPI_MAX_OBJECT_NAME];`
	`80`	`+ char c_name[MPI_MAX_PSET_NAME_LEN];`
`81`	`81`
`82`	`82`	`c_session = PMPI_Session_f2c(*session);`
`83`	`83`