From 00154586018c0c56c90837eacad57425131bd8e1 Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Wed, 13 Dec 2023 18:08:04 +0100 Subject: [PATCH] get link flags from mpiifort -show --- src/fpm_meta.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fpm_meta.f90 b/src/fpm_meta.f90 index 29fa3abb67..e1ef847065 100644 --- a/src/fpm_meta.f90 +++ b/src/fpm_meta.f90 @@ -993,7 +993,6 @@ subroutine init_mpi_from_wrappers(this,compiler,mpilib,fort_wrapper,c_wrapper,cx call destroy(this) ! Get linking flags - if (mpilib/=MPI_TYPE_INTEL) & this%link_flags = mpi_wrapper_query(mpilib,fort_wrapper,'link',verbose,error) if (allocated(error)) return @@ -1489,6 +1488,7 @@ type(string_t) function mpi_wrapper_query(mpilib,wrapper,command,verbose,error) select case (mpilib) case (MPI_TYPE_OPENMPI); cmdstr = string_t('--showme:link') case (MPI_TYPE_MPICH); cmdstr = string_t('-link-info') + case (MPI_TYPE_INTEL); cmdstr = string_t('-show') case default call fatal_error(error,unsupported_msg) return @@ -1506,7 +1506,7 @@ type(string_t) function mpi_wrapper_query(mpilib,wrapper,command,verbose,error) select case (mpilib) case (MPI_TYPE_OPENMPI) call remove_newline_characters(screen) - case (MPI_TYPE_MPICH) + case (MPI_TYPE_MPICH,MPI_TYPE_INTEL) ! MPICH reports the full command including the compiler name. Remove it if so call remove_newline_characters(screen) call split(screen%s,tokens)