double get_kurtosis(double *bell_array, int size) {
  double kurtosis, var, mean, temp, diff;
  int i;
  if (size < 3)
    return -99999;
  temp = 0;
  for (i = 0; i < size; i++)
    temp += bell_array[i];
  mean = temp / size;
  temp = 0;
  for (i = 0; i < size; i++) {
    diff = bell_array[i] - mean;
    temp += diff * diff;
  }
  var = temp / size;
  if (var == 0)
    return -99999;
  temp = 0;
  for (i = 0; i < size; i++) {
    diff = bell_array[i] - mean;
    temp += diff * diff * diff * diff;
  }
  kurtosis = temp / (var * var);
  return kurtosis;
}


x86 assembly (clang, -O0):
<get_kurtosis>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
cmpl   $0x3,-0x14(%rbp)
jge    1127 <get_kurtosis+0x27>
movsd  0xee3(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    129b <get_kurtosis+0x19b>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1167 <get_kurtosis+0x67>
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1136 <get_kurtosis+0x36>
movsd  -0x38(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11d6 <get_kurtosis+0xd6>
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1189 <get_kurtosis+0x89>
movsd  -0x38(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x28(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1213 <get_kurtosis+0x113>
jp     1213 <get_kurtosis+0x113>
movsd  0xdf7(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    129b <get_kurtosis+0x19b>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1279 <get_kurtosis+0x179>
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
mulsd  -0x40(%rbp),%xmm0
mulsd  -0x40(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1222 <get_kurtosis+0x122>
movsd  -0x38(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
mulsd  -0x28(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<get_kurtosis>:
movsd  0xef8(%rip),%xmm0
cmp    $0x3,%esi
jl     11dd <get_kurtosis+0xdd>
mov    %esi,%r9d
lea    -0x1(%r9),%r8
mov    %r9d,%edx
and    $0x7,%edx
cmp    $0x7,%r8
jae    112c <get_kurtosis+0x2c>
xorpd  %xmm1,%xmm1
xor    %eax,%eax
jmp    1178 <get_kurtosis+0x78>
mov    %r9d,%ecx
and    $0xfffffff8,%ecx
xorpd  %xmm1,%xmm1
xor    %eax,%eax
nopl   0x0(%rax,%rax,1)
addsd  (%rdi,%rax,8),%xmm1
addsd  0x8(%rdi,%rax,8),%xmm1
addsd  0x10(%rdi,%rax,8),%xmm1
addsd  0x18(%rdi,%rax,8),%xmm1
addsd  0x20(%rdi,%rax,8),%xmm1
addsd  0x28(%rdi,%rax,8),%xmm1
addsd  0x30(%rdi,%rax,8),%xmm1
addsd  0x38(%rdi,%rax,8),%xmm1
add    $0x8,%rax
cmp    %rax,%rcx
jne    1140 <get_kurtosis+0x40>
test   %rdx,%rdx
je     119e <get_kurtosis+0x9e>
lea    (%rdi,%rax,8),%rax
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  (%rax,%rcx,8),%xmm1
add    $0x1,%rcx
cmp    %rcx,%rdx
jne    1190 <get_kurtosis+0x90>
cvtsi2sd %esi,%xmm3
test   %esi,%esi
jle    11c1 <get_kurtosis+0xc1>
divsd  %xmm3,%xmm1
mov    %r9d,%edx
and    $0x3,%edx
cmp    $0x3,%r8
jae    11de <get_kurtosis+0xde>
xorpd  %xmm2,%xmm2
xor    %ecx,%ecx
jmp    1240 <get_kurtosis+0x140>
xorpd  %xmm4,%xmm4
xorpd  %xmm2,%xmm2
divsd  %xmm3,%xmm2
ucomisd %xmm4,%xmm2
jne    1307 <get_kurtosis+0x207>
jp     1307 <get_kurtosis+0x207>
ret
mov    %r9d,%eax
and    $0xfffffffc,%eax
xorpd  %xmm2,%xmm2
xor    %ecx,%ecx
nopw   0x0(%rax,%rax,1)
movsd  (%rdi,%rcx,8),%xmm4
movsd  0x8(%rdi,%rcx,8),%xmm5
subsd  %xmm1,%xmm4
mulsd  %xmm4,%xmm4
addsd  %xmm2,%xmm4
subsd  %xmm1,%xmm5
mulsd  %xmm5,%xmm5
addsd  %xmm4,%xmm5
movsd  0x10(%rdi,%rcx,8),%xmm4
subsd  %xmm1,%xmm4
mulsd  %xmm4,%xmm4
addsd  %xmm5,%xmm4
movsd  0x18(%rdi,%rcx,8),%xmm2
subsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm4,%xmm2
add    $0x4,%rcx
cmp    %rcx,%rax
jne    11f0 <get_kurtosis+0xf0>
test   %rdx,%rdx
je     126a <get_kurtosis+0x16a>
lea    (%rdi,%rcx,8),%rax
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movsd  (%rax,%rcx,8),%xmm4
subsd  %xmm1,%xmm4
mulsd  %xmm4,%xmm4
addsd  %xmm4,%xmm2
add    $0x1,%rcx
cmp    %rcx,%rdx
jne    1250 <get_kurtosis+0x150>
divsd  %xmm3,%xmm2
xorpd  %xmm4,%xmm4
ucomisd %xmm4,%xmm2
jne    127e <get_kurtosis+0x17e>
jnp    11dd <get_kurtosis+0xdd>
test   %esi,%esi
jle    1307 <get_kurtosis+0x207>
test   %r8,%r8
je     1314 <get_kurtosis+0x214>
mov    %r9d,%eax
and    $0xfffffffe,%eax
xorpd  %xmm4,%xmm4
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movsd  (%rdi,%rcx,8),%xmm0
movsd  0x8(%rdi,%rcx,8),%xmm3
subsd  %xmm1,%xmm0
movapd %xmm0,%xmm5
mulsd  %xmm0,%xmm5
mulsd  %xmm0,%xmm5
mulsd  %xmm0,%xmm5
addsd  %xmm4,%xmm5
subsd  %xmm1,%xmm3
movapd %xmm3,%xmm4
mulsd  %xmm3,%xmm4
mulsd  %xmm3,%xmm4
mulsd  %xmm3,%xmm4
addsd  %xmm5,%xmm4
add    $0x2,%rcx
cmp    %rcx,%rax
jne    12a0 <get_kurtosis+0x1a0>
test   $0x1,%r9b
je     1307 <get_kurtosis+0x207>
movsd  (%rdi,%rcx,8),%xmm0
subsd  %xmm1,%xmm0
movapd %xmm0,%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm0,%xmm1
addsd  %xmm1,%xmm4
mulsd  %xmm2,%xmm2
divsd  %xmm2,%xmm4
movapd %xmm4,%xmm0
ret
xorpd  %xmm4,%xmm4
xor    %ecx,%ecx
test   $0x1,%r9b
jne    12ea <get_kurtosis+0x1ea>
jmp    1307 <get_kurtosis+0x207>

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

LLVM IR (-O2):
define double @get_kurtosis(double* nocapture %0, i32 %1) {
%3 = icmp slt i32 %1, 3
br i1 %3, label %166, label %4
4: ; preds = %2
%5 = zext i32 %1 to i64
%6 = add nsw i64 %5, -1
%7 = and i64 %5, 7
%8 = icmp ult i64 %6, 7
br i1 %8, label %49, label %9
9: ; preds = %4
%10 = and i64 %5, 4294967288
br label %11
11: ; preds = %11, %9
%12 = phi i64 [ 0, %9 ], [ %46, %11 ]
%13 = phi double [ 0.000000e+00, %9 ], [ %45, %11 ]
%14 = phi i64 [ 0, %9 ], [ %47, %11 ]
%15 = getelementptr inbounds double, double* %0, i64 %12
%16 = load double, double* %15
%17 = fadd double %13, %16
%18 = or i64 %12, 1
%19 = getelementptr inbounds double, double* %0, i64 %18
%20 = load double, double* %19
%21 = fadd double %17, %20
%22 = or i64 %12, 2
%23 = getelementptr inbounds double, double* %0, i64 %22
%24 = load double, double* %23
%25 = fadd double %21, %24
%26 = or i64 %12, 3
%27 = getelementptr inbounds double, double* %0, i64 %26
%28 = load double, double* %27
%29 = fadd double %25, %28
%30 = or i64 %12, 4
%31 = getelementptr inbounds double, double* %0, i64 %30
%32 = load double, double* %31
%33 = fadd double %29, %32
%34 = or i64 %12, 5
%35 = getelementptr inbounds double, double* %0, i64 %34
%36 = load double, double* %35
%37 = fadd double %33, %36
%38 = or i64 %12, 6
%39 = getelementptr inbounds double, double* %0, i64 %38
%40 = load double, double* %39
%41 = fadd double %37, %40
%42 = or i64 %12, 7
%43 = getelementptr inbounds double, double* %0, i64 %42
%44 = load double, double* %43
%45 = fadd double %41, %44
%46 = add nuw nsw i64 %12, 8
%47 = add i64 %14, 8
%48 = icmp eq i64 %47, %10
br i1 %48, label %49, label %11
49: ; preds = %11, %4
%50 = phi double [ undef, %4 ], [ %45, %11 ]
%51 = phi i64 [ 0, %4 ], [ %46, %11 ]
%52 = phi double [ 0.000000e+00, %4 ], [ %45, %11 ]
%53 = icmp eq i64 %7, 0
br i1 %53, label %64, label %54
54: ; preds = %49, %54
%55 = phi i64 [ %61, %54 ], [ %51, %49 ]
%56 = phi double [ %60, %54 ], [ %52, %49 ]
%57 = phi i64 [ %62, %54 ], [ 0, %49 ]
%58 = getelementptr inbounds double, double* %0, i64 %55
%59 = load double, double* %58
%60 = fadd double %56, %59
%61 = add nuw nsw i64 %55, 1
%62 = add i64 %57, 1
%63 = icmp eq i64 %62, %7
br i1 %63, label %64, label %54
64: ; preds = %54, %49
%65 = phi double [ %50, %49 ], [ %60, %54 ]
%66 = sitofp i32 %1 to double
%67 = fdiv double %65, %66
%68 = icmp sgt i32 %1, 0
br i1 %68, label %69, label %120
69: ; preds = %64
%70 = and i64 %5, 3
%71 = icmp ult i64 %6, 3
br i1 %71, label %100, label %72
72: ; preds = %69
%73 = and i64 %5, 4294967292
br label %74
74: ; preds = %74, %72
%75 = phi i64 [ 0, %72 ], [ %97, %74 ]
%76 = phi double [ 0.000000e+00, %72 ], [ %96, %74 ]
%77 = phi i64 [ 0, %72 ], [ %98, %74 ]
%78 = getelementptr inbounds double, double* %0, i64 %75
%79 = load double, double* %78
%80 = fsub double %79, %67
%81 = tail call double @llvm.fmuladd.f64(double %80, double %80, double %76)
%82 = or i64 %75, 1
%83 = getelementptr inbounds double, double* %0, i64 %82
%84 = load double, double* %83
%85 = fsub double %84, %67
%86 = tail call double @llvm.fmuladd.f64(double %85, double %85, double %81)
%87 = or i64 %75, 2
%88 = getelementptr inbounds double, double* %0, i64 %87
%89 = load double, double* %88
%90 = fsub double %89, %67
%91 = tail call double @llvm.fmuladd.f64(double %90, double %90, double %86)
%92 = or i64 %75, 3
%93 = getelementptr inbounds double, double* %0, i64 %92
%94 = load double, double* %93
%95 = fsub double %94, %67
%96 = tail call double @llvm.fmuladd.f64(double %95, double %95, double %91)
%97 = add nuw nsw i64 %75, 4
%98 = add i64 %77, 4
%99 = icmp eq i64 %98, %73
br i1 %99, label %100, label %74
100: ; preds = %74, %69
%101 = phi double [ undef, %69 ], [ %96, %74 ]
%102 = phi i64 [ 0, %69 ], [ %97, %74 ]
%103 = phi double [ 0.000000e+00, %69 ], [ %96, %74 ]
%104 = icmp eq i64 %70, 0
br i1 %104, label %116, label %105
105: ; preds = %100, %105
%106 = phi i64 [ %113, %105 ], [ %102, %100 ]
%107 = phi double [ %112, %105 ], [ %103, %100 ]
%108 = phi i64 [ %114, %105 ], [ 0, %100 ]
%109 = getelementptr inbounds double, double* %0, i64 %106
%110 = load double, double* %109
%111 = fsub double %110, %67
%112 = tail call double @llvm.fmuladd.f64(double %111, double %111, double %107)
%113 = add nuw nsw i64 %106, 1
%114 = add i64 %108, 1
%115 = icmp eq i64 %114, %70
br i1 %115, label %116, label %105
116: ; preds = %105, %100
%117 = phi double [ %101, %100 ], [ %112, %105 ]
%118 = fdiv double %117, %66
%119 = fcmp oeq double %118, 0.000000e+00
br i1 %119, label %166, label %123
120: ; preds = %64
%121 = fdiv double 0.000000e+00, %66
%122 = fcmp oeq double %121, 0.000000e+00
br i1 %122, label %166, label %161
123: ; preds = %116
br i1 %68, label %124, label %161
124: ; preds = %123
%125 = and i64 %5, 1
%126 = icmp eq i64 %6, 0
br i1 %126, label %149, label %127
127: ; preds = %124
%128 = and i64 %5, 4294967294
br label %129
129: ; preds = %129, %127
%130 = phi i64 [ 0, %127 ], [ %146, %129 ]
%131 = phi double [ 0.000000e+00, %127 ], [ %145, %129 ]
%132 = phi i64 [ 0, %127 ], [ %147, %129 ]
%133 = getelementptr inbounds double, double* %0, i64 %130
%134 = load double, double* %133
%135 = fsub double %134, %67
%136 = fmul double %135, %135
%137 = fmul double %135, %136
%138 = tail call double @llvm.fmuladd.f64(double %137, double %135, double %131)
%139 = or i64 %130, 1
%140 = getelementptr inbounds double, double* %0, i64 %139
%141 = load double, double* %140
%142 = fsub double %141, %67
%143 = fmul double %142, %142
%144 = fmul double %142, %143
%145 = tail call double @llvm.fmuladd.f64(double %144, double %142, double %138)
%146 = add nuw nsw i64 %130, 2
%147 = add i64 %132, 2
%148 = icmp eq i64 %147, %128
br i1 %148, label %149, label %129
149: ; preds = %129, %124
%150 = phi double [ undef, %124 ], [ %145, %129 ]
%151 = phi i64 [ 0, %124 ], [ %146, %129 ]
%152 = phi double [ 0.000000e+00, %124 ], [ %145, %129 ]
%153 = icmp eq i64 %125, 0
br i1 %153, label %161, label %154
154: ; preds = %149
%155 = getelementptr inbounds double, double* %0, i64 %151
%156 = load double, double* %155
%157 = fsub double %156, %67
%158 = fmul double %157, %157
%159 = fmul double %157, %158
%160 = tail call double @llvm.fmuladd.f64(double %159, double %157, double %152)
br label %161
161: ; preds = %154, %149, %120, %123
%162 = phi double [ %118, %123 ], [ %121, %120 ], [ %118, %149 ], [ %118, %154 ]
%163 = phi double [ 0.000000e+00, %123 ], [ 0.000000e+00, %120 ], [ %150, %149 ], [ %160, %154 ]
%164 = fmul double %162, %162
%165 = fdiv double %163, %164
br label %166
166: ; preds = %120, %116, %2, %161
%167 = phi double [ %165, %161 ], [ -9.999900e+04, %2 ], [ -9.999900e+04, %116 ], [ -9.999900e+04, %120 ]
ret double %167
}