function gbtest26
%GBTEST26 test typecasting

% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2020, All Rights
% Reserved. http://suitesparse.com.  See GraphBLAS/Doc/License.txt.

types = gbtest_types ;

rng ('default') ;
for k1 = 1:length (types)

    atype = types {k1} ;
    fprintf ('\n================================================ %s\n', atype) ;
    A = gbtest_cast (100 * rand (3), atype) %#ok<*NOPRT>
    H = GrB (A) ;
    B = GrB (H, atype) ;
    assert (gbtest_eq (A, B)) ;

    for k2 = 1:length (types)

        gtype = types {k2} ;
        fprintf ('\n------------ %s:\n', gtype) ;
        G = GrB (H, gtype)
        K = GrB (G, atype) %#ok<*NASGU>
    end
end

fprintf ('gbtest26: all tests passed\n') ;

