gsl_test.ml
- exception Got_value of float
- let () =
- Gsl_error.init ();
- let exn =
- try
- let res = Gsl_cdf.gamma_Pinv ~p:0.250000 ~a:0.016000 ~b:1. in
- print_endline "got a value ?";
- Got_value res
- with
- | exc -> exc
- in
- print_endline "got an exception";
- raise exn
output
- $ ./gsl_test.native
- Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
- $ ./gsl_test.byte
- got an exception
- Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
- (Program not linked with -g, cannot print stack backtrace)