From e00845bc231f4ea171d9ee8908df2c51196577c0 Mon Sep 17 00:00:00 2001
From: Federico Perini <federico.perini@gmail.com>
Date: Wed, 13 Dec 2023 17:06:29 +0100
Subject: [PATCH] print message

---
 src/fpm_meta.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/fpm_meta.f90 b/src/fpm_meta.f90
index d761184fc0..b07ed2a71b 100644
--- 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)