Move from spread to reshape in MockMPI

Goddard-Fortran-Ecosystem · May 17, 2024 · bbc88f6 · bbc88f6
1 parent 51b33cf
commit bbc88f6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git 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
 
 ### Changed

diff --git 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