void mpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval,
MPI_Fint *ierr)
{
MPI_Datatype c_type = MPI_Type_f2c(*type);
*ierr = OMPI_INT_2_FINT(MPI_Type_delete_attr(c_type,
OMPI_FINT_2_INT(*type_keyval)
));
}
JNIEXPORT void JNICALL Java_mpi_Datatype_deleteAttr(
JNIEnv *env, jobject jthis, jlong type, jint keyval)
{
int rc = MPI_Type_delete_attr((MPI_Datatype)type, keyval);
ompi_java_exceptionCheck(env, rc);
}
int main( int argc, char *argv[] )
{
int errs = 0;
int key[3], attrval[3];
int i;
MPI_Datatype type;
MTest_Init( &argc, &argv );
{
type = MPI_INT;
/* Create key values */
for (i=0; i<3; i++) {
MPI_Type_create_keyval( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN,
&key[i], (void *)0 );
attrval[i] = 1024 * i;
}
/* Insert attribute in several orders. Test after put with get,
then delete, then confirm delete with get. */
MPI_Type_set_attr( type, key[2], &attrval[2] );
MPI_Type_set_attr( type, key[1], &attrval[1] );
MPI_Type_set_attr( type, key[0], &attrval[0] );
errs += checkAttrs( type, 3, key, attrval );
MPI_Type_delete_attr( type, key[0] );
MPI_Type_delete_attr( type, key[1] );
MPI_Type_delete_attr( type, key[2] );
errs += checkNoAttrs( type, 3, key );
MPI_Type_set_attr( type, key[1], &attrval[1] );
MPI_Type_set_attr( type, key[2], &attrval[2] );
MPI_Type_set_attr( type, key[0], &attrval[0] );
errs += checkAttrs( type, 3, key, attrval );
MPI_Type_delete_attr( type, key[2] );
MPI_Type_delete_attr( type, key[1] );
MPI_Type_delete_attr( type, key[0] );
errs += checkNoAttrs( type, 3, key );
MPI_Type_set_attr( type, key[0], &attrval[0] );
MPI_Type_set_attr( type, key[1], &attrval[1] );
MPI_Type_set_attr( type, key[2], &attrval[2] );
errs += checkAttrs( type, 3, key, attrval );
MPI_Type_delete_attr( type, key[1] );
MPI_Type_delete_attr( type, key[2] );
MPI_Type_delete_attr( type, key[0] );
errs += checkNoAttrs( type, 3, key );
for (i=0; i<3; i++) {
MPI_Type_free_keyval( &key[i] );
}
}
MTest_Finalize( errs );
MPI_Finalize();
return 0;
}
