From d6db099f69d96548d726e412f31b9abeddc6afeb Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Wed, 13 Dec 2023 17:49:06 +0100 Subject: [PATCH] Update fpm_meta.f90 --- src/fpm_meta.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/fpm_meta.f90 b/src/fpm_meta.f90 index 60b3151961..20d75a24d4 100644 --- a/src/fpm_meta.f90 +++ b/src/fpm_meta.f90 @@ -1082,7 +1082,8 @@ 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,' current=',compiler%fc,compiler%cc,compiler%cxx + 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