#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 */

/* Variables and functions */
void l2d_qrec(long *index, size_t n, const double *array) {
  long *l, *r;
  long x, t;
  size_t m;
  double p, a, z;
  do {
    l = index;
    r = l + n - 1;
    a = array[*l];
    z = array[*r];
    if (a > z) {
      t = *l;
      *l = *r;
      *r = t;
    }
    x = index[n / 2];
    p = array[x];
    if (p < a) {
      p = a;
      x = *l;
    } else if (p > z) {
      p = z;
      x = *r;
    }
    while (1) {
      while (array[*++l] < p)
        ;
      while (array[*--r] > p)
        ;
      if (l >= r) {
        if (l <= r) {
          l++;
          r--;
        }
        break;
      }
      t = *l;
      *l = *r;
      *r = t;
    }
    m = (size_t)(index + n - l);
    n = (size_t)(r - index + 1);
    if (n > m) {
      if (m >= 16)
        l2d_qrec(l, m, array);
    } else {
      if (n >= 16)
        l2d_qrec(index, n, array);
      index = l;
      n = m;
    }
  } while (n >= 16);
}


x86 assembly (clang, -O0):
<l2d_qrec>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    (%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    (%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x50(%rbp),%xmm0
ucomisd -0x58(%rbp),%xmm0
jbe    11a1 <l2d_qrec+0x91>
mov    -0x20(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
mov    (%rax),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x38(%rbp),%rcx
mov    -0x28(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
shr    $0x1,%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm1
movsd  -0x50(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11f5 <l2d_qrec+0xe5>
movsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x30(%rbp)
jmp    121f <l2d_qrec+0x10f>
movsd  -0x48(%rbp),%xmm0
ucomisd -0x58(%rbp),%xmm0
jbe    121a <l2d_qrec+0x10a>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x28(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x30(%rbp)
jmp    121f <l2d_qrec+0x10f>
jmp    1224 <l2d_qrec+0x114>
jmp    1229 <l2d_qrec+0x119>
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    %rcx,%rdx
add    $0x8,%rdx
mov    %rdx,-0x20(%rbp)
mov    0x8(%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x48(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    1259 <l2d_qrec+0x149>
jmp    1229 <l2d_qrec+0x119>
jmp    125e <l2d_qrec+0x14e>
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    %rcx,%rdx
add    $0xfffffffffffffff8,%rdx
mov    %rdx,-0x28(%rbp)
mov    -0x8(%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    128a <l2d_qrec+0x17a>
jmp    125e <l2d_qrec+0x14e>
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
jb     12c3 <l2d_qrec+0x1b3>
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
ja     12be <l2d_qrec+0x1ae>
mov    -0x20(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x28(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x28(%rbp)
jmp    12ec <l2d_qrec+0x1dc>
mov    -0x20(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
mov    (%rax),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x38(%rbp),%rcx
mov    -0x28(%rbp),%rax
mov    %rcx,(%rax)
jmp    1224 <l2d_qrec+0x114>
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    -0x20(%rbp),%rcx
sub    %rcx,%rax
sar    $0x3,%rax
mov    %rax,-0x40(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
sar    $0x3,%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x40(%rbp),%rax
jbe    1350 <l2d_qrec+0x240>
cmpq   $0x10,-0x40(%rbp)
jb     134b <l2d_qrec+0x23b>
mov    -0x20(%rbp),%rdi
mov    -0x40(%rbp),%rsi
mov    -0x18(%rbp),%rdx
call   1030 <l2d_qrec@plt>
jmp    137c <l2d_qrec+0x26c>
cmpq   $0x10,-0x10(%rbp)
jb     136c <l2d_qrec+0x25c>
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x18(%rbp),%rdx
call   1030 <l2d_qrec@plt>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x40(%rbp),%rax
mov    %rax,-0x10(%rbp)
jmp    1381 <l2d_qrec+0x271>
cmpq   $0x10,-0x10(%rbp)
jae    1124 <l2d_qrec+0x14>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<l2d_qrec>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdx,%r12
mov    %rsi,%r15
mov    %rdi,%r14
jmp    1140 <l2d_qrec+0x30>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r13,%r15
mov    %rbx,%r14
cmp    $0xf,%r15
jbe    126d <l2d_qrec+0x15d>
lea    (%r14,%r15,8),%rax
add    $0xfffffffffffffff8,%rax
mov    (%r14),%rcx
movsd  (%r12,%rcx,8),%xmm0
mov    -0x8(%r14,%r15,8),%rdx
movsd  (%r12,%rdx,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    1168 <l2d_qrec+0x58>
mov    %rdx,(%r14)
mov    %rcx,(%rax)
mov    %r15,%rcx
and    $0xfffffffffffffffe,%rcx
mov    (%r14,%rcx,4),%rcx
movsd  (%r12,%rcx,8),%xmm2
ucomisd %xmm2,%xmm0
ja     118d <l2d_qrec+0x7d>
ucomisd %xmm1,%xmm2
movapd %xmm2,%xmm0
jbe    118d <l2d_qrec+0x7d>
movapd %xmm1,%xmm0
lea    (%r14,%r15,8),%rcx
mov    %r14,%rdx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x8,%rdx
mov    %rdx,%rbx
nopw   0x0(%rax,%rax,1)
mov    (%rbx),%rsi
add    $0x8,%rbx
ucomisd (%r12,%rsi,8),%xmm0
ja     11b0 <l2d_qrec+0xa0>
lea    -0x8(%rbx),%rdx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    -0x8(%rax),%rdi
add    $0xfffffffffffffff8,%rax
movsd  (%r12,%rdi,8),%xmm1
ucomisd %xmm0,%xmm1
ja     11d0 <l2d_qrec+0xc0>
cmp    %rax,%rdx
jae    1200 <l2d_qrec+0xf0>
mov    %rdi,(%rdx)
mov    %rsi,(%rax)
jmp    11a0 <l2d_qrec+0x90>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
lea    -0x8(%rbx),%rdx
lea    -0x8(%rax),%r15
cmp    %rax,%rdx
cmova  %rax,%r15
cmova  %rdx,%rbx
sub    %rbx,%rcx
mov    %rcx,%r13
sar    $0x3,%r13
sub    %r14,%r15
sar    $0x3,%r15
add    $0x1,%r15
cmp    %r13,%r15
jbe    1250 <l2d_qrec+0x140>
cmp    $0x79,%rcx
jb     1136 <l2d_qrec+0x26>
mov    %rbx,%rdi
mov    %r13,%rsi
mov    %r12,%rdx
call   1030 <l2d_qrec@plt>
jmp    1136 <l2d_qrec+0x26>
nopw   0x0(%rax,%rax,1)
cmp    $0x10,%r15
jb     1130 <l2d_qrec+0x20>
mov    %r14,%rdi
mov    %r15,%rsi
mov    %r12,%rdx
call   1030 <l2d_qrec@plt>
jmp    1130 <l2d_qrec+0x20>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @l2d_qrec(i64* %0, i64 %1, double* %2) {
%4 = alloca i64*
%5 = alloca i64
%6 = alloca double*
%7 = alloca i64*
%8 = alloca i64*
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca double
%13 = alloca double
%14 = alloca double
store i64* %0, i64** %4
store i64 %1, i64* %5
store double* %2, double** %6
br label %15
15: ; preds = %151, %3
%16 = load i64*, i64** %4
store i64* %16, i64** %7
%17 = load i64*, i64** %7
%18 = load i64, i64* %5
%19 = getelementptr inbounds i64, i64* %17, i64 %18
%20 = getelementptr inbounds i64, i64* %19, i64 -1
store i64* %20, i64** %8
%21 = load double*, double** %6
%22 = load i64*, i64** %7
%23 = load i64, i64* %22
%24 = getelementptr inbounds double, double* %21, i64 %23
%25 = load double, double* %24
store double %25, double* %13
%26 = load double*, double** %6
%27 = load i64*, i64** %8
%28 = load i64, i64* %27
%29 = getelementptr inbounds double, double* %26, i64 %28
%30 = load double, double* %29
store double %30, double* %14
%31 = load double, double* %13
%32 = load double, double* %14
%33 = fcmp ogt double %31, %32
br i1 %33, label %34, label %42
34: ; preds = %15
%35 = load i64*, i64** %7
%36 = load i64, i64* %35
store i64 %36, i64* %10
%37 = load i64*, i64** %8
%38 = load i64, i64* %37
%39 = load i64*, i64** %7
store i64 %38, i64* %39
%40 = load i64, i64* %10
%41 = load i64*, i64** %8
store i64 %40, i64* %41
br label %42
42: ; preds = %34, %15
%43 = load i64*, i64** %4
%44 = load i64, i64* %5
%45 = udiv i64 %44, 2
%46 = getelementptr inbounds i64, i64* %43, i64 %45
%47 = load i64, i64* %46
store i64 %47, i64* %9
%48 = load double*, double** %6
%49 = load i64, i64* %9
%50 = getelementptr inbounds double, double* %48, i64 %49
%51 = load double, double* %50
store double %51, double* %12
%52 = load double, double* %12
%53 = load double, double* %13
%54 = fcmp olt double %52, %53
br i1 %54, label %55, label %59
55: ; preds = %42
%56 = load double, double* %13
store double %56, double* %12
%57 = load i64*, i64** %7
%58 = load i64, i64* %57
store i64 %58, i64* %9
br label %68
59: ; preds = %42
%60 = load double, double* %12
%61 = load double, double* %14
%62 = fcmp ogt double %60, %61
br i1 %62, label %63, label %67
63: ; preds = %59
%64 = load double, double* %14
store double %64, double* %12
%65 = load i64*, i64** %8
%66 = load i64, i64* %65
store i64 %66, i64* %9
br label %67
67: ; preds = %63, %59
br label %68
68: ; preds = %67, %55
br label %69
69: ; preds = %68, %105
br label %70
70: ; preds = %79, %69
%71 = load double*, double** %6
%72 = load i64*, i64** %7
%73 = getelementptr inbounds i64, i64* %72, i32 1
store i64* %73, i64** %7
%74 = load i64, i64* %73
%75 = getelementptr inbounds double, double* %71, i64 %74
%76 = load double, double* %75
%77 = load double, double* %12
%78 = fcmp olt double %76, %77
br i1 %78, label %79, label %80
79: ; preds = %70
br label %70
80: ; preds = %70
br label %81
81: ; preds = %90, %80
%82 = load double*, double** %6
%83 = load i64*, i64** %8
%84 = getelementptr inbounds i64, i64* %83, i32 -1
store i64* %84, i64** %8
%85 = load i64, i64* %84
%86 = getelementptr inbounds double, double* %82, i64 %85
%87 = load double, double* %86
%88 = load double, double* %12
%89 = fcmp ogt double %87, %88
br i1 %89, label %90, label %91
90: ; preds = %81
br label %81
91: ; preds = %81
%92 = load i64*, i64** %7
%93 = load i64*, i64** %8
%94 = icmp uge i64* %92, %93
br i1 %94, label %95, label %105
95: ; preds = %91
%96 = load i64*, i64** %7
%97 = load i64*, i64** %8
%98 = icmp ule i64* %96, %97
br i1 %98, label %99, label %104
99: ; preds = %95
%100 = load i64*, i64** %7
%101 = getelementptr inbounds i64, i64* %100, i32 1
store i64* %101, i64** %7
%102 = load i64*, i64** %8
%103 = getelementptr inbounds i64, i64* %102, i32 -1
store i64* %103, i64** %8
br label %104
104: ; preds = %99, %95
br label %113
105: ; preds = %91
%106 = load i64*, i64** %7
%107 = load i64, i64* %106
store i64 %107, i64* %10
%108 = load i64*, i64** %8
%109 = load i64, i64* %108
%110 = load i64*, i64** %7
store i64 %109, i64* %110
%111 = load i64, i64* %10
%112 = load i64*, i64** %8
store i64 %111, i64* %112
br label %69
113: ; preds = %104
%114 = load i64*, i64** %4
%115 = load i64, i64* %5
%116 = getelementptr inbounds i64, i64* %114, i64 %115
%117 = load i64*, i64** %7
%118 = ptrtoint i64* %116 to i64
%119 = ptrtoint i64* %117 to i64
%120 = sub i64 %118, %119
%121 = sdiv exact i64 %120, 8
store i64 %121, i64* %11
%122 = load i64*, i64** %8
%123 = load i64*, i64** %4
%124 = ptrtoint i64* %122 to i64
%125 = ptrtoint i64* %123 to i64
%126 = sub i64 %124, %125
%127 = sdiv exact i64 %126, 8
%128 = add nsw i64 %127, 1
store i64 %128, i64* %5
%129 = load i64, i64* %5
%130 = load i64, i64* %11
%131 = icmp ugt i64 %129, %130
br i1 %131, label %132, label %140
132: ; preds = %113
%133 = load i64, i64* %11
%134 = icmp uge i64 %133, 16
br i1 %134, label %135, label %139
135: ; preds = %132
%136 = load i64*, i64** %7
%137 = load i64, i64* %11
%138 = load double*, double** %6
br label %139
139: ; preds = %135, %132
br label %150
140: ; preds = %113
%141 = load i64, i64* %5
%142 = icmp uge i64 %141, 16
br i1 %142, label %143, label %147
143: ; preds = %140
%144 = load i64*, i64** %4
%145 = load i64, i64* %5
%146 = load double*, double** %6
br label %147
147: ; preds = %143, %140
%148 = load i64*, i64** %7
store i64* %148, i64** %4
%149 = load i64, i64* %11
store i64 %149, i64* %5
br label %150
150: ; preds = %147, %139
br label %151
151: ; preds = %150
%152 = load i64, i64* %5
%153 = icmp uge i64 %152, 16
br i1 %153, label %15, label %154
154: ; preds = %151
ret void
}

LLVM IR (-O2):
define void @l2d_qrec(i64* %0, i64 %1, double* %2) {
br label %4
4: ; preds = %71, %3
%5 = phi i64 [ %1, %3 ], [ %72, %71 ]
%6 = phi i64* [ %0, %3 ], [ %73, %71 ]
%7 = getelementptr inbounds i64, i64* %6, i64 %5
%8 = getelementptr inbounds i64, i64* %7, i64 -1
%9 = load i64, i64* %6
%10 = getelementptr inbounds double, double* %2, i64 %9
%11 = load double, double* %10
%12 = load i64, i64* %8
%13 = getelementptr inbounds double, double* %2, i64 %12
%14 = load double, double* %13
%15 = fcmp ogt double %11, %14
br i1 %15, label %16, label %17
16: ; preds = %4
store i64 %12, i64* %6
store i64 %9, i64* %8
br label %17
17: ; preds = %16, %4
%18 = lshr i64 %5, 1
%19 = getelementptr inbounds i64, i64* %6, i64 %18
%20 = load i64, i64* %19
%21 = getelementptr inbounds double, double* %2, i64 %20
%22 = load double, double* %21
%23 = fcmp olt double %22, %11
br i1 %23, label %27, label %24
24: ; preds = %17
%25 = fcmp ogt double %22, %14
br i1 %25, label %26, label %27
26: ; preds = %24
br label %27
27: ; preds = %17, %24, %26
%28 = phi double [ %14, %26 ], [ %22, %24 ], [ %11, %17 ]
br label %29
29: ; preds = %64, %27
%30 = phi i64* [ %8, %27 ], [ %41, %64 ]
%31 = phi i64* [ %6, %27 ], [ %34, %64 ]
br label %32
32: ; preds = %32, %29
%33 = phi i64* [ %31, %29 ], [ %34, %32 ]
%34 = getelementptr inbounds i64, i64* %33, i64 1
%35 = load i64, i64* %34
%36 = getelementptr inbounds double, double* %2, i64 %35
%37 = load double, double* %36
%38 = fcmp olt double %37, %28
br i1 %38, label %32, label %39
39: ; preds = %32, %39
%40 = phi i64* [ %41, %39 ], [ %30, %32 ]
%41 = getelementptr inbounds i64, i64* %40, i64 -1
%42 = load i64, i64* %41
%43 = getelementptr inbounds double, double* %2, i64 %42
%44 = load double, double* %43
%45 = fcmp ogt double %44, %28
br i1 %45, label %39, label %46
46: ; preds = %39
%47 = icmp ult i64* %34, %41
br i1 %47, label %64, label %48
48: ; preds = %46
%49 = icmp ugt i64* %34, %41
%50 = getelementptr inbounds i64, i64* %33, i64 2
%51 = getelementptr inbounds i64, i64* %40, i64 -2
%52 = select i1 %49, i64* %41, i64* %51
%53 = select i1 %49, i64* %34, i64* %50
%54 = ptrtoint i64* %7 to i64
%55 = ptrtoint i64* %53 to i64
%56 = sub i64 %54, %55
%57 = ashr exact i64 %56, 3
%58 = ptrtoint i64* %52 to i64
%59 = ptrtoint i64* %6 to i64
%60 = sub i64 %58, %59
%61 = ashr exact i64 %60, 3
%62 = add nsw i64 %61, 1
%63 = icmp ugt i64 %62, %57
br i1 %63, label %65, label %68
64: ; preds = %46
store i64 %42, i64* %34
store i64 %35, i64* %41
br label %29
65: ; preds = %48
%66 = icmp ugt i64 %56, 120
br i1 %66, label %67, label %71
67: ; preds = %65
tail call void @l2d_qrec(i64* %53, i64 %57, double* %2)
br label %71
68: ; preds = %48
%69 = icmp ugt i64 %62, 15
br i1 %69, label %70, label %71
70: ; preds = %68
tail call void @l2d_qrec(i64* %6, i64 %62, double* %2)
br label %71
71: ; preds = %68, %70, %67, %65
%72 = phi i64 [ %62, %67 ], [ %62, %65 ], [ %57, %70 ], [ %57, %68 ]
%73 = phi i64* [ %6, %67 ], [ %6, %65 ], [ %53, %70 ], [ %53, %68 ]
%74 = icmp ugt i64 %72, 15
br i1 %74, label %4, label %75
75: ; preds = %71
ret void
}