As I'm unable to correctly compute the size in multiple of the datatype, let me do

it in the simplest way: multiple of the original datatype + the h version of the
vector function.

This commit was SVN r10313.

ompi/mpi/c/type_create_subarray.c

@@ -101,8 +101,8 @@ int MPI_Type_create_subarray(int ndims,
     size = size_array[i] * size_array[i+step];
     displ = start_array[i] + start_array[i+step] * size_array[i];
     for( i += 2 * step; i != end_loop; i += step ) {
-        ompi_ddt_create_vector( subsize_array[i], 1, size_array[i],
-                                last_type, newtype );
+        ompi_ddt_create_hvector( subsize_array[i], 1, size * extent,
+                                 last_type, newtype );
         ompi_ddt_destroy( &last_type );
         displ += size * start_array[i];
         size *= size_array[i];