$title 'Test correctness of fact intrinsic' (FNFACT,SEQ=164)

* define some sets, etc.
$include fnset_x.inc

$gdxIn fnfact
$load aeps reps relToInput T data
$gdxIn

* reps = 1e-16;

loop {T,
  data(T,  'f')    = fact.value (data(T,'x'));
  data(T, 'rc')    = mathlastrc;
  data(T, 'ec')    = mathlastec;
};

* display data;

* the data set contains some inputs that cause overflow and domain violations
abort$[execerror < 3] 'Should get execution errors with this test';
execerror = 0;

$include fntest_x.inc