#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 */
scalar_t__ fabs(double);
scalar_t__ stdlib_base_is_nan(double const);
double stdlib_strided_dnansumkbn(const int64_t N, const double *X,
                                 const int64_t stride) {
  double sum;
  int64_t ix;
  int64_t i;
  double v;
  double t;
  double c;
  if (N <= 0) {
    return 0.0;
  }
  if (N == 1 || stride == 0) {
    if (stdlib_base_is_nan(X[0])) {
      return 0.0;
    }
    return X[0];
  }
  if (stride < 0) {
    ix = (1 - N) * stride;
  } else {
    ix = 0;
  }
  sum = 0.0;
  c = 0.0;
  for (i = 0; i < N; i++) {
    v = X[ix];
    if (!stdlib_base_is_nan(v)) {
      t = sum + v;
      if (fabs(sum) >= fabs(v)) {
        c += (sum - t) + v;
      } else {
        c += (v - t) + sum;
      }
      sum = t;
    }
    ix += stride;
  }
  return sum + c;
}


x86 assembly (clang, -O0):
<stdlib_strided_dnansumkbn>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0x0,-0x10(%rbp)
jg     114c <stdlib_strided_dnansumkbn+0x2c>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12b2 <stdlib_strided_dnansumkbn+0x192>
cmpq   $0x1,-0x10(%rbp)
je     1162 <stdlib_strided_dnansumkbn+0x42>
cmpq   $0x0,-0x20(%rbp)
jne    1198 <stdlib_strided_dnansumkbn+0x78>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
call   1040 <stdlib_base_is_nan@plt>
cmp    $0x0,%rax
je     1186 <stdlib_strided_dnansumkbn+0x66>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12b2 <stdlib_strided_dnansumkbn+0x192>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12b2 <stdlib_strided_dnansumkbn+0x192>
cmpq   $0x0,-0x20(%rbp)
jge    11ba <stdlib_strided_dnansumkbn+0x9a>
mov    $0x1,%eax
sub    -0x10(%rbp),%rax
imul   -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
jmp    11c2 <stdlib_strided_dnansumkbn+0xa2>
movq   $0x0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    12a3 <stdlib_strided_dnansumkbn+0x183>
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
call   1040 <stdlib_base_is_nan@plt>
cmp    $0x0,%rax
jne    1286 <stdlib_strided_dnansumkbn+0x166>
movsd  -0x28(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x28(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,-0x58(%rbp)
movsd  -0x40(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,%rcx
mov    -0x58(%rbp),%rax
cmp    %rcx,%rax
jl     1263 <stdlib_strided_dnansumkbn+0x143>
movsd  -0x28(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
jmp    127c <stdlib_strided_dnansumkbn+0x15c>
movsd  -0x40(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
addsd  -0x28(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x20(%rbp),%rax
add    -0x30(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11da <stdlib_strided_dnansumkbn+0xba>
movsd  -0x28(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<stdlib_strided_dnansumkbn>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x28,%rsp
xorpd  %xmm0,%xmm0
test   %rdi,%rdi
jle    125a <stdlib_strided_dnansumkbn+0x13a>
mov    %rsi,%r15
mov    %rdi,%r12
cmp    $0x1,%rdi
je     123a <stdlib_strided_dnansumkbn+0x11a>
mov    %rdx,%r14
test   %rdx,%rdx
je     123a <stdlib_strided_dnansumkbn+0x11a>
mov    $0x1,%eax
sub    %r12,%rax
imul   %r14,%rax
mov    %r14,%rcx
sar    $0x3f,%rcx
and    %rax,%rcx
lea    (%r15,%rcx,8),%rbx
shl    $0x3,%r14
xorpd  %xmm0,%xmm0
movsd  %xmm0,0x18(%rsp)
xorpd  %xmm0,%xmm0
jmp    11a3 <stdlib_strided_dnansumkbn+0x83>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  0x10(%rsp),%xmm0
add    %r14,%rbx
add    $0xffffffffffffffff,%r12
je     1254 <stdlib_strided_dnansumkbn+0x134>
movsd  %xmm0,0x10(%rsp)
movsd  (%rbx),%xmm0
movsd  %xmm0,0x8(%rsp)
call   1040 <stdlib_base_is_nan@plt>
test   %rax,%rax
jne    1190 <stdlib_strided_dnansumkbn+0x70>
movsd  0x10(%rsp),%xmm0
movapd %xmm0,%xmm1
addsd  0x8(%rsp),%xmm1
movsd  %xmm1,0x20(%rsp)
call   1030 <fabs@plt>
mov    %rax,%r15
movsd  0x8(%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%r15
jl     1203 <stdlib_strided_dnansumkbn+0xe3>
movsd  0x20(%rsp),%xmm2
movsd  0x10(%rsp),%xmm0
subsd  %xmm2,%xmm0
addsd  0x8(%rsp),%xmm0
jmp    1221 <stdlib_strided_dnansumkbn+0x101>
movsd  0x8(%rsp),%xmm0
movsd  0x20(%rsp),%xmm2
subsd  %xmm2,%xmm0
movsd  0x10(%rsp),%xmm1
addsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
movsd  0x18(%rsp),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,0x18(%rsp)
movapd %xmm2,%xmm0
jmp    1196 <stdlib_strided_dnansumkbn+0x76>
movsd  (%r15),%xmm0
call   1040 <stdlib_base_is_nan@plt>
xorpd  %xmm0,%xmm0
test   %rax,%rax
jne    125a <stdlib_strided_dnansumkbn+0x13a>
movsd  (%r15),%xmm0
jmp    125a <stdlib_strided_dnansumkbn+0x13a>
addsd  0x18(%rsp),%xmm0
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define double @stdlib_strided_dnansumkbn(i64 %0, double* nocapture %1, i64 %2) {
%4 = icmp slt i64 %0, 1
br i1 %4, label %48, label %5
5: ; preds = %3
%6 = icmp eq i64 %0, 1
%7 = icmp eq i64 %2, 0
%8 = or i1 %6, %7
br i1 %8, label %9, label %15
9: ; preds = %5
%10 = load double, double* %1
%11 = tail call i64 @stdlib_base_is_nan(double %10)
%12 = icmp eq i64 %11, 0
br i1 %12, label %13, label %48
13: ; preds = %9
%14 = load double, double* %1
br label %48
15: ; preds = %5
%16 = icmp slt i64 %2, 0
%17 = sub nsw i64 1, %0
%18 = mul nsw i64 %17, %2
%19 = select i1 %16, i64 %18, i64 0
br label %20
20: ; preds = %15, %40
%21 = phi double [ %42, %40 ], [ 0.000000e+00, %15 ]
%22 = phi double [ %41, %40 ], [ 0.000000e+00, %15 ]
%23 = phi i64 [ %44, %40 ], [ 0, %15 ]
%24 = phi i64 [ %43, %40 ], [ %19, %15 ]
%25 = getelementptr inbounds double, double* %1, i64 %24
%26 = load double, double* %25
%27 = tail call i64 @stdlib_base_is_nan(double %26)
%28 = icmp eq i64 %27, 0
br i1 %28, label %29, label %40
29: ; preds = %20
%30 = fadd double %22, %26
%31 = tail call i64 @fabs(double %22)
%32 = tail call i64 @fabs(double %26)
%33 = icmp slt i64 %31, %32
%34 = fsub double %22, %30
%35 = fadd double %26, %34
%36 = fsub double %26, %30
%37 = fadd double %22, %36
%38 = select i1 %33, double %37, double %35
%39 = fadd double %21, %38
br label %40
40: ; preds = %29, %20
%41 = phi double [ %22, %20 ], [ %30, %29 ]
%42 = phi double [ %21, %20 ], [ %39, %29 ]
%43 = add nsw i64 %24, %2
%44 = add nuw nsw i64 %23, 1
%45 = icmp eq i64 %44, %0
br i1 %45, label %46, label %20
46: ; preds = %40
%47 = fadd double %41, %42
br label %48
48: ; preds = %9, %3, %46, %13
%49 = phi double [ %14, %13 ], [ %47, %46 ], [ 0.000000e+00, %3 ], [ 0.000000e+00, %9 ]
ret double %49
}