short kurtosis_short(int n, short *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 ((short)((-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_short>:
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    122b <kurtosis_short+0x12b>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
cvtsi2sd %eax,%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_short+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   0xdbd(%rip)
fmulp  %st,%st(3)
flds   0xdb9(%rip)
fmul   %st(2),%st
faddp  %st,%st(3)
fldt   -0x50(%rbp)
fmul   %st(4),%st
flds   0xdae(%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)
fnstcw -0xba(%rbp)
movzwl -0xba(%rbp),%eax
or     $0xc00,%eax
mov    %ax,-0xbc(%rbp)
fldcw  -0xbc(%rbp)
fistps -0x7a(%rbp)
fldcw  -0xba(%rbp)
mov    -0x7a(%rbp),%ax
cwtl
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<kurtosis_short>:
fldz
fld    %st(0)
fld    %st(1)
fld    %st(2)
test   %edi,%edi
fldz
jle    11ae <kurtosis_short+0xae>
fstp   %st(1)
fstp   %st(2)
fstp   %st(0)
fstp   %st(1)
fstp   %st(0)
cvtsi2sd %edi,%xmm0
mov    %edi,-0x24(%rsp)
fildl  -0x24(%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)
movswl (%rsi,%rcx,2),%edx
xorps  %xmm1,%xmm1
cvtsi2sd %edx,%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_short+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  0xe3c(%rip)
fld    %st(1)
fmuls  0xe38(%rip)
faddp  %st,%st(1)
fxch   %st(5)
fmul   %st(2),%st
fmuls  0xe30(%rip)
faddp  %st,%st(5)
fxch   %st(2)
faddp  %st,%st(4)
fld    %st(0)
fmuls  0xe26(%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)
fnstcw -0x2a(%rsp)
movzwl -0x2a(%rsp),%eax
or     $0xc00,%eax
mov    %ax,-0x28(%rsp)
fldcw  -0x28(%rsp)
fistps -0x26(%rsp)
fldcw  -0x2a(%rsp)
movzwl -0x26(%rsp),%eax
ret

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

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