[MPICH] Problem with MPI_TYPE_CREATE_RESIZED

[Rajeev Thakur]

I can't reproduce the error. What compiler are you using? Also, it may not
matter but it should be integer(kind=MPI_ADDRESS_KIND).

Rajeev 

> -----Original Message-----
> From: owner-mpich-discuss at mcs.anl.gov 
> [mailto:owner-mpich-discuss at mcs.anl.gov] On Behalf Of Trach-Minh Tran
> Sent: Sunday, February 10, 2008 2:16 AM
> To: MPICH Discuss
> Subject: [MPICH] Problem with MPI_TYPE_CREATE_RESIZED
> 
> Hello,
> 
> Using mpich2-1.0.6p1, MPI_TYPE_CREATE_RESIZED produces an 
> error. Running the following fortran program aborts with the error:
> 
> Assertion failed in file dataloop.c at line 554: old_loop_sz > 0
> 
> With versions prior to 1.0.5, this programs runs without any error.
> 
> Regards,   -Minh.
> 
> PROGRAM main
>   USE mpi
>   IMPLICIT NONE
>   INTEGER :: ierr, LINE_TYPE, LINES_TYPE
>   INTEGER(MPI_ADDRESS_KIND) :: extent, lb !
>   CALL MPI_INIT(ierr)
> !
>   CALL MPI_TYPE_VECTOR(10, 1, 10, MPI_INTEGER, LINE_TYPE, ierr)
>   CALL MPI_TYPE_COMMIT(LINE_TYPE, ierr)
> !
>   CALL MPI_TYPE_GET_EXTENT(MPI_INTEGER, lb, extent, ierr)
>   CALL MPI_TYPE_CREATE_RESIZED(LINE_TYPE, lb, extent, 
> LINES_TYPE, ierr)
>   CALL MPI_TYPE_COMMIT(LINES_TYPE, ierr) !
>   CALL MPI_TYPE_GET_EXTENT(LINES_TYPE, lb, extent, ierr)
>   PRINT*, 'LINES_TYPE: lb, extent', lb, extent !
>   CALL MPI_FINALIZE(ierr)
> END PROGRAM main
> 
>