@@ -118,40 +118,61 @@ mca_coll_base_alltoallv_intra_basic_inplace(const void *rbuf, const int *rcounts
118118 (char * ) rbuf + rdisps [right ] * extent );
119119 packed_size = max_size ;
120120 err = opal_convertor_pack (& convertor , & iov , & iov_count , & packed_size );
121- if (1 != err ) { goto error_hndl ; }
121+ if (1 != err ) {
122+ line = __LINE__ ;
123+ goto error_hndl ;
124+ }
122125
123126 /* Receive data from the right */
124127 err = MCA_PML_CALL (irecv ((char * ) rbuf + rdisps [right ] * extent , rcounts [right ], rdtype ,
125128 right , MCA_COLL_BASE_TAG_ALLTOALLV , comm , & req ));
126- if (MPI_SUCCESS != err ) { goto error_hndl ; }
129+ if (MPI_SUCCESS != err ) {
130+ line = __LINE__ ;
131+ goto error_hndl ;
132+ }
127133 }
128134
129135 if ( (left != right ) && (0 != rcounts [left ]) ) {
130136 /* Send data to the left */
131137 err = MCA_PML_CALL (send ((char * ) rbuf + rdisps [left ] * extent , rcounts [left ], rdtype ,
132138 left , MCA_COLL_BASE_TAG_ALLTOALLV , MCA_PML_BASE_SEND_STANDARD ,
133139 comm ));
134- if (MPI_SUCCESS != err ) { goto error_hndl ; }
140+ if (MPI_SUCCESS != err ) {
141+ line = __LINE__ ;
142+ goto error_hndl ;
143+ }
135144
136145 err = ompi_request_wait (& req , MPI_STATUSES_IGNORE );
137- if (MPI_SUCCESS != err ) { goto error_hndl ; }
146+ if (MPI_SUCCESS != err ) {
147+ line = __LINE__ ;
148+ goto error_hndl ;
149+ }
138150
139151 /* Receive data from the left */
140152 err = MCA_PML_CALL (irecv ((char * ) rbuf + rdisps [left ] * extent , rcounts [left ], rdtype ,
141153 left , MCA_COLL_BASE_TAG_ALLTOALLV , comm , & req ));
142- if (MPI_SUCCESS != err ) { goto error_hndl ; }
154+ if (MPI_SUCCESS != err ) {
155+ line = __LINE__ ;
156+ goto error_hndl ;
157+ }
143158 }
144159
145160 if ( 0 != rcounts [right ] ) { /* nothing to exchange with the peer on the right */
146161 /* Send data to the right */
147162 err = MCA_PML_CALL (send ((char * ) tmp_buffer , packed_size , MPI_PACKED ,
148163 right , MCA_COLL_BASE_TAG_ALLTOALLV , MCA_PML_BASE_SEND_STANDARD ,
149164 comm ));
150- if (MPI_SUCCESS != err ) { goto error_hndl ; }
165+ if (MPI_SUCCESS != err ) {
166+ line = __LINE__ ;
167+ goto error_hndl ;
168+ }
151169 }
152170
153171 err = ompi_request_wait (& req , MPI_STATUSES_IGNORE );
154- if (MPI_SUCCESS != err ) { goto error_hndl ; }
172+ if (MPI_SUCCESS != err ) {
173+ line = __LINE__ ;
174+ goto error_hndl ;
175+ }
155176 }
156177
157178 error_hndl :
@@ -161,8 +182,7 @@ mca_coll_base_alltoallv_intra_basic_inplace(const void *rbuf, const int *rcounts
161182
162183 if ( MPI_SUCCESS != err ) {
163184 OPAL_OUTPUT ((ompi_coll_base_framework .framework_output ,
164- "%s:%4d\tError occurred %d, rank %2d" , __FILE__ , line , err ,
165- rank ));
185+ "%s:%4d\tError occurred %d, rank %2d" , __FILE__ , line , err , rank ));
166186 (void )line ; // silence compiler warning
167187 }
168188
0 commit comments