Changeset 4888 for mpich2/trunk/src/mpi/datatype/type_create_struct.c
- Timestamp:
- 07/02/09 09:58:01 (5 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
mpich2/trunk/src/mpi/datatype/type_create_struct.c
r3177 r4888 75 75 MPID_BEGIN_ERROR_CHECKS; 76 76 { 77 int i;77 int j; 78 78 MPID_Datatype *datatype_ptr = NULL; 79 79 … … 88 88 } 89 89 90 for ( i=0; i < count; i++) {91 MPIR_ERRTEST_ARGNEG(array_of_blocklengths[ i], "blocklen", mpi_errno);92 MPIR_ERRTEST_DATATYPE(array_of_types[ i], "datatype[i]",90 for (j=0; j < count; j++) { 91 MPIR_ERRTEST_ARGNEG(array_of_blocklengths[j], "blocklen", mpi_errno); 92 MPIR_ERRTEST_DATATYPE(array_of_types[j], "datatype[j]", 93 93 mpi_errno); 94 94 if (mpi_errno != MPI_SUCCESS) goto fn_fail; 95 95 96 if (array_of_types[ i] != MPI_DATATYPE_NULL && HANDLE_GET_KIND(array_of_types[i]) != HANDLE_KIND_BUILTIN) {97 MPID_Datatype_get_ptr(array_of_types[ i], datatype_ptr);96 if (array_of_types[j] != MPI_DATATYPE_NULL && HANDLE_GET_KIND(array_of_types[j]) != HANDLE_KIND_BUILTIN) { 97 MPID_Datatype_get_ptr(array_of_types[j], datatype_ptr); 98 98 MPID_Datatype_valid_ptr(datatype_ptr, mpi_errno); 99 99 if (mpi_errno != MPI_SUCCESS) goto fn_fail;
