print message

fortran-lang · Dec 13, 2023 · e00845b · e00845b
1 parent 6605707
commit e00845b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/fpm_meta.f90 b/src/fpm_meta.f90
@@ -1076,6 +1076,9 @@ subroutine mpi_compiler_match(language,wrappers,compiler,which_one,mpilib,error)
         mpilib = which_mpi_library(wrappers(i),compiler,verbose=.false.)
 
         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,' error=',error%message
+
         if (allocated(error)) return
 
         select case (language)