[MPICH] Problem with MPI_TYPE_CREATE_RESIZED

[Trach-Minh Tran]

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