### 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)