### gsl_test.ml [ocaml] 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 [session] $ ./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)