1function test85
2%TEST85 test GrB_transpose: 1-by-n with typecasting
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: Apache-2.0
6
7A.matrix = sparse ([ 1 2 3 4]) ;
8A.class  = 'single' ;
9
10C.matrix = sparse (4,1) ;
11C.class  = 'double' ;
12
13C2 = GB_mex_transpose (C, [ ], [ ], A, [ ]) ;
14assert (isequal (A.matrix', C2.matrix)) ;
15
16fprintf ('\ntest85: all tests passed\n') ;
17
18