Skip to content

[metapackage] fix/extend Intel LLVM MPI #1134

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 12 commits into
base: main
Choose a base branch
from
8 changes: 7 additions & 1 deletion .github/actions/setup-intel/action.yml
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,12 @@ inputs:
description: 'Operating system of the runner. Must contain "windows" or "ubuntu".'
required: true
type: string

version:
description: 'Intel oneAPI installer version for Ubuntu (e.g. 2024.1.0).'
required: false
default: '2024.1.0'
type: string

runs:
using: "composite"
Expand Down Expand Up @@ -87,7 +93,7 @@ runs:
uses: fortran-lang/setup-fortran@v1
with:
compiler: intel
version: 2024.1.0 # Pinned until issue #1090 is resolved
version: ${{ inputs.version }}

- name: (Ubuntu) Install Intel oneAPI MPI and build dependencies
if: contains(inputs.os, 'ubuntu')
Expand Down
12 changes: 8 additions & 4 deletions .github/workflows/meta.yml
Original file line number Diff line number Diff line change
Expand Up @@ -33,8 +33,6 @@ jobs:
fail-fast: false
matrix:
include:
- os: ubuntu-latest
mpi: intel
- os: ubuntu-latest
mpi: openmpi
- os: ubuntu-latest
Expand All @@ -43,6 +41,12 @@ jobs:
mpi: openmpi
- os: macos-13
mpi: mpich
- os: ubuntu-latest
mpi: intel
intel_version: "2024.1.0"
- os: ubuntu-latest
mpi: intel
intel_version: "2025.0"

steps:
- name: Checkout code
Expand Down Expand Up @@ -91,13 +95,13 @@ jobs:
libnetcdf-dev libnetcdff-dev libopenblas-dev

# Intel

- name: Setup Intel Environment
if: contains(matrix.mpi, 'intel')
uses: ./.github/actions/setup-intel
with:
os: ${{ matrix.os }}

version: ${{ matrix.intel_version }}

- name: (Ubuntu) Build and Install HDF5 from source
if: contains(matrix.os, 'ubuntu') && contains(matrix.mpi, 'intel')
# Needs checkout if source code isn't available, adjust if needed
Expand Down
43 changes: 35 additions & 8 deletions src/metapackage/fpm_meta_mpi.f90
Original file line number Diff line number Diff line change
Expand Up @@ -761,8 +761,8 @@ subroutine mpi_wrappers(compiler,fort_wrappers,c_wrappers,cpp_wrappers)
string_t(get_env('MPIf77','mpif77'))]

if (get_os_type()==OS_WINDOWS) then
c_wrappers = [c_wrappers,string_t('mpicc.bat')]
cpp_wrappers = [cpp_wrappers,string_t('mpicxx.bat')]
c_wrappers = [c_wrappers,string_t('mpicc.bat')]
cpp_wrappers = [cpp_wrappers,string_t('mpicxx.bat')]
fort_wrappers = [fort_wrappers,string_t('mpifc.bat')]
endif

Expand All @@ -775,10 +775,9 @@ subroutine mpi_wrappers(compiler,fort_wrappers,c_wrappers,cpp_wrappers)
fort_wrappers = [fort_wrappers,string_t('mpigfortran'),string_t('mpgfortran'),&
string_t('mpig77'),string_t('mpg77')]

case (id_intel_classic_windows,id_intel_llvm_windows, &
id_intel_classic_nix,id_intel_classic_mac,id_intel_llvm_nix,id_intel_llvm_unknown)

c_wrappers = [string_t(get_env('I_MPI_CC','mpiicc'))]
case (id_intel_classic_windows,id_intel_classic_nix,id_intel_classic_mac)

c_wrappers = [string_t(get_env('I_MPI_CC' ,'mpiicc'))]
cpp_wrappers = [string_t(get_env('I_MPI_CXX','mpiicpc'))]
fort_wrappers = [string_t(get_env('I_MPI_F90','mpiifort'))]

Expand All @@ -802,6 +801,32 @@ subroutine mpi_wrappers(compiler,fort_wrappers,c_wrappers,cpp_wrappers)

end if

case (id_intel_llvm_windows,id_intel_llvm_nix,id_intel_llvm_unknown)

c_wrappers = [string_t(get_env('I_MPI_CC' ,'mpiicx'))]
cpp_wrappers = [string_t(get_env('I_MPI_CXX','mpiicpx'))]
fort_wrappers = [string_t(get_env('I_MPI_F90','mpiifx'))]

! Also search MPI wrappers via the base MPI folder
mpi_root = get_env('I_MPI_ROOT')
if (mpi_root/="") then

mpi_root = join_path(mpi_root,'bin')

intel_wrap = join_path(mpi_root,'mpiifx')
if (get_os_type()==OS_WINDOWS) intel_wrap = get_dos_path(intel_wrap,error)
if (intel_wrap/="") fort_wrappers = [fort_wrappers,string_t(intel_wrap)]

intel_wrap = join_path(mpi_root,'mpiicx')
if (get_os_type()==OS_WINDOWS) intel_wrap = get_dos_path(intel_wrap,error)
if (intel_wrap/="") c_wrappers = [c_wrappers,string_t(intel_wrap)]

intel_wrap = join_path(mpi_root,'mpiicpx')
if (get_os_type()==OS_WINDOWS) intel_wrap = get_dos_path(intel_wrap,error)
if (intel_wrap/="") cpp_wrappers = [cpp_wrappers,string_t(intel_wrap)]

end if

case (id_pgi,id_nvhpc)

c_wrappers = [c_wrappers,string_t('mpipgicc'),string_t('mpgcc')]
Expand Down Expand Up @@ -1095,11 +1120,13 @@ type(string_t) function mpi_wrapper_query(mpilib,wrapper,command,verbose,error)

case (MPI_TYPE_INTEL)

! --showme:command returns the build command of this wrapper
! -v returns the build command of this wrapper
call run_wrapper(wrapper,[string_t('-v')],verbose=verbose, &
exitcode=stat,cmd_success=success,screen_output=screen)

if (stat/=0 .or. .not.success) then
! LLVM wrappers bug: non-zero exit code when checking for "-v" -> only check for
! successful command: https://github.com/spack/spack/issues/47672
if (.not.success) then
call syntax_error(error,'local INTEL MPI library does not support -v')
return
else
Expand Down
Loading