1a1fd7ae3SBarry Smith static char help[] = "Check MPI error strings. Crashes with known error with MPICH.\n"; 2a1fd7ae3SBarry Smith 3a1fd7ae3SBarry Smith #include <petscsys.h> 4a1fd7ae3SBarry Smith 5a1fd7ae3SBarry Smith int main(int argc, char **argv) 6a1fd7ae3SBarry Smith { 7a1fd7ae3SBarry Smith PetscFunctionBeginUser; 8c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help)); 9a1fd7ae3SBarry Smith 10a1fd7ae3SBarry Smith for (PetscMPIInt err = 1; err <= MPI_ERR_LASTCODE; err++) { 11a1fd7ae3SBarry Smith PetscMPIInt len; 12a1fd7ae3SBarry Smith char errorstring[MPI_MAX_ERROR_STRING]; 13a1fd7ae3SBarry Smith 14a1fd7ae3SBarry Smith MPI_Error_string(err, (char *)errorstring, &len); 15a1fd7ae3SBarry Smith PetscCheck(len < MPI_MAX_ERROR_STRING, PETSC_COMM_WORLD, PETSC_ERR_LIB, "Error excessive string length from MPI_Error_string()"); 16a1fd7ae3SBarry Smith // PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Error code %d length %d string %s\n", err, len, errorstring)); 17a1fd7ae3SBarry Smith } 18a1fd7ae3SBarry Smith 19a1fd7ae3SBarry Smith PetscCall(PetscFinalize()); 20a1fd7ae3SBarry Smith return 0; 21a1fd7ae3SBarry Smith } 22a1fd7ae3SBarry Smith 23a1fd7ae3SBarry Smith /*TEST 24a1fd7ae3SBarry Smith 25a1fd7ae3SBarry Smith test: 26a1fd7ae3SBarry Smith requires: defined(PETSC_HAVE_OPENMPI) 27*3886731fSPierre Jolivet output_file: output/empty.out 28a1fd7ae3SBarry Smith 29a1fd7ae3SBarry Smith TEST*/ 30