#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef scalar_t__ int64_t;

/* Variables and functions */
double stdlib_strided_dvarmpn(const int64_t N, const double mean,
                              const double correction, const double *X,
                              const int64_t stride) {
  int64_t ix;
  int64_t i;
  double dN;
  double M2;
  double M;
  double n;
  double d;
  dN = (double)N;
  n = dN - correction;
  if (N <= 0 || n <= 0.0) {
    return 0.0 / 0.0;
  }
  if (N == 1 || stride == 0) {
    return 0.0;
  }
  if (stride < 0) {
    ix = (1 - N) * stride;
  } else {
    ix = 0;
  }
  M2 = 0.0;
  M = 0.0;
  for (i = 0; i < N; i++) {
    d = X[ix] - mean;
    M2 += d * d;
    M += d;
    ix += stride;
  }
  return (M2 / n) - ((M / dN) * (M / n));
}


x86 assembly (clang, -O0):
<stdlib_strided_dvarmpn>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
mov    %rsi,-0x28(%rbp)
mov    %rdx,-0x30(%rbp)
cvtsi2sdq -0x10(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
subsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
cmpq   $0x0,-0x10(%rbp)
jle    114d <stdlib_strided_dvarmpn+0x4d>
xorps  %xmm0,%xmm0
ucomisd -0x60(%rbp),%xmm0
jb     115f <stdlib_strided_dvarmpn+0x5f>
movsd  0xeab(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1273 <stdlib_strided_dvarmpn+0x173>
cmpq   $0x1,-0x10(%rbp)
je     1175 <stdlib_strided_dvarmpn+0x75>
cmpq   $0x0,-0x30(%rbp)
jne    1182 <stdlib_strided_dvarmpn+0x82>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1273 <stdlib_strided_dvarmpn+0x173>
cmpq   $0x0,-0x30(%rbp)
jge    11a4 <stdlib_strided_dvarmpn+0xa4>
mov    $0x1,%eax
sub    -0x10(%rbp),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x38(%rbp)
jmp    11ac <stdlib_strided_dvarmpn+0xac>
movq   $0x0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x58(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1231 <stdlib_strided_dvarmpn+0x131>
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm2
movsd  -0x50(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x68(%rbp),%xmm0
addsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x30(%rbp),%rax
add    -0x38(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    11c4 <stdlib_strided_dvarmpn+0xc4>
movsd  -0x50(%rbp),%xmm1
divsd  -0x60(%rbp),%xmm1
movsd  -0x58(%rbp),%xmm0
divsd  -0x48(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm2
divsd  -0x60(%rbp),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<stdlib_strided_dvarmpn>:
movsd  0xef8(%rip),%xmm2
test   %rdi,%rdi
jle    11ed <stdlib_strided_dvarmpn+0xed>
cvtsi2sd %rdi,%xmm3
movapd %xmm3,%xmm4
subsd  %xmm1,%xmm4
xorpd  %xmm1,%xmm1
ucomisd %xmm4,%xmm1
jae    11ed <stdlib_strided_dvarmpn+0xed>
xorpd  %xmm2,%xmm2
cmp    $0x1,%rdi
je     11ed <stdlib_strided_dvarmpn+0xed>
test   %rdx,%rdx
je     11ed <stdlib_strided_dvarmpn+0xed>
mov    $0x1,%eax
sub    %rdi,%rax
imul   %rdx,%rax
mov    %rdx,%r8
sar    $0x3f,%r8
and    %rax,%r8
mov    %rdi,%rcx
and    $0xfffffffffffffffe,%rcx
lea    0x0(,%r8,8),%r9
mov    %rdx,%rax
shl    $0x4,%rax
shl    $0x3,%rdx
lea    (%rdx,%r8,8),%rdx
xorpd  %xmm2,%xmm2
xorpd  %xmm1,%xmm1
nop
movsd  (%rsi,%r9,1),%xmm5
subsd  %xmm0,%xmm5
addsd  %xmm5,%xmm2
mulsd  %xmm5,%xmm5
addsd  %xmm1,%xmm5
movsd  (%rsi,%rdx,1),%xmm1
subsd  %xmm0,%xmm1
addsd  %xmm1,%xmm2
mulsd  %xmm1,%xmm1
addsd  %xmm5,%xmm1
add    %rax,%rsi
add    $0xfffffffffffffffe,%rcx
jne    1180 <stdlib_strided_dvarmpn+0x80>
test   $0x1,%dil
je     11d0 <stdlib_strided_dvarmpn+0xd0>
movsd  (%rsi,%r8,8),%xmm5
subsd  %xmm0,%xmm5
addsd  %xmm5,%xmm2
mulsd  %xmm5,%xmm5
addsd  %xmm5,%xmm1
divsd  %xmm4,%xmm1
movapd %xmm2,%xmm0
divsd  %xmm4,%xmm0
divsd  %xmm3,%xmm2
mulsd  %xmm0,%xmm2
subsd  %xmm2,%xmm1
movapd %xmm1,%xmm0
ret
movapd %xmm2,%xmm0
ret

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

LLVM IR (-O2):
define double @stdlib_strided_dvarmpn(i64 %0, double %1, double %2, double* nocapture %3, i64 %4) {
%6 = sitofp i64 %0 to double
%7 = fsub double %6, %2
%8 = icmp slt i64 %0, 1
%9 = fcmp ole double %7, 0.000000e+00
%10 = or i1 %8, %9
br i1 %10, label %57, label %11
11: ; preds = %5
%12 = icmp eq i64 %0, 1
%13 = icmp eq i64 %4, 0
%14 = or i1 %12, %13
br i1 %14, label %57, label %15
15: ; preds = %11
%16 = icmp slt i64 %4, 0
%17 = sub nsw i64 1, %0
%18 = mul nsw i64 %17, %4
%19 = select i1 %16, i64 %18, i64 0
%20 = and i64 %0, 1
%21 = and i64 %0, -2
br label %22
22: ; preds = %22, %15
%23 = phi i64 [ %19, %15 ], [ %38, %22 ]
%24 = phi double [ 0.000000e+00, %15 ], [ %37, %22 ]
%25 = phi double [ 0.000000e+00, %15 ], [ %36, %22 ]
%26 = phi i64 [ 0, %15 ], [ %39, %22 ]
%27 = getelementptr inbounds double, double* %3, i64 %23
%28 = load double, double* %27
%29 = fsub double %28, %1
%30 = tail call double @llvm.fmuladd.f64(double %29, double %29, double %25)
%31 = fadd double %24, %29
%32 = add nsw i64 %23, %4
%33 = getelementptr inbounds double, double* %3, i64 %32
%34 = load double, double* %33
%35 = fsub double %34, %1
%36 = tail call double @llvm.fmuladd.f64(double %35, double %35, double %30)
%37 = fadd double %31, %35
%38 = add nsw i64 %32, %4
%39 = add i64 %26, 2
%40 = icmp eq i64 %39, %21
br i1 %40, label %41, label %22
41: ; preds = %22
%42 = icmp eq i64 %20, 0
br i1 %42, label %49, label %43
43: ; preds = %41
%44 = getelementptr inbounds double, double* %3, i64 %38
%45 = load double, double* %44
%46 = fsub double %45, %1
%47 = tail call double @llvm.fmuladd.f64(double %46, double %46, double %36)
%48 = fadd double %37, %46
br label %49
49: ; preds = %41, %43
%50 = phi double [ %36, %41 ], [ %47, %43 ]
%51 = phi double [ %37, %41 ], [ %48, %43 ]
%52 = fdiv double %50, %7
%53 = fdiv double %51, %7
%54 = fneg double %51
%55 = fdiv double %54, %6
%56 = tail call double @llvm.fmuladd.f64(double %55, double %53, double %52)
br label %57
57: ; preds = %11, %5, %49
%58 = phi double [ %56, %49 ], [ 0x7FF8000000000000, %5 ], [ 0.000000e+00, %11 ]
ret double %58
}