From 15434b1b8405a06643a7e56a35979a16e4675df8 Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Wed, 13 Dec 2023 17:46:06 +0100 Subject: [PATCH] preallocate wrapper strings --- src/fpm_meta.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/fpm_meta.f90 b/src/fpm_meta.f90 index b917c8d9e9..60b3151961 100644 --- a/src/fpm_meta.f90 +++ b/src/fpm_meta.f90 @@ -488,6 +488,9 @@ subroutine init_mpi(this,compiler,error) !> Cleanup call destroy(this) + fwrap = string_t("") + cwrap = string_t("") + cxxwrap = string_t("") !> Get all candidate MPI wrappers call mpi_wrappers(compiler,fort_wrappers,c_wrappers,cpp_wrappers) @@ -1079,7 +1082,7 @@ subroutine mpi_compiler_match(language,wrappers,compiler,which_one,mpilib,error) screen = mpi_wrapper_query(mpilib,wrappers(i),'compiler',verbose=.false.,error=error) - print *, 'mpi wrapper ',wrappers(i)%s,' lib=',MPI_TYPE_NAME(mpilib),' compiler=',screen%s + print *, 'mpi wrapper ',wrappers(i)%s,' lib=',MPI_TYPE_NAME(mpilib),' compiler=',screen%s,' current=',compiler%fc,compiler%cc,compiler%cxx if (allocated(error)) print *, ' error=',error%message if (allocated(error)) return