void chstwo(double bins1[], double bins2[], int nbins, int knstrn, double *df,
            double *chsq, double *prob) {
  double gammq(double a, double x);
  int j;
  double temp;
  *df = nbins - knstrn;
  *chsq = 0.0;
  for (j = 1; j <= nbins; j++)
    if (bins1[j] == 0.0 && bins2[j] == 0.0)
      --(*df);
    else {
      temp = bins1[j] - bins2[j];
      *chsq += temp * temp / (bins1[j] + bins2[j]);
    }
  *prob = gammq(0.5 * (*df), 0.5 * (*chsq));
}


x86 assembly (clang, -O0):
<chstwo>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    -0x18(%rbp),%eax
cvtsi2sd %eax,%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1221 <chstwo+0x111>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11bb <chstwo+0xab>
jp     11bb <chstwo+0xab>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11bb <chstwo+0xab>
jp     11bb <chstwo+0xab>
mov    -0x20(%rbp),%rax
movsd  0xe5a(%rip),%xmm0
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
jmp    120e <chstwo+0xfe>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
mulsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm1
divsd  %xmm1,%xmm0
mov    -0x28(%rbp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
jmp    1213 <chstwo+0x103>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1156 <chstwo+0x46>
mov    -0x20(%rbp),%rax
movsd  0xdd3(%rip),%xmm0
mulsd  (%rax),%xmm0
mov    -0x28(%rbp),%rax
movsd  0xdc3(%rip),%xmm1
mulsd  (%rax),%xmm1
call   1030 <gammq@plt>
mov    0x10(%rbp),%rax
movsd  %xmm0,(%rax)
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<chstwo>:
push   %rbx
mov    %edx,%eax
sub    %ecx,%eax
cvtsi2sd %eax,%xmm0
mov    0x10(%rsp),%rbx
movsd  %xmm0,(%r8)
movq   $0x0,(%r9)
test   %edx,%edx
jle    11aa <chstwo+0x9a>
add    $0x1,%edx
mov    $0x1,%eax
xorpd  %xmm0,%xmm0
movsd  0xebe(%rip),%xmm1
jmp    1178 <chstwo+0x68>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movapd %xmm2,%xmm3
subsd  %xmm4,%xmm3
mulsd  %xmm3,%xmm3
addsd  %xmm4,%xmm2
divsd  %xmm2,%xmm3
mov    %r9,%rcx
addsd  (%rcx),%xmm3
movsd  %xmm3,(%rcx)
add    $0x1,%rax
cmp    %rax,%rdx
je     119b <chstwo+0x8b>
movsd  (%rdi,%rax,8),%xmm2
ucomisd %xmm0,%xmm2
movsd  (%rsi,%rax,8),%xmm4
jne    1150 <chstwo+0x40>
jp     1150 <chstwo+0x40>
ucomisd %xmm0,%xmm4
mov    %r8,%rcx
movapd %xmm1,%xmm3
jne    1150 <chstwo+0x40>
jnp    1167 <chstwo+0x57>
jmp    1150 <chstwo+0x40>
movsd  (%r9),%xmm1
mulsd  0xe60(%rip),%xmm1
jmp    11ae <chstwo+0x9e>
xorpd  %xmm1,%xmm1
movsd  (%r8),%xmm0
mulsd  0xe4d(%rip),%xmm0
call   1030 <gammq@plt>
movsd  %xmm0,(%rbx)
pop    %rbx
ret

LLVM IR (-O0):
define void @chstwo(double* %0, double* %1, i32 %2, i32 %3, double* %4, double* %5, double* %6) {
%8 = alloca double*
%9 = alloca double*
%10 = alloca i32
%11 = alloca i32
%12 = alloca double*
%13 = alloca double*
%14 = alloca double*
%15 = alloca i32
%16 = alloca double
store double* %0, double** %8
store double* %1, double** %9
store i32 %2, i32* %10
store i32 %3, i32* %11
store double* %4, double** %12
store double* %5, double** %13
store double* %6, double** %14
%17 = load i32, i32* %10
%18 = load i32, i32* %11
%19 = sub nsw i32 %17, %18
%20 = sitofp i32 %19 to double
%21 = load double*, double** %12
store double %20, double* %21
%22 = load double*, double** %13
store double 0.000000e+00, double* %22
store i32 1, i32* %15
br label %23
23: ; preds = %76, %7
%24 = load i32, i32* %15
%25 = load i32, i32* %10
%26 = icmp sle i32 %24, %25
br i1 %26, label %27, label %79
27: ; preds = %23
%28 = load double*, double** %8
%29 = load i32, i32* %15
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
%32 = load double, double* %31
%33 = fcmp oeq double %32, 0.000000e+00
br i1 %33, label %34, label %45
34: ; preds = %27
%35 = load double*, double** %9
%36 = load i32, i32* %15
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %35, i64 %37
%39 = load double, double* %38
%40 = fcmp oeq double %39, 0.000000e+00
br i1 %40, label %41, label %45
41: ; preds = %34
%42 = load double*, double** %12
%43 = load double, double* %42
%44 = fadd double %43, -1.000000e+00
store double %44, double* %42
br label %75
45: ; preds = %34, %27
%46 = load double*, double** %8
%47 = load i32, i32* %15
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
%50 = load double, double* %49
%51 = load double*, double** %9
%52 = load i32, i32* %15
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds double, double* %51, i64 %53
%55 = load double, double* %54
%56 = fsub double %50, %55
store double %56, double* %16
%57 = load double, double* %16
%58 = load double, double* %16
%59 = fmul double %57, %58
%60 = load double*, double** %8
%61 = load i32, i32* %15
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %60, i64 %62
%64 = load double, double* %63
%65 = load double*, double** %9
%66 = load i32, i32* %15
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %65, i64 %67
%69 = load double, double* %68
%70 = fadd double %64, %69
%71 = fdiv double %59, %70
%72 = load double*, double** %13
%73 = load double, double* %72
%74 = fadd double %73, %71
store double %74, double* %72
br label %75
75: ; preds = %45, %41
br label %76
76: ; preds = %75
%77 = load i32, i32* %15
%78 = add nsw i32 %77, 1
store i32 %78, i32* %15
br label %23
79: ; preds = %23
%80 = load double*, double** %12
%81 = load double, double* %80
%82 = fmul double 5.000000e-01, %81
%83 = load double*, double** %13
%84 = load double, double* %83
%85 = fmul double 5.000000e-01, %84
%86 = call double @gammq(double %82, double %85)
%87 = load double*, double** %14
store double %86, double* %87
ret void
}

LLVM IR (-O2):
define void @chstwo(double* nocapture %0, double* nocapture %1, i32 %2, i32 %3, double* nocapture %4, double* nocapture %5, double* nocapture writeonly %6) {
%8 = sub nsw i32 %2, %3
%9 = sitofp i32 %8 to double
store double %9, double* %4
store double 0.000000e+00, double* %5
%10 = icmp slt i32 %2, 1
br i1 %10, label %38, label %11
11: ; preds = %7
%12 = add nuw i32 %2, 1
%13 = zext i32 %12 to i64
br label %14
14: ; preds = %11, %28
%15 = phi i64 [ 1, %11 ], [ %33, %28 ]
%16 = getelementptr inbounds double, double* %0, i64 %15
%17 = load double, double* %16
%18 = fcmp oeq double %17, 0.000000e+00
%19 = getelementptr inbounds double, double* %1, i64 %15
%20 = load double, double* %19
%21 = fcmp oeq double %20, 0.000000e+00
%22 = select i1 %18, i1 %21, i1 false
br i1 %22, label %28, label %23
23: ; preds = %14
%24 = fsub double %17, %20
%25 = fmul double %24, %24
%26 = fadd double %17, %20
%27 = fdiv double %25, %26
br label %28
28: ; preds = %14, %23
%29 = phi double* [ %5, %23 ], [ %4, %14 ]
%30 = phi double [ %27, %23 ], [ -1.000000e+00, %14 ]
%31 = load double, double* %29
%32 = fadd double %31, %30
store double %32, double* %29
%33 = add nuw nsw i64 %15, 1
%34 = icmp eq i64 %33, %13
br i1 %34, label %35, label %14
35: ; preds = %28
%36 = load double, double* %5
%37 = fmul double %36, 5.000000e-01
br label %38
38: ; preds = %35, %7
%39 = phi double [ %37, %35 ], [ 0.000000e+00, %7 ]
%40 = load double, double* %4
%41 = fmul double %40, 5.000000e-01
%42 = tail call double @gammq(double %41, double %39)
store double %42, double* %6
ret void
}