fix openmpi status struct

Author: simonbyrne

src/consts/openmpi.jl

@@ -26,8 +26,7 @@ struct MPI_Status
     MPI_TAG::Cint
     MPI_ERROR::Cint
     _private0::Cint
-    _private1::Cint
-    _private2::Cint
+    _private1::Csize_t
 end
 
 # Opaque handles:

src/nonblocking.jl

@@ -14,7 +14,7 @@ number of entries received.
 """
 const Status = MPI_Status
 
-@eval const STATUS_ZERO = Status($([Cint(0) for i in 1:sizeof(Status) ÷ sizeof(Cint)]...))
+const STATUS_ZERO = Status(map(zero,fieldtypes(Status))...)
 
 function Base.getproperty(status::Status, name::Symbol)
     name ≡ :error && return status.MPI_ERROR

test/test_sendrecv.jl

@@ -30,7 +30,6 @@ rreq = MPI.Irecv!(recv_mesg, comm; source=src,  tag=src+32)
 sreq = MPI.Isend(send_mesg, comm; dest=dst, tag=rank+32)
 
 stats = MPI.Waitall([sreq, rreq], MPI.Status)
-@show stats[2]
 @test rreq isa MPI.Request
 @test sreq isa MPI.Request
 @test MPI.Get_source(stats[2]) == src