I forwarded this on to the ROMIO maintainers; let's see what they say...

On Jul 18, 2008, at 11:38 AM, Edgar Gabriel wrote:

here is a patch that we use on our development version to silence that warning, you have to apply it to.

ompi/ompi/mca/io/romio/romio/mpi-io/io_romio_close.c

I would not like to commit that to the repository since I can not oversee whether it causes problems in some other settings/scenario/ file systems. However, it fixed for us the problems when experimenting with shared file pointers (e.g. MPI_File_write_ordered) and did not create any issues so far.

Application of that patch at your own risk:-)

Thanks
Edgar


Brian Austin wrote:
Hi,

Sorry about my previous message, it was sent before I'd finished composing it.

Whenever I use MPI_File_write_ordered(), all but one process send the following message to stderr.
ADIOI_GEN_DELETE (line 22): **io No such file or directory

I have read
http://www.open-mpi.org/community/lists/users/2008/01/4936.php
which suggests that this message appears because my program is trying to delete a file that does not exist, but my program does not explicitly delete any files. I've included a test program to demonstrate the message.

Is there anything I can do to avoid or suppress this message?
The message I referred to before says that I could "ignore errors from MPI_File_delete". How do I do that?

Thanks,
Brian

int
main( int argc, char *argv[]){

 char buff[2] = "a";
 MPI_File fh;
 MPI_Status status;

 MPI_Init( &argc, &argv );

 MPI_File_open( MPI_COMM_WORLD, "foo.txt",
        MPI_MODE_CREATE | MPI_MODE_WRONLY,
        MPI_INFO_NULL, &fh );

 MPI_File_write_ordered( fh, buff, 1, MPI_BYTE, &status );

 MPI_File_close( &fh );

 MPI_Finalize();

 return 0;
}//main

------------------------------------------------------------------------

_______________________________________________
users mailing list
us...@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/users

42d41
<
66,73c65
<        int rank;
<        MPI_Comm_rank ( (fh)->comm, &rank );
<        if ( rank == 0 ) {
<            ADIO_Close((fh)->shared_fp_fd, &error_code);
<        }
<        else {
<            error_code = MPI_SUCCESS;
<        }
---
            ADIO_Close((fh)->shared_fp_fd, &error_code);
_______________________________________________
users mailing list
us...@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/users


--
Jeff Squyres
Cisco Systems

Reply via email to