well, but that is fortran90, bot f77 On 12/20/2010 1:55 PM, George Bosilca wrote: > Not really. The Fortran prototype from our man page is: > > INCLUDE ’mpif.h’ > MPI_FILE_GET_SIZE(FH, SIZE, IERROR) > INTEGER FH, ERROR > INTEGER(KIND=MPI_OFFSET_KIND) SIZE > > So the size is of type MPI_OFSET_KIND which is INTEGER*8 (signed). There is > still a mismatch between of C and the Fortran version (size_t vs. ssize_t on > my platform), but let's save this for later. > > george. > > On Dec 20, 2010, at 14:48 , Edgar Gabriel wrote: > >> well, but the f77 interface defines that to be an integer, unless you >> want to change the fortran API, you will have to map it to an MPI_Fint >> in my opinion. >> >> Edgar >> >> On 12/20/2010 1:36 PM, George Bosilca wrote: >>> Nice catch. The sizes are MPI_Offset in C, and therefore we should not cast >>> them as MPI_Fint. I'll take a look, but I doubt it will be before next >>> year. Meanwhile, patches are always welcomed. >>> >>> george. >>> >>> On Dec 20, 2010, at 10:59 , William George wrote: >>> >>>> >>>> In Fortran, calls to MPI_File_get_size return a negative value >>>> when the file is larger that 2GB. >>>> >>>> I am using Open MPI 1.4.3 on an x86_64 system. This happens with OpenMPI >>>> compiled with Intel compilers or GCC, so I don't think it has >>>> anything to do with the particular compiler in use. >>>> >>>> I can fix this by removing the cast to MPI_Fint in >>>> the function mpi_file_get_size_ in ompi/mpi/f77/file_get_size_f.c. >>>> >>>> Changing: >>>> *size = (MPI_Fint) c_size; >>>> >>>> To: >>>> >>>> *size = c_size; >>>> >>>> >>>> But my guess is that this is not a proper fix. >>>> >>>> There are a few other suspicious casts to MPI_Fint in the f77 >>>> directory too that probably cause similar problems: >>>> >>>> $ $ grep \(MPI_Fint\) *.c >>>> address_f.c: *address = (MPI_Fint) addr; >>>> file_get_position_f.c: *offset = (MPI_Fint) c_offset; >>>> file_get_position_shared_f.c: *offset = (MPI_Fint) c_offset; >>>> file_get_size_f.c: *size = (MPI_Fint) c_size; >>>> file_get_view_f.c: *disp = (MPI_Fint) c_disp; >>>> type_extent_f.c: *extent = (MPI_Fint)c_extent; >>>> >>>> >>>> I can also fix this problem by compiling OpenMPI with >>>> the flag -i8, but promoting all Fortran INTEGERs to 8-bytes >>>> does not seem correct either. >>>> >>>> So - is this a configuration problem, a compile problem. >>>> a source code bug, or what? Is there an MPI_FOffsetint >>>> and/or MPI_FAddressint type that should be used >>>> in these casts? >>>> >>>> >>>> Regards, >>>> -- >>>> Bill >>>> >>>> William L. George >>>> National Institute of Standards and Technology >>>> ITL - Applied and Computational Mathematics Division, Stop 8911 >>>> 100 Bureau Drive >>>> Gaithersburg, MD 20899-8911 >>>> >>>> >>>> _______________________________________________ >>>> devel mailing list >>>> de...@open-mpi.org >>>> http://www.open-mpi.org/mailman/listinfo.cgi/devel >>> >>> >>> _______________________________________________ >>> devel mailing list >>> de...@open-mpi.org >>> http://www.open-mpi.org/mailman/listinfo.cgi/devel >> >> -- >> Edgar Gabriel >> Assistant Professor >> Parallel Software Technologies Lab http://pstl.cs.uh.edu >> Department of Computer Science University of Houston >> Philip G. Hoffman Hall, Room 524 Houston, TX-77204, USA >> Tel: +1 (713) 743-3857 Fax: +1 (713) 743-3335 >> >> _______________________________________________ >> devel mailing list >> de...@open-mpi.org >> http://www.open-mpi.org/mailman/listinfo.cgi/devel > > > _______________________________________________ > devel mailing list > de...@open-mpi.org > http://www.open-mpi.org/mailman/listinfo.cgi/devel
-- Edgar Gabriel Assistant Professor Parallel Software Technologies Lab http://pstl.cs.uh.edu Department of Computer Science University of Houston Philip G. Hoffman Hall, Room 524 Houston, TX-77204, USA Tel: +1 (713) 743-3857 Fax: +1 (713) 743-3335
signature.asc
Description: OpenPGP digital signature