Fix typo in create_resized (#495)

Author: carstenbauer

src/datatypes.jl

@@ -361,7 +361,7 @@ communication.
 $(_doc_external("MPI_Type_create_resized"))
 """
 function create_resized(oldtype::Datatype, lb::Integer, extent::Integer)
-    finalizer(free, create_resized(Datatype(), oldtype, lb, extent))
+    finalizer(free, create_resized!(Datatype(), oldtype, lb, extent))
 end
 function create_resized!(newtype::Datatype, oldtype::Datatype, lb::Integer, extent::Integer)
     # int MPI_Type_create_resized(MPI_Datatype oldtype, MPI_Aint lb,

test/test_datatype.jl

@@ -150,6 +150,37 @@ end
     @test arr_recv == [nothing for i = 1:100]
 end
 
+struct Particle
+    x::Float32
+    y::Float32
+    z::Float32
+    velocity::Float32
+    name::Char
+    mass::Float64
+end
+@testset "create_X" begin
+    # create_vector
+    RowType = MPI.Types.create_vector(8, 1, 8, MPI.DOUBLE)
+    @test typeof(RowType) == MPI.Datatype
+    
+    # create_subarray
+    SubMatrixType = MPI.Types.create_subarray((8, 8), (4, 4), (0, 0), MPI.INT64_T)
+    @test typeof(SubMatrixType) == MPI.Datatype
+
+    # create_struct + _resized
+    oldtypes = MPI.Datatype.([Float32, Char, Float64])
+    len = [4, 1, 1]
+    disp = Vector{Int}(undef, 3)
+    disp[1] = 0
+    disp[2] = disp[1] + 4 * sizeof(Float32)
+    disp[3] = disp[2] + sizeof(Char)
+
+    tmp = MPI.Types.create_struct(len, disp, oldtypes)
+    @test typeof(tmp) == MPI.Datatype
+    ParticleMPI = MPI.Types.create_resized(tmp, 0, sizeof(Particle))
+    @test typeof(ParticleMPI) == MPI.Datatype
+end
+
 
 MPI.Barrier(MPI.COMM_WORLD)
 MPI.Finalize()