Error when running: No NCI thunk available for signature '[ 4, 4, 4 ]'

nci_thunk_problem

sub test(*@args) {
  my $ans;
  ans := Q:PIR {
    .local pmc libgsl, gsl_ran_gaussian_pdf
    .local num ans, xval, sigma
    xval = 0.0
    sigma = 1.0
    libgsl = loadlib "libgsl"
    if libgsl goto HAVELIBRARY
      say 'Could not load the library'
    HAVELIBRARY:
    gsl_ran_gaussian_pdf = dlfunc libgsl, "gsl_ran_gaussian_pdf", "ddd"
    ans = gsl_ran_gaussian_pdf(xval, sigma)
    %r = box ans
  };
  print($ans);
  return $ans;
}