program main
    use mpi
    implicit none

    integer fh, buf_len, elmtype, status, err, errorStringLen
    character(256) filename
    character(MPI_MAX_ERROR_STRING) errorString
    double precision, dimension(:), allocatable :: buf

    call MPI_Init(err)

    filename = '/orangefs/wkliao/testfile'
    call MPI_File_open(MPI_COMM_WORLD, filename,      &
                       MPI_MODE_RDWR+MPI_MODE_CREATE, &
                       MPI_INFO_NULL, fh, err)

    buf_len = 322437120
    allocate(buf(buf_len))

    call MPI_File_write(fh, buf, buf_len, MPI_DOUBLE, status, err)
    if (err .NE. MPI_SUCCESS) then
        call MPI_Error_string(err, errorString, errorStringLen, err)
        print*, 'Error: MPI_File_write MPI_DOUBLE '//trim(errorString)
    endif

    call MPI_Type_contiguous(buf_len, MPI_DOUBLE, elmtype, err)
    if (err .NE. MPI_SUCCESS) then
        call MPI_Error_string(err, errorString, errorStringLen, err)
        print*, 'Error: MPI_Type_contiguous '//trim(errorString)
    endif

    call MPI_File_write(fh, buf, 1, elmtype, status, err)
    if (err .NE. MPI_SUCCESS) then
        call MPI_Error_string(err, errorString, errorStringLen, err)
        print*, 'Error: MPI_File_write (ddtype) '//trim(errorString)
    endif

    deallocate(buf)
    call MPI_File_close(fh, err)
    call MPI_Finalize(err)
end program

! % mpif90 write_large_f.F90
!
! % a.out 
!  Error: MPI_File_write MPI_DOUBLE Invalid argument, error stack:
! MPI_FILE_WRITE(102): Invalid count argument
!  Error: MPI_File_write (ddtype) Invalid argument, error stack:
! MPI_FILE_WRITE(102): Invalid count argument