use strict;
use warnings;
use feature 'say';

use Math::GSL::SparseMatrix ':all';

my $m = gsl_spmatrix_alloc( 1, 1 );

die if gsl_spmatrix_set( $m, 0, 0, 1 );
say gsl_spmatrix_nnz( $m );
die if gsl_spmatrix_set( $m, 123 + 1 << 32, 0, 1 );
say gsl_spmatrix_nnz( $m );
die if gsl_spmatrix_set( $m, 456 + 1 << 32, 0, 1 );
say gsl_spmatrix_nnz( $m );