[Bug] GrB_apply one about graphblas HOT 5 CLOSED

#include "GraphBLAS.h"

// to compile and run:
// gcc bug.c /usr/local/lib/libgraphblas.so -lm -Wl,--verbose
// ldd a.out
// ./a.out

#if java_example

fn test_matrix_apply_transpose_on_self_fail_java() {
        let mut mat1 = SparseMatrix::<i32>::empty((1, 3));
        mat1.insert((0, 0), -3); // GrB_Matrix_setElement
        mat1.insert((0, 2), -4);
        mat1.insert((0, 1), 10);

        mat1.wait();

        // GrB_Marix_apply
        let mut mat2 = mat1.apply_mut::<i32, bool>(
            UnaryOp::<i32, i32>::one(), //GxB_ONE_INT32
            None,
            None,
            &Descriptor::default(),
        );

        mat2.wait();

        assert_eq!(mat2.shape(), (1, 3));
        assert_eq!(mat2.get((0, 0)), Some(1)); //this fails
        assert_eq!(mat2.get((0, 2)), Some(1)); //this fails
        assert_eq!(mat2.get((0, 1)), Some(1)); //this fails
    }

#endif

int main (void)
{
    GrB_init (GrB_NONBLOCKING) ;
    int ver [3] ;
    GxB_get (GxB_LIBRARY_VERSION, ver) ;
    printf ("SuiteSparse:GraphBLAS v%d.%d.%d\n", ver [0], ver [1], ver [2]) ;

    GrB_Matrix A, B ;
    GrB_Matrix_new (&A, GrB_INT32, 1, 3) ;
    GxB_print (A, 3) ;

    GrB_Matrix_setElement_INT32 (A, -3, 0, 0) ;
    GrB_Matrix_setElement_INT32 (A, -4, 0, 2) ;
    GrB_Matrix_setElement_INT32 (A, 10, 0, 1) ;
    GxB_print (A, 3) ;
    GrB_Matrix_wait (&A) ;

    GrB_Matrix_new (&B, GrB_INT32, 1, 3) ;
    GrB_apply (B, NULL, NULL, GxB_ONE_INT32, A, NULL) ;
    GxB_print (B, 3) ;

    int32_t result = 42 ;
    GrB_Matrix_extractElement_INT32 (&result, B, 0, 0) ;
    printf ("B(0,0) = %d\n", result) ;
    printf ("test: %s\n", (result == 1) ? "PASS" : "FAIL") ;

    result = 99 ;
    GrB_Matrix_extractElement_INT32 (&result, B, 0, 2) ;
    printf ("B(0,2) = %d\n", result) ;
    printf ("test: %s\n", (result == 1) ? "PASS" : "FAIL") ;

    result = 101 ;
    GrB_Matrix_extractElement_INT32 (&result, B, 0, 1) ;
    printf ("B(0,1) = %d\n", result) ;
    printf ("test: %s\n", (result == 1) ? "PASS" : "FAIL") ;

    GrB_free (&A) ;
    GrB_free (&B) ;
    GrB_finalize ( ) ;
}

// along these lines
GrB_apply (A, NULL, NULL, GxB_ONE_INT32, A, NULL) ;