double kurtosis_double(int n, double *data) {
  int i;
  long double var1 = 0, var2 = 0, var3 = 0, var4 = 0, var5;
  double dat;
  for (i = 0; i < n; i++) {
    dat = (double)data[i];
    var1 += (long double)(dat / (double)n);
    var2 += (long double)(dat * dat) / (double)n;
    var3 += (long double)(dat * dat * dat) / (double)n;
    var4 += (long double)(dat * dat * dat * dat) / (double)n;
  }
  return ((double)((-3 * (var1 * var1 * var1 * var1) +
                    6 * (var1 * var1 * var2) - 4 * (var1 * var3) + var4) /
                   (var2 * var2 - 2 * var1 * var1 * var2 +
                    var1 * var1 * var1 * var1)));
}


x86 assembly (clang, -O0):
<kurtosis_double>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
fldz
fld    %st(0)
fstpt  -0x30(%rbp)
fld    %st(0)
fstpt  -0x40(%rbp)
fld    %st(0)
fstpt  -0x50(%rbp)
fstpt  -0x60(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1228 <kurtosis_double+0x128>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
cvtsi2sdl -0x4(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
fldl   -0x88(%rbp)
fldt   -0x30(%rbp)
faddp  %st,%st(1)
fstpt  -0x30(%rbp)
movsd  -0x78(%rbp),%xmm0
mulsd  %xmm0,%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
fldl   -0x98(%rbp)
cvtsi2sdl -0x4(%rbp),%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
fldl   -0x90(%rbp)
fdivrp %st,%st(1)
fldt   -0x40(%rbp)
faddp  %st,%st(1)
fstpt  -0x40(%rbp)
movsd  -0x78(%rbp),%xmm1
movaps %xmm1,%xmm0
mulsd  %xmm0,%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0xa8(%rbp)
ff
fldl   -0xa8(%rbp)
cvtsi2sdl -0x4(%rbp),%xmm0
movsd  %xmm0,-0xa0(%rbp)
ff
fldl   -0xa0(%rbp)
fdivrp %st,%st(1)
fldt   -0x50(%rbp)
faddp  %st,%st(1)
fstpt  -0x50(%rbp)
movsd  -0x78(%rbp),%xmm1
movaps %xmm1,%xmm0
mulsd  %xmm0,%xmm0
mulsd  %xmm1,%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0xb8(%rbp)
ff
fldl   -0xb8(%rbp)
cvtsi2sdl -0x4(%rbp),%xmm0
movsd  %xmm0,-0xb0(%rbp)
ff
fldl   -0xb0(%rbp)
fdivrp %st,%st(1)
fldt   -0x60(%rbp)
faddp  %st,%st(1)
fstpt  -0x60(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    112a <kurtosis_double+0x2a>
fldt   -0x30(%rbp)
fld    %st(0)
fmul   %st(1),%st
fld    %st(0)
fmul   %st(2),%st
fmul   %st(2),%st
fldt   -0x40(%rbp)
fmul   %st,%st(2)
flds   0xdc0(%rip)
fmulp  %st,%st(3)
flds   0xdbc(%rip)
fmul   %st(2),%st
faddp  %st,%st(3)
fldt   -0x50(%rbp)
fmul   %st(4),%st
flds   0xdb1(%rip)
fmulp  %st,%st(1)
faddp  %st,%st(3)
fldt   -0x60(%rbp)
faddp  %st,%st(3)
fld    %st(3)
fadd   %st(4),%st
fmulp  %st,%st(4)
fmul   %st,%st(3)
fmul   %st,%st(0)
fsubp  %st,%st(3)
faddp  %st,%st(2)
fdivp  %st,%st(1)
fstpl  -0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<kurtosis_double>:
fldz
fld    %st(0)
fld    %st(1)
fld    %st(2)
test   %edi,%edi
fldz
jle    11a8 <kurtosis_double+0xa8>
fstp   %st(1)
fstp   %st(2)
fstp   %st(0)
fstp   %st(1)
fstp   %st(0)
cvtsi2sd %edi,%xmm0
mov    %edi,-0x2c(%rsp)
fildl  -0x2c(%rsp)
mov    %edi,%eax
fldz
xor    %ecx,%ecx
fld    %st(0)
fld    %st(1)
fld    %st(2)
fxch   %st(4)
fxch   %st(1)
fxch   %st(3)
fxch   %st(1)
nopl   0x0(%rax)
movsd  (%rsi,%rcx,8),%xmm1
movapd %xmm1,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,-0x10(%rsp)
fxch   %st(1)
faddl  -0x10(%rsp)
movapd %xmm1,%xmm2
mulsd  %xmm1,%xmm2
movsd  %xmm2,-0x8(%rsp)
fld    %st(1)
fdivrl -0x8(%rsp)
faddp  %st,%st(4)
mulsd  %xmm1,%xmm2
movsd  %xmm2,-0x18(%rsp)
fld    %st(1)
fdivrl -0x18(%rsp)
mulsd  %xmm1,%xmm2
movsd  %xmm2,-0x20(%rsp)
fld    %st(2)
fdivrl -0x20(%rsp)
fxch   %st(6)
faddp  %st,%st(1)
fxch   %st(3)
faddp  %st,%st(5)
add    $0x1,%rcx
cmp    %rcx,%rax
fxch   %st(2)
fxch   %st(4)
fxch   %st(2)
fxch   %st(1)
jne    1140 <kurtosis_double+0x40>
fstp   %st(0)
fld    %st(0)
fmul   %st(1),%st
fld    %st(1)
fmul   %st(1),%st
fmul   %st(2),%st
fxch   %st(1)
fmul   %st(4),%st
fmuls  0xe42(%rip)
fld    %st(1)
fmuls  0xe3e(%rip)
faddp  %st,%st(1)
fxch   %st(5)
fmul   %st(2),%st
fmuls  0xe36(%rip)
faddp  %st,%st(5)
fxch   %st(2)
faddp  %st,%st(4)
fld    %st(0)
fmuls  0xe2c(%rip)
fmulp  %st,%st(1)
fmul   %st(2),%st
fxch   %st(2)
fmul   %st,%st(0)
faddp  %st,%st(2)
faddp  %st,%st(1)
fdivrp %st,%st(1)
fstpl  -0x28(%rsp)
movsd  -0x28(%rsp),%xmm0
ret

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

LLVM IR (-O2):
define double @kurtosis_double(i32 %0, double* nocapture %1) {
%3 = icmp sgt i32 %0, 0
br i1 %3, label %4, label %33
4: ; preds = %2
%5 = sitofp i32 %0 to double
%6 = sitofp i32 %0 to x86_fp80
%7 = zext i32 %0 to i64
br label %8
8: ; preds = %4, %8
%9 = phi i64 [ 0, %4 ], [ %31, %8 ]
%10 = phi x86_fp80 [ 0xK00000000000000000000, %4 ], [ %18, %8 ]
%11 = phi x86_fp80 [ 0xK00000000000000000000, %4 ], [ %30, %8 ]
%12 = phi x86_fp80 [ 0xK00000000000000000000, %4 ], [ %22, %8 ]
%13 = phi x86_fp80 [ 0xK00000000000000000000, %4 ], [ %26, %8 ]
%14 = getelementptr inbounds double, double* %1, i64 %9
%15 = load double, double* %14
%16 = fdiv double %15, %5
%17 = fpext double %16 to x86_fp80
%18 = fadd x86_fp80 %10, %17
%19 = fmul double %15, %15
%20 = fpext double %19 to x86_fp80
%21 = fdiv x86_fp80 %20, %6
%22 = fadd x86_fp80 %12, %21
%23 = fmul double %15, %19
%24 = fpext double %23 to x86_fp80
%25 = fdiv x86_fp80 %24, %6
%26 = fadd x86_fp80 %13, %25
%27 = fmul double %15, %23
%28 = fpext double %27 to x86_fp80
%29 = fdiv x86_fp80 %28, %6
%30 = fadd x86_fp80 %11, %29
%31 = add nuw nsw i64 %9, 1
%32 = icmp eq i64 %31, %7
br i1 %32, label %33, label %8
33: ; preds = %8, %2
%34 = phi x86_fp80 [ 0xK00000000000000000000, %2 ], [ %26, %8 ]
%35 = phi x86_fp80 [ 0xK00000000000000000000, %2 ], [ %22, %8 ]
%36 = phi x86_fp80 [ 0xK00000000000000000000, %2 ], [ %30, %8 ]
%37 = phi x86_fp80 [ 0xK00000000000000000000, %2 ], [ %18, %8 ]
%38 = fmul x86_fp80 %37, %37
%39 = fmul x86_fp80 %37, %38
%40 = fmul x86_fp80 %37, %39
%41 = fmul x86_fp80 %35, %38
%42 = fmul x86_fp80 %41, 0xK4001C000000000000000
%43 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %40, x86_fp80 0xKC000C000000000000000, x86_fp80 %42)
%44 = fmul x86_fp80 %34, %37
%45 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %44, x86_fp80 0xKC0018000000000000000, x86_fp80 %43)
%46 = fadd x86_fp80 %36, %45
%47 = fmul x86_fp80 %37, 0xKC0008000000000000000
%48 = fmul x86_fp80 %37, %47
%49 = fmul x86_fp80 %35, %48
%50 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %35, x86_fp80 %35, x86_fp80 %49)
%51 = tail call x86_fp80 @llvm.fmuladd.f80(x86_fp80 %39, x86_fp80 %37, x86_fp80 %50)
%52 = fdiv x86_fp80 %46, %51
%53 = fptrunc x86_fp80 %52 to double
ret double %53
}