int StatHistMedianDouble(double h[], double acc[], double *med, int n) {
  int i;
  double sum;
  double median;
  sum = acc[0] = h[0];
  for (i = 1; i < n; i++) {
    sum += h[i];
    acc[i] = sum;
  }
  median = sum / 2;
  if (med != 0)
    *med = median;
  for (i = 0; i < n; i++) {
    if (acc[i] > median) {
      return i;
    }
  }
  return -1;
}


x86 assembly (clang, -O0):
<StatHistMedianDouble>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
movsd  %xmm0,-0x30(%rbp)
movl   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1172 <StatHistMedianDouble+0x72>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    112f <StatHistMedianDouble+0x2f>
movsd  -0x30(%rbp),%xmm0
movsd  0xe81(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
cmpq   $0x0,-0x20(%rbp)
je     11a0 <StatHistMedianDouble+0xa0>
movsd  -0x38(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11e9 <StatHistMedianDouble+0xe9>
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x38(%rbp),%xmm0
jbe    11d6 <StatHistMedianDouble+0xd6>
mov    -0x28(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    11f0 <StatHistMedianDouble+0xf0>
jmp    11db <StatHistMedianDouble+0xdb>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11a7 <StatHistMedianDouble+0xa7>
movl   $0xffffffff,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<StatHistMedianDouble>:
movsd  (%rdi),%xmm0
movsd  %xmm0,(%rsi)
mov    %ecx,%r8d
cmp    $0x2,%ecx
jl     11a4 <StatHistMedianDouble+0xa4>
lea    -0x1(%r8),%r10
lea    -0x2(%r8),%rax
mov    %r10d,%r9d
and    $0x3,%r9d
cmp    $0x3,%rax
jae    1135 <StatHistMedianDouble+0x35>
mov    $0x1,%eax
test   %r9,%r9
jne    1182 <StatHistMedianDouble+0x82>
jmp    11a4 <StatHistMedianDouble+0xa4>
and    $0xfffffffffffffffc,%r10
xor    %eax,%eax
nopl   0x0(%rax,%rax,1)
addsd  0x8(%rdi,%rax,8),%xmm0
movsd  %xmm0,0x8(%rsi,%rax,8)
addsd  0x10(%rdi,%rax,8),%xmm0
movsd  %xmm0,0x10(%rsi,%rax,8)
addsd  0x18(%rdi,%rax,8),%xmm0
movsd  %xmm0,0x18(%rsi,%rax,8)
addsd  0x20(%rdi,%rax,8),%xmm0
movsd  %xmm0,0x20(%rsi,%rax,8)
add    $0x4,%rax
cmp    %rax,%r10
jne    1140 <StatHistMedianDouble+0x40>
add    $0x1,%rax
test   %r9,%r9
je     11a4 <StatHistMedianDouble+0xa4>
lea    (%rsi,%rax,8),%r10
lea    (%rdi,%rax,8),%rax
xor    %edi,%edi
nopl   0x0(%rax)
addsd  (%rax,%rdi,8),%xmm0
movsd  %xmm0,(%r10,%rdi,8)
add    $0x1,%rdi
cmp    %rdi,%r9
jne    1190 <StatHistMedianDouble+0x90>
mulsd  0xe54(%rip),%xmm0
test   %rdx,%rdx
je     11b5 <StatHistMedianDouble+0xb5>
movsd  %xmm0,(%rdx)
mov    $0xffffffff,%eax
test   %ecx,%ecx
jle    11d4 <StatHistMedianDouble+0xd4>
xor    %ecx,%ecx
movsd  (%rsi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
ja     11d5 <StatHistMedianDouble+0xd5>
add    $0x1,%rcx
cmp    %rcx,%r8
jne    11c0 <StatHistMedianDouble+0xc0>
ret
mov    %ecx,%eax
ret

LLVM IR (-O0):
define i32 @StatHistMedianDouble(double* %0, double* %1, double* %2, i32 %3) {
%5 = alloca i32
%6 = alloca double*
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
%12 = alloca double
store double* %0, double** %6
store double* %1, double** %7
store double* %2, double** %8
store i32 %3, i32* %9
%13 = load double*, double** %6
%14 = getelementptr inbounds double, double* %13, i64 0
%15 = load double, double* %14
%16 = load double*, double** %7
%17 = getelementptr inbounds double, double* %16, i64 0
store double %15, double* %17
store double %15, double* %11
store i32 1, i32* %10
br label %18
18: ; preds = %35, %4
%19 = load i32, i32* %10
%20 = load i32, i32* %9
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %38
22: ; preds = %18
%23 = load double*, double** %6
%24 = load i32, i32* %10
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %23, i64 %25
%27 = load double, double* %26
%28 = load double, double* %11
%29 = fadd double %28, %27
store double %29, double* %11
%30 = load double, double* %11
%31 = load double*, double** %7
%32 = load i32, i32* %10
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %31, i64 %33
store double %30, double* %34
br label %35
35: ; preds = %22
%36 = load i32, i32* %10
%37 = add nsw i32 %36, 1
store i32 %37, i32* %10
br label %18
38: ; preds = %18
%39 = load double, double* %11
%40 = fdiv double %39, 2.000000e+00
store double %40, double* %12
%41 = load double*, double** %8
%42 = icmp ne double* %41, null
br i1 %42, label %43, label %46
43: ; preds = %38
%44 = load double, double* %12
%45 = load double*, double** %8
store double %44, double* %45
br label %46
46: ; preds = %43, %38
store i32 0, i32* %10
br label %47
47: ; preds = %62, %46
%48 = load i32, i32* %10
%49 = load i32, i32* %9
%50 = icmp slt i32 %48, %49
br i1 %50, label %51, label %65
51: ; preds = %47
%52 = load double*, double** %7
%53 = load i32, i32* %10
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %52, i64 %54
%56 = load double, double* %55
%57 = load double, double* %12
%58 = fcmp ogt double %56, %57
br i1 %58, label %59, label %61
59: ; preds = %51
%60 = load i32, i32* %10
store i32 %60, i32* %5
br label %66
61: ; preds = %51
br label %62
62: ; preds = %61
%63 = load i32, i32* %10
%64 = add nsw i32 %63, 1
store i32 %64, i32* %10
br label %47
65: ; preds = %47
store i32 -1, i32* %5
br label %66
66: ; preds = %65, %59
%67 = load i32, i32* %5
ret i32 %67
}

LLVM IR (-O2):
define i32 @StatHistMedianDouble(double* nocapture %0, double* nocapture %1, double* writeonly %2, i32 %3) {
%5 = load double, double* %0
store double %5, double* %1
%6 = icmp sgt i32 %3, 1
br i1 %6, label %7, label %57
7: ; preds = %4
%8 = zext i32 %3 to i64
%9 = add nsw i64 %8, -1
%10 = add nsw i64 %8, -2
%11 = and i64 %9, 3
%12 = icmp ult i64 %10, 3
br i1 %12, label %41, label %13
13: ; preds = %7
%14 = and i64 %9, -4
br label %15
15: ; preds = %15, %13
%16 = phi i64 [ 1, %13 ], [ %38, %15 ]
%17 = phi double [ %5, %13 ], [ %36, %15 ]
%18 = phi i64 [ 0, %13 ], [ %39, %15 ]
%19 = getelementptr inbounds double, double* %0, i64 %16
%20 = load double, double* %19
%21 = fadd double %17, %20
%22 = getelementptr inbounds double, double* %1, i64 %16
store double %21, double* %22
%23 = add nuw nsw i64 %16, 1
%24 = getelementptr inbounds double, double* %0, i64 %23
%25 = load double, double* %24
%26 = fadd double %21, %25
%27 = getelementptr inbounds double, double* %1, i64 %23
store double %26, double* %27
%28 = add nuw nsw i64 %16, 2
%29 = getelementptr inbounds double, double* %0, i64 %28
%30 = load double, double* %29
%31 = fadd double %26, %30
%32 = getelementptr inbounds double, double* %1, i64 %28
store double %31, double* %32
%33 = add nuw nsw i64 %16, 3
%34 = getelementptr inbounds double, double* %0, i64 %33
%35 = load double, double* %34
%36 = fadd double %31, %35
%37 = getelementptr inbounds double, double* %1, i64 %33
store double %36, double* %37
%38 = add nuw nsw i64 %16, 4
%39 = add i64 %18, 4
%40 = icmp eq i64 %39, %14
br i1 %40, label %41, label %15
41: ; preds = %15, %7
%42 = phi double [ undef, %7 ], [ %36, %15 ]
%43 = phi i64 [ 1, %7 ], [ %38, %15 ]
%44 = phi double [ %5, %7 ], [ %36, %15 ]
%45 = icmp eq i64 %11, 0
br i1 %45, label %57, label %46
46: ; preds = %41, %46
%47 = phi i64 [ %54, %46 ], [ %43, %41 ]
%48 = phi double [ %52, %46 ], [ %44, %41 ]
%49 = phi i64 [ %55, %46 ], [ 0, %41 ]
%50 = getelementptr inbounds double, double* %0, i64 %47
%51 = load double, double* %50
%52 = fadd double %48, %51
%53 = getelementptr inbounds double, double* %1, i64 %47
store double %52, double* %53
%54 = add nuw nsw i64 %47, 1
%55 = add i64 %49, 1
%56 = icmp eq i64 %55, %11
br i1 %56, label %57, label %46
57: ; preds = %41, %46, %4
%58 = phi double [ %5, %4 ], [ %42, %41 ], [ %52, %46 ]
%59 = fmul double %58, 5.000000e-01
%60 = icmp eq double* %2, null
br i1 %60, label %62, label %61
61: ; preds = %57
store double %59, double* %2
br label %62
62: ; preds = %61, %57
%63 = icmp sgt i32 %3, 0
br i1 %63, label %64, label %76
64: ; preds = %62
%65 = zext i32 %3 to i64
br label %66
66: ; preds = %64, %71
%67 = phi i64 [ 0, %64 ], [ %72, %71 ]
%68 = getelementptr inbounds double, double* %1, i64 %67
%69 = load double, double* %68
%70 = fcmp ogt double %69, %59
br i1 %70, label %74, label %71
71: ; preds = %66
%72 = add nuw nsw i64 %67, 1
%73 = icmp eq i64 %72, %65
br i1 %73, label %76, label %66
74: ; preds = %66
%75 = trunc i64 %67 to i32
br label %76
76: ; preds = %71, %74, %62
%77 = phi i32 [ -1, %62 ], [ %75, %74 ], [ -1, %71 ]
ret i32 %77
}