-/* Copyright (c) 2007-2019. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-2022. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "private.hpp"
#include "smpi_info.hpp"
+#include "smpi_comm.hpp"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
int PMPI_Info_free( MPI_Info *info){
CHECK_NULL(1, MPI_ERR_ARG, info)
CHECK_INFO(1, *info)
+ (*info)->mark_as_deleted();
simgrid::smpi::Info::unref(*info);
*info=MPI_INFO_NULL;
return MPI_SUCCESS;
MPI_Info PMPI_Info_f2c(MPI_Fint info){
if(info==-1)
return MPI_INFO_NULL;
- return static_cast<MPI_Info>(simgrid::smpi::Info::f2c(info));
+ return simgrid::smpi::Info::f2c(info);
}
MPI_Fint PMPI_Info_c2f(MPI_Info info){