#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);
double stdlib_strided_dsumkbn(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) {
    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];
    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_dsumkbn>:
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     113c <stdlib_strided_dsumkbn+0x2c>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    126a <stdlib_strided_dsumkbn+0x15a>
cmpq   $0x1,-0x10(%rbp)
je     1152 <stdlib_strided_dsumkbn+0x42>
cmpq   $0x0,-0x20(%rbp)
jne    1164 <stdlib_strided_dsumkbn+0x54>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    126a <stdlib_strided_dsumkbn+0x15a>
cmpq   $0x0,-0x20(%rbp)
jge    1186 <stdlib_strided_dsumkbn+0x76>
mov    $0x1,%eax
sub    -0x10(%rbp),%rax
imul   -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
jmp    118e <stdlib_strided_dsumkbn+0x7e>
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    125b <stdlib_strided_dsumkbn+0x14b>
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
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     121b <stdlib_strided_dsumkbn+0x10b>
movsd  -0x28(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
jmp    1234 <stdlib_strided_dsumkbn+0x124>
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    11a6 <stdlib_strided_dsumkbn+0x96>
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_dsumkbn>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
test   %rdi,%rdi
jle    128f <stdlib_strided_dsumkbn+0x17f>
mov    %rsi,%r15
cmp    $0x1,%rdi
je     1298 <stdlib_strided_dsumkbn+0x188>
test   %rdx,%rdx
je     1298 <stdlib_strided_dsumkbn+0x188>
mov    $0x1,%eax
sub    %rdi,%rax
imul   %rdx,%rax
mov    %rdx,%rcx
sar    $0x3f,%rcx
and    %rax,%rcx
mov    %rdi,%rax
mov    %rdi,0x30(%rsp)
mov    %rdi,%r13
and    $0xfffffffffffffffe,%r13
lea    0x0(,%rcx,8),%rbp
mov    %rdx,%r12
shl    $0x4,%r12
shl    $0x3,%rdx
mov    %rcx,0x28(%rsp)
lea    (%rdx,%rcx,8),%r14
xorpd  %xmm1,%xmm1
xorpd  %xmm0,%xmm0
jmp    11c6 <stdlib_strided_dsumkbn+0xb6>
nopl   0x0(%rax,%rax,1)
movsd  0x20(%rsp),%xmm2
movsd  0x8(%rsp),%xmm0
subsd  %xmm0,%xmm2
addsd  0x10(%rsp),%xmm2
movsd  0x18(%rsp),%xmm1
movsd  (%rsp),%xmm3
addsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
add    %r12,%r15
add    $0xfffffffffffffffe,%r13
je     12a2 <stdlib_strided_dsumkbn+0x192>
movsd  %xmm0,0x8(%rsp)
movsd  %xmm1,0x18(%rsp)
movsd  (%r15,%rbp,1),%xmm2
movsd  %xmm2,(%rsp)
movapd %xmm0,%xmm1
addsd  %xmm2,%xmm1
movsd  %xmm1,0x20(%rsp)
call   1030 <fabs@plt>
mov    %rax,%rbx
movsd  (%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%rbx
jl     1220 <stdlib_strided_dsumkbn+0x110>
movsd  0x20(%rsp),%xmm0
movsd  0x8(%rsp),%xmm2
subsd  %xmm0,%xmm2
movsd  (%rsp),%xmm1
addsd  %xmm2,%xmm1
jmp    1235 <stdlib_strided_dsumkbn+0x125>
nopl   (%rax)
movsd  0x20(%rsp),%xmm0
movsd  (%rsp),%xmm1
subsd  %xmm0,%xmm1
addsd  0x8(%rsp),%xmm1
movsd  %xmm1,(%rsp)
movsd  (%r15,%r14,1),%xmm2
movsd  %xmm2,0x10(%rsp)
movapd %xmm0,%xmm1
addsd  %xmm2,%xmm1
movsd  %xmm1,0x8(%rsp)
call   1030 <fabs@plt>
mov    %rax,%rbx
movsd  0x10(%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%rbx
jge    1190 <stdlib_strided_dsumkbn+0x80>
movsd  0x8(%rsp),%xmm0
movsd  0x10(%rsp),%xmm1
subsd  %xmm0,%xmm1
movsd  0x20(%rsp),%xmm2
addsd  %xmm1,%xmm2
jmp    11a6 <stdlib_strided_dsumkbn+0x96>
xorpd  %xmm0,%xmm0
jmp    1322 <stdlib_strided_dsumkbn+0x212>
movsd  (%r15),%xmm0
jmp    1322 <stdlib_strided_dsumkbn+0x212>
testb  $0x1,0x30(%rsp)
je     131e <stdlib_strided_dsumkbn+0x20e>
movsd  %xmm1,0x18(%rsp)
mov    0x28(%rsp),%rax
movsd  (%r15,%rax,8),%xmm2
movsd  %xmm2,(%rsp)
movapd %xmm0,%xmm1
addsd  %xmm2,%xmm1
movsd  %xmm1,0x10(%rsp)
call   1030 <fabs@plt>
mov    %rax,%rbx
movsd  (%rsp),%xmm0
call   1030 <fabs@plt>
cmp    %rax,%rbx
jl     12fb <stdlib_strided_dsumkbn+0x1eb>
movsd  0x10(%rsp),%xmm0
movsd  0x8(%rsp),%xmm2
subsd  %xmm0,%xmm2
addsd  (%rsp),%xmm2
jmp    1314 <stdlib_strided_dsumkbn+0x204>
movsd  0x10(%rsp),%xmm0
movsd  (%rsp),%xmm1
subsd  %xmm0,%xmm1
movsd  0x8(%rsp),%xmm2
addsd  %xmm1,%xmm2
movsd  0x18(%rsp),%xmm1
addsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @stdlib_strided_dsumkbn(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 %82
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 %27
23: ; preds = %20, %17
%24 = load double*, double** %6
%25 = getelementptr inbounds double, double* %24, i64 0
%26 = load double, double* %25
store double %26, double* %4
br label %82
27: ; preds = %20
%28 = load i64, i64* %7
%29 = icmp slt i64 %28, 0
br i1 %29, label %30, label %35
30: ; preds = %27
%31 = load i64, i64* %5
%32 = sub nsw i64 1, %31
%33 = load i64, i64* %7
%34 = mul nsw i64 %32, %33
store i64 %34, i64* %9
br label %36
35: ; preds = %27
store i64 0, i64* %9
br label %36
36: ; preds = %35, %30
store double 0.000000e+00, double* %8
store double 0.000000e+00, double* %13
store i64 0, i64* %10
br label %37
37: ; preds = %75, %36
%38 = load i64, i64* %10
%39 = load i64, i64* %5
%40 = icmp slt i64 %38, %39
br i1 %40, label %41, label %78
41: ; preds = %37
%42 = load double*, double** %6
%43 = load i64, i64* %9
%44 = getelementptr inbounds double, double* %42, i64 %43
%45 = load double, double* %44
store double %45, double* %11
%46 = load double, double* %8
%47 = load double, double* %11
%48 = fadd double %46, %47
store double %48, double* %12
%49 = load double, double* %8
%50 = call i64 @fabs(double %49)
%51 = load double, double* %11
%52 = call i64 @fabs(double %51)
%53 = icmp sge i64 %50, %52
br i1 %53, label %54, label %62
54: ; preds = %41
%55 = load double, double* %8
%56 = load double, double* %12
%57 = fsub double %55, %56
%58 = load double, double* %11
%59 = fadd double %57, %58
%60 = load double, double* %13
%61 = fadd double %60, %59
store double %61, double* %13
br label %70
62: ; preds = %41
%63 = load double, double* %11
%64 = load double, double* %12
%65 = fsub double %63, %64
%66 = load double, double* %8
%67 = fadd double %65, %66
%68 = load double, double* %13
%69 = fadd double %68, %67
store double %69, double* %13
br label %70
70: ; preds = %62, %54
%71 = load double, double* %12
store double %71, double* %8
%72 = load i64, i64* %7
%73 = load i64, i64* %9
%74 = add nsw i64 %73, %72
store i64 %74, i64* %9
br label %75
75: ; preds = %70
%76 = load i64, i64* %10
%77 = add nsw i64 %76, 1
store i64 %77, i64* %10
br label %37
78: ; preds = %37
%79 = load double, double* %8
%80 = load double, double* %13
%81 = fadd double %79, %80
store double %81, double* %4
br label %82
82: ; preds = %78, %23, %16
%83 = load double, double* %4
ret double %83
}

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