getf SCI/util/testexamples.sci
 
reinit_for_test()
 
%U=mopen('SCI/tests/automatic_tests/for_data.ref','rb');
 
n = 5;
 
for i = 1:n,  for j = 1:n,  a(i, j) = 1/(i + j - 1);end,end,
 
for j = 2:n - 1,  a(j, j) = j;end,a;
 
if load_ref('a') then   bugmes();quit;end,
 
 
for e = eye(3, 3),  e;
  if load_ref('e') then   bugmes();quit;end,
end,
 
for v = a,  %ans = write(6, v);
  if load_ref('%ans') then   bugmes();quit;end,
end,
  1.0000000000D+00
  5.0000000000D-01
  3.3333333333D-01
  2.5000000000D-01
  2.0000000000D-01
  5.0000000000D-01
  2.0000000000D+00
  2.5000000000D-01
  2.0000000000D-01
  1.6666666667D-01
  3.3333333333D-01
  2.5000000000D-01
  3.0000000000D+00
  1.6666666667D-01
  1.4285714286D-01
  2.5000000000D-01
  2.0000000000D-01
  1.6666666667D-01
  4.0000000000D+00
  1.2500000000D-01
  2.0000000000D-01
  1.6666666667D-01
  1.4285714286D-01
  1.2500000000D-01
  1.1111111111D-01
 
for j = 1:n,  v = a(:, j);
  if load_ref('v') then   bugmes();quit;end,
  %ans = write(6, v);
  if load_ref('%ans') then   bugmes();quit;end,
end,
  1.0000000000D+00
  5.0000000000D-01
  3.3333333333D-01
  2.5000000000D-01
  2.0000000000D-01
  5.0000000000D-01
  2.0000000000D+00
  2.5000000000D-01
  2.0000000000D-01
  1.6666666667D-01
  3.3333333333D-01
  2.5000000000D-01
  3.0000000000D+00
  1.6666666667D-01
  1.4285714286D-01
  2.5000000000D-01
  2.0000000000D-01
  1.6666666667D-01
  4.0000000000D+00
  1.2500000000D-01
  2.0000000000D-01
  1.6666666667D-01
  1.4285714286D-01
  1.2500000000D-01
  1.1111111111D-01
 
for l = list(1, 2, 'example'),  l;
  if load_ref('l') then   bugmes();quit;end,
end,
 
xdel_run(winsid());
 
 
mclose(%U);