Hi,
Can you try to allocate conc array before inititialization ?
Regards,
Jalel
Le 11/01/2013 14:01, Stefan Mauerberger a écrit :
Hi There!
First of all, this is my first post here. In case I am doing something
inappropriate pleas be soft with me. On top of that I am not quite sure
whether that issue is related to Open MPI or GCC.
Regarding my problem: Well, it is a little bulky, see below. I could
figure out that the actual crash is caused by invoking Fortran's array
constructor [ xx, yy ] on derived-data-types xx and yy. The one key
factor is that those types have allocatable member variables.
Well, that fact points to blame gfortran for that. However, the crash
does not occur if MPI_Iinit is not called in before. Compiled as a
serial program everything works perfectly fine. I am pretty sure, the
lines I wrote are valid F2003 code.
Here is a minimal working example:
PROGRAM main
USE mpi
IMPLICIT NONE
INTEGER :: ierr
TYPE :: test_typ
REAL, ALLOCATABLE :: a(:)
END TYPE
TYPE(test_typ) :: xx, yy
TYPE(test_typ), ALLOCATABLE :: conc(:)
CALL mpi_init( ierr )
conc = [ xx, yy ]
CALL mpi_finalize( ierr )
END PROGRAM main
Just compile with mpif90 ... and execute leads to:
*** glibc detected *** ./a.out: free(): invalid pointer: 0x00007fefd2a147f8 ***
======= Backtrace: =========
/lib/x86_64-linux-gnu/libc.so.6(+0x7eb96)[0x7fefd26dab96]
./a.out[0x400fdb]
./a.out(main+0x34)[0x401132]
/lib/x86_64-linux-gnu/libc.so.6(__libc_start_main+0xed)[0x7fefd267d76d]
./a.out[0x400ad9]
With commenting out 'CALL MPI_Init' and 'MPI_Finalize' everything seems to be
fine.
What do you think: Is this a OMPI or a GCC related bug?
Cheers,
Stefan
_______________________________________________
users mailing list
us...@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/users
--
*------------------------------------------------------------------------*
Jalel CHERGUI, LIMSI-CNRS, Bât. 508 - BP 133, 91403 Orsay cedex, FRANCE
Tél: (33 1) 69 85 81 27 ; Télécopie: (33 1) 69 85 80 88
Mél: jalel.cher...@limsi.fr ; Référence: http://perso.limsi.fr/chergui
*------------------------------------------------------------------------*
