[OMPI users] MPI_FILE_READ: wrong file-size does not raise an exception

[Stefan Mauerberger]

Hi Everyone!

Playing around with MPI_FILE_READ() puzzles me a little. To catch all
errors I set the error-handler - the one which is related to file I/O -
to MPI_ERRORS_ARE_FATAL. 
However, when reading from a file which has not the necessary size
MPI_FILE_READ(...) returns 'MPI_SUCCESS: no errors'. Well, read values
are just a mess. 
Does anyone have an idea how to catch such an error? 

Cheers, 
Stefan 

Btw.: Attached, there is a minimal example in Fortran. 




PROGRAM main 
    USE mpi 
    IMPLICIT NONE
    INTEGER :: i, field(10), mpi_file_handle, mpi_err, mpi_status(MPI_STATUS_SIZE), mpi_resultlen
    CHARACTER(MPI_MAX_ERROR_STRING) :: mpi_iomsg

    CALL MPI_INIT( mpi_err )
    CALL MPI_FILE_SET_ERRHANDLER( MPI_FILE_NULL, &
                                  MPI_ERRORS_ARE_FATAL, &
                                  mpi_err )

    CALL EXECUTE_COMMAND_LINE( 'touch test.dat' )

    CALL MPI_FILE_OPEN( MPI_COMM_WORLD, &
                        'test.dat', &
                        MPI_MODE_RDONLY, &
                        MPI_INFO_NULL, &
                        mpi_file_handle, &
                        mpi_err )

    CALL MPI_FILE_READ( mpi_file_handle, &
                        field(:), &
                        SIZE(field), &
                        MPI_REAL, &
                        mpi_status, &
                        mpi_err ) 

    CALL MPI_ERROR_STRING( mpi_err, mpi_iomsg, mpi_resultlen, i )
    WRITE(*,*) mpi_iomsg(1:mpi_resultlen)

    CALL MPI_FILE_CLOSE( mpi_file_handle, mpi_err )

    CALL MPI_FINALIZE( mpi_err )

END PROGRAM main