diff --git a/ChangeLog.md b/ChangeLog.md index e556da2..080c9e0 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -7,6 +7,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ## [Unreleased] +### Changed + +- Change use of `spread` in `MockMPI.F90` initialization to `reshape` to avoid NVHPC issue + ## [1.14.0] - 2024-03-26 ### Fixed diff --git a/src/MockMpi.F90 b/src/MockMpi.F90 index 5c549e8..d14b746 100644 --- a/src/MockMpi.F90 +++ b/src/MockMpi.F90 @@ -20,7 +20,7 @@ module mpi integer, parameter :: MPI_ADDRESS_KIND = INT64 integer, parameter :: MPI_STATUS_SIZE = 6 - integer, parameter :: MPI_STATUS_IGNORE(MPI_STATUS_SIZE) = spread(0, dim=1, ncopies=MPI_STATUS_SIZE) + integer, parameter :: MPI_STATUS_IGNORE(MPI_STATUS_SIZE) = reshape([0], shape=[MPI_STATUS_SIZE], pad=[0]) integer, parameter :: MPI_LOGICAL = 9 integer, parameter :: MPI_SUCCESS = 0 integer, parameter :: MPI_INFO_NULL = 0