MPI_Type_vector(n, 1, stride, MPI_DOUBLE, &vec);
MPI_Type_commit(&vec);
MPI_Type_extent(vec, &vextent);
- if (vextent != ((n - 1) * (MPI_Aint) stride + 1) * sizeof(double)) {
+ if (vextent != (MPI_Aint)(((n - 1) * stride + 1) * sizeof(double))) {
err++;
printf("Vector extent is %ld, should be %ld\n",
(long) vextent, (long) (((n - 1) * stride + 1) * sizeof(double)));