[MPICH] Problem with MPI_TYPE_CREATE_RESIZED

[Trach-Minh Tran]

Hi,

Thanks for your prompt reply.

On 02/10/2008 03:28 PM, Rajeev Thakur wrote:
> I can't reproduce the error. What compiler are you using? Also, it may not

Intel ifort 9.1

> matter but it should be integer(kind=MPI_ADDRESS_KIND).

With and whithout "KIND= ..." give (with mpich2-1.0.6)
the same error:

$ mpiexec  -n 1 ./a.out
 LINE_TYPE: lb, extent           0         364
Assertion failed in file dataloop.c at line 554: old_loop_sz > 0
[cli_0]: aborting job:
internal ABORT - process 0
rank 0 in job 6  gimel3_48868   caused collective abort of all ranks
  exit status of rank 0: return code 1

-Minh

> 
> 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
>>
>>
> 

-- 
Dr. Trach-Minh Tran
CRPP/SB/EPFL http://crppwww.epfl.ch
Swiss Federal Institute of Technology
CH-1015 Lausanne
Office: http://plan.epfl.ch/?room=PPB111
Tel: +41 21 693 4569
Fax: +41 21 693 5176