#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_dnansumkbn2(const int64_t N, const double *X,
                                  const int64_t stride) {
  double sum;
  double ccs;
  int64_t ix;
  int64_t i;
  double cs;
  double cc;
  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;
  ccs = 0.0;
  cs = 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;
      t = cs + c;
      if (fabs(cs) >= fabs(c)) {
        cc = (cs - t) + c;
      } else {
        cc = (c - t) + cs;
      }
      cs = t;
      ccs += cc;
    }
    ix += stride;
  }
  return sum + cs + ccs;
}


x86 assembly (clang, -O0):
<stdlib_strided_dnansumkbn2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0x0,-0x10(%rbp)
jg     114f <stdlib_strided_dnansumkbn2+0x2f>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1335 <stdlib_strided_dnansumkbn2+0x215>
cmpq   $0x1,-0x10(%rbp)
je     1165 <stdlib_strided_dnansumkbn2+0x45>
cmpq   $0x0,-0x20(%rbp)
jne    119b <stdlib_strided_dnansumkbn2+0x7b>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
call   1040 <stdlib_base_is_nan@plt>
cmp    $0x0,%rax
je     1189 <stdlib_strided_dnansumkbn2+0x69>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1335 <stdlib_strided_dnansumkbn2+0x215>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1335 <stdlib_strided_dnansumkbn2+0x215>
cmpq   $0x0,-0x20(%rbp)
jge    11bd <stdlib_strided_dnansumkbn2+0x9d>
mov    $0x1,%eax
sub    -0x10(%rbp),%rax
imul   -0x20(%rbp),%rax
mov    %rax,-0x38(%rbp)
jmp    11c5 <stdlib_strided_dnansumkbn2+0xa5>
movq   $0x0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1321 <stdlib_strided_dnansumkbn2+0x201>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
call   1040 <stdlib_base_is_nan@plt>
cmp    $0x0,%rax
jne    1304 <stdlib_strided_dnansumkbn2+0x1e4>
movsd  -0x28(%rbp),%xmm0
addsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x28(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,-0x70(%rbp)
movsd  -0x58(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,%rcx
mov    -0x70(%rbp),%rax
cmp    %rcx,%rax
jl     1269 <stdlib_strided_dnansumkbn2+0x149>
movsd  -0x28(%rbp),%xmm0
subsd  -0x60(%rbp),%xmm0
addsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    127d <stdlib_strided_dnansumkbn2+0x15d>
movsd  -0x58(%rbp),%xmm0
subsd  -0x60(%rbp),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x48(%rbp),%xmm0
addsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x48(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,-0x78(%rbp)
movsd  -0x68(%rbp),%xmm0
call   1030 <fabs@plt>
mov    %rax,%rcx
mov    -0x78(%rbp),%rax
cmp    %rcx,%rax
jl     12d7 <stdlib_strided_dnansumkbn2+0x1b7>
movsd  -0x48(%rbp),%xmm0
subsd  -0x60(%rbp),%xmm0
addsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
jmp    12eb <stdlib_strided_dnansumkbn2+0x1cb>
movsd  -0x68(%rbp),%xmm0
subsd  -0x60(%rbp),%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x50(%rbp),%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x20(%rbp),%rax
add    -0x38(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    11e5 <stdlib_strided_dnansumkbn2+0xc5>
movsd  -0x28(%rbp),%xmm0
addsd  -0x48(%rbp),%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<stdlib_strided_dnansumkbn2>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x28,%rsp
xorpd  %xmm0,%xmm0
test   %rdi,%rdi
jle    12c1 <stdlib_strided_dnansumkbn2+0x1a1>
mov    %rsi,%r15
mov    %rdi,%r12
cmp    $0x1,%rdi
je     129d <stdlib_strided_dnansumkbn2+0x17d>
mov    %rdx,%r14
test   %rdx,%rdx
je     129d <stdlib_strided_dnansumkbn2+0x17d>
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,0x8(%rsp)
xorpd  %xmm0,%xmm0
xorpd  %xmm1,%xmm1
jmp    11a8 <stdlib_strided_dnansumkbn2+0x88>
cs nopw 0x0(%rax,%rax,1)
movsd  0x20(%rsp),%xmm0
movsd  (%rsp),%xmm1
add    %r14,%rbx
add    $0xffffffffffffffff,%r12
je     12b7 <stdlib_strided_dnansumkbn2+0x197>
movsd  %xmm1,(%rsp)
movsd  %xmm0,0x20(%rsp)
movsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
call   1040 <stdlib_base_is_nan@plt>
test   %rax,%rax
jne    1190 <stdlib_strided_dnansumkbn2+0x70>
movsd  (%rsp),%xmm0
movapd %xmm0,%xmm1
addsd  0x10(%rsp),%xmm1
movsd  %xmm1,0x18(%rsp)
call   1030 <fabs@plt>
mov    %rax,%r15
movsd  0x10(%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%r15
jl     1207 <stdlib_strided_dnansumkbn2+0xe7>
movsd  (%rsp),%xmm1
subsd  0x18(%rsp),%xmm1
addsd  0x10(%rsp),%xmm1
jmp    121c <stdlib_strided_dnansumkbn2+0xfc>
movsd  0x10(%rsp),%xmm0
subsd  0x18(%rsp),%xmm0
movsd  (%rsp),%xmm1
addsd  %xmm0,%xmm1
movsd  0x8(%rsp),%xmm0
movsd  %xmm1,(%rsp)
movapd %xmm0,%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,0x10(%rsp)
movsd  %xmm0,0x8(%rsp)
call   1030 <fabs@plt>
mov    %rax,%r15
movsd  (%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%r15
jl     1269 <stdlib_strided_dnansumkbn2+0x149>
movsd  0x10(%rsp),%xmm2
movsd  0x8(%rsp),%xmm3
subsd  %xmm2,%xmm3
addsd  (%rsp),%xmm3
jmp    1282 <stdlib_strided_dnansumkbn2+0x162>
movsd  0x10(%rsp),%xmm2
movsd  (%rsp),%xmm0
subsd  %xmm2,%xmm0
movsd  0x8(%rsp),%xmm3
addsd  %xmm0,%xmm3
movsd  0x20(%rsp),%xmm0
movsd  0x18(%rsp),%xmm1
addsd  %xmm3,%xmm0
movsd  %xmm2,0x8(%rsp)
jmp    119b <stdlib_strided_dnansumkbn2+0x7b>
movsd  (%r15),%xmm0
call   1040 <stdlib_base_is_nan@plt>
xorpd  %xmm0,%xmm0
test   %rax,%rax
jne    12c1 <stdlib_strided_dnansumkbn2+0x1a1>
movsd  (%r15),%xmm0
jmp    12c1 <stdlib_strided_dnansumkbn2+0x1a1>
addsd  0x8(%rsp),%xmm1
addsd  %xmm1,%xmm0
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define double @stdlib_strided_dnansumkbn2(i64 %0, double* nocapture %1, i64 %2) {
%4 = icmp slt i64 %0, 1
br i1 %4, label %60, 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 %60
13: ; preds = %9
%14 = load double, double* %1
br label %60
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, %50
%21 = phi double [ %53, %50 ], [ 0.000000e+00, %15 ]
%22 = phi i64 [ %55, %50 ], [ 0, %15 ]
%23 = phi i64 [ %54, %50 ], [ %19, %15 ]
%24 = phi double [ %52, %50 ], [ 0.000000e+00, %15 ]
%25 = phi double [ %51, %50 ], [ 0.000000e+00, %15 ]
%26 = getelementptr inbounds double, double* %1, i64 %23
%27 = load double, double* %26
%28 = tail call i64 @stdlib_base_is_nan(double %27)
%29 = icmp eq i64 %28, 0
br i1 %29, label %30, label %50
30: ; preds = %20
%31 = fadd double %25, %27
%32 = tail call i64 @fabs(double %25)
%33 = tail call i64 @fabs(double %27)
%34 = icmp slt i64 %32, %33
%35 = fsub double %25, %31
%36 = fadd double %27, %35
%37 = fsub double %27, %31
%38 = fadd double %25, %37
%39 = select i1 %34, double %38, double %36
%40 = fadd double %21, %39
%41 = tail call i64 @fabs(double %21)
%42 = tail call i64 @fabs(double %39)
%43 = icmp slt i64 %41, %42
%44 = fsub double %21, %40
%45 = fadd double %39, %44
%46 = fsub double %39, %40
%47 = fadd double %21, %46
%48 = select i1 %43, double %47, double %45
%49 = fadd double %24, %48
br label %50
50: ; preds = %30, %20
%51 = phi double [ %25, %20 ], [ %31, %30 ]
%52 = phi double [ %24, %20 ], [ %49, %30 ]
%53 = phi double [ %21, %20 ], [ %40, %30 ]
%54 = add nsw i64 %23, %2
%55 = add nuw nsw i64 %22, 1
%56 = icmp eq i64 %55, %0
br i1 %56, label %57, label %20
57: ; preds = %50
%58 = fadd double %51, %53
%59 = fadd double %52, %58
br label %60
60: ; preds = %9, %3, %57, %13
%61 = phi double [ %14, %13 ], [ %59, %57 ], [ 0.000000e+00, %3 ], [ 0.000000e+00, %9 ]
ret double %61
}