- *ierr = MPI_Waitall(*count, reqs, FORT_STATUSES_IGNORE(status));
- for(i = 0; i < *count; i++) {
- if(reqs[i]==MPI_REQUEST_NULL){
- simgrid::smpi::Request::free_f(requests[i]);
- requests[i]=MPI_FORTRAN_REQUEST_NULL;
- }
+ *ierr = MPI_Waitall(*count, reqs.data(), FORT_STATUSES_IGNORE(status));
+ for (int i = 0; i < *count; i++) {
+ if (reqs[i] == MPI_REQUEST_NULL) {
+ simgrid::smpi::Request::free_f(requests[i]);
+ requests[i] = MPI_FORTRAN_REQUEST_NULL;
+ }