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