1function gbtest34 2%GBTEST34 test repmat 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: GPL-3.0-or-later 6 7rng ('default') ; 8 9for m1 = 0:5 10 for n1 = 0:5 11 fprintf ('.') ; 12 for m2 = 0:5 13 for n2 = 0:5 14 A = rand (m1, n1) ; 15 C = repmat (A, m2, n2) ; 16 G = GrB (A) ; 17 H = repmat (G, m2, n2) ; 18 assert (gbtest_eq (C, H)) ; 19 20 C = repmat (A, m2) ; 21 H = repmat (G, m2) ; 22 assert (gbtest_eq (C, H)) ; 23 end 24 end 25 end 26end 27 28fprintf ('\ngbtest34: all tests passed\n') ; 29 30