options double memory=5 nodate;
title 'Test new uniform random generator';
smpl 1,100000;
random(gen=2,seedin=12345);
set total = 0;
do i=1,100;
  random(uniform) x;
  mat total = total + sum(x);
enddo;
title 'sum of the first 10,000,000 uniform random variables';
set correct = 5000494.15 ;
print total,correct;