preallocate wrapper strings

fortran-lang · Dec 13, 2023 · 15434b1 · 15434b1
1 parent 7e8cb16
commit 15434b1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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