1try
2    load 'test_write_2d_numeric.mat'
3    expdata = cast(reshape(1:50,5,10),type);
4    pass = true;
5    pass = pass && isa(a,class(expdata));
6    pass = pass && all(size(a)==size(expdata));
7    pass = pass && all(a(:)==expdata(:));
8catch me
9    pass = false;
10end
11if pass
12    fprintf('PASSED\n');
13else
14    fprintf('FAILED\n');
15end
16exit;
17