MPI I/O error with MPI_File_seek (no specific subroutine )

Question

currently, I am learning MPI I/O. As consequence, I struggling with the following example:

PROGRAM simple_write 
USE mpi 
IMPLICIT NONE
INTEGER :: rank, npro