#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 */
double B_term(int, int, int, int, int, int, int, int, int, double, double,
              double, double, double, double, double, double, double);
scalar_t__ malloc(int);
double *B_array(int l1, int l2, int l3, int l4, double p, double a, double b,
                double q, double c, double d, double g1, double g2,
                double delta) {
  int Imax, i1, i2, r1, r2, u, I, i;
  double *B;
  Imax = l1 + l2 + l3 + l4 + 1;
  B = (double *)malloc(Imax * sizeof(double));
  for (i = 0; i < Imax; i++)
    B[i] = 0.;
  for (i1 = 0; i1 < l1 + l2 + 1; i1++)
    for (i2 = 0; i2 < l3 + l4 + 1; i2++)
      for (r1 = 0; r1 < i1 / 2 + 1; r1++)
        for (r2 = 0; r2 < i2 / 2 + 1; r2++)
          for (u = 0; u < (i1 + i2) / 2 - r1 - r2 + 1; u++) {
            I = i1 + i2 - 2 * (r1 + r2) - u;
            B[I] = B[I] + B_term(i1, i2, r1, r2, u, l1, l2, l3, l4, p, a, b, q,
                                 c, d, g1, g2, delta);
          }
  return B;
}


x86 assembly (clang, -O0):
<B_array>:
push   %rbp
mov    %rsp,%rbp
sub    $0xb0,%rsp
movsd  0x10(%rbp),%xmm8
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %ecx,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
movsd  %xmm2,-0x28(%rbp)
movsd  %xmm3,-0x30(%rbp)
movsd  %xmm4,-0x38(%rbp)
movsd  %xmm5,-0x40(%rbp)
movsd  %xmm6,-0x48(%rbp)
movsd  %xmm7,-0x50(%rbp)
mov    -0x4(%rbp),%eax
add    -0x8(%rbp),%eax
add    -0xc(%rbp),%eax
add    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
movslq -0x54(%rbp),%rax
shl    $0x3,%rax
mov    %eax,%edi
call   1040 <malloc@plt>
mov    %rax,-0x78(%rbp)
movl   $0x0,-0x70(%rbp)
mov    -0x70(%rbp),%eax
cmp    -0x54(%rbp),%eax
jge    11bb <B_array+0x9b>
mov    -0x78(%rbp),%rax
movslq -0x70(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x70(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x70(%rbp)
jmp    1191 <B_array+0x71>
movl   $0x0,-0x58(%rbp)
mov    -0x58(%rbp),%eax
mov    -0x4(%rbp),%ecx
add    -0x8(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jge    1380 <B_array+0x260>
movl   $0x0,-0x5c(%rbp)
mov    -0x5c(%rbp),%eax
mov    -0xc(%rbp),%ecx
add    -0x10(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jge    136d <B_array+0x24d>
movl   $0x0,-0x60(%rbp)
mov    -0x60(%rbp),%eax
mov    %eax,-0x7c(%rbp)
mov    -0x58(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x7c(%rbp),%eax
add    $0x1,%ecx
cmp    %ecx,%eax
jge    135a <B_array+0x23a>
movl   $0x0,-0x64(%rbp)
mov    -0x64(%rbp),%eax
mov    %eax,-0x80(%rbp)
mov    -0x5c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x80(%rbp),%eax
add    $0x1,%ecx
cmp    %ecx,%eax
jge    1347 <B_array+0x227>
movl   $0x0,-0x68(%rbp)
mov    -0x68(%rbp),%eax
mov    %eax,-0x84(%rbp)
mov    -0x58(%rbp),%eax
add    -0x5c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x84(%rbp),%eax
sub    -0x60(%rbp),%ecx
sub    -0x64(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jge    1334 <B_array+0x214>
mov    -0x58(%rbp),%eax
add    -0x5c(%rbp),%eax
mov    -0x60(%rbp),%ecx
add    -0x64(%rbp),%ecx
shl    $0x1,%ecx
sub    %ecx,%eax
sub    -0x68(%rbp),%eax
mov    %eax,-0x6c(%rbp)
mov    -0x78(%rbp),%rax
movslq -0x6c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
mov    -0x58(%rbp),%edi
mov    -0x5c(%rbp),%esi
mov    -0x60(%rbp),%edx
mov    -0x64(%rbp),%ecx
mov    -0x68(%rbp),%r8d
mov    -0x4(%rbp),%r9d
mov    -0x8(%rbp),%r11d
mov    -0xc(%rbp),%r10d
mov    -0x10(%rbp),%eax
movsd  -0x18(%rbp),%xmm0
movsd  -0x20(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm2
movsd  -0x30(%rbp),%xmm3
movsd  -0x38(%rbp),%xmm4
movsd  -0x40(%rbp),%xmm5
movsd  -0x48(%rbp),%xmm6
movsd  -0x50(%rbp),%xmm7
movsd  0x10(%rbp),%xmm8
mov    %r11d,(%rsp)
mov    %r10d,0x8(%rsp)
mov    %eax,0x10(%rsp)
movsd  %xmm8,0x18(%rsp)
call   1030 <B_term@plt>
movaps %xmm0,%xmm1
movsd  -0x90(%rbp),%xmm0
ff
addsd  %xmm1,%xmm0
mov    -0x78(%rbp),%rax
movslq -0x6c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x68(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x68(%rbp)
jmp    1248 <B_array+0x128>
jmp    1339 <B_array+0x219>
mov    -0x64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x64(%rbp)
jmp    1220 <B_array+0x100>
jmp    134c <B_array+0x22c>
mov    -0x60(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x60(%rbp)
jmp    11f8 <B_array+0xd8>
jmp    135f <B_array+0x23f>
mov    -0x5c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x5c(%rbp)
jmp    11dd <B_array+0xbd>
jmp    1372 <B_array+0x252>
mov    -0x58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x58(%rbp)
jmp    11c2 <B_array+0xa2>
mov    -0x78(%rbp),%rax
add    $0xb0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<B_array>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xe8,%rsp
movsd  %xmm7,0xc0(%rsp)
movsd  %xmm6,0xb8(%rsp)
movsd  %xmm5,0xb0(%rsp)
movsd  %xmm4,0xa8(%rsp)
movsd  %xmm3,0x70(%rsp)
movsd  %xmm2,0x68(%rsp)
movsd  %xmm1,0x60(%rsp)
movsd  %xmm0,0x58(%rsp)
mov    %esi,%r14d
mov    %edi,%r15d
lea    (%r14,%r15,1),%eax
mov    %rcx,0x50(%rsp)
mov    %rdx,0x48(%rsp)
lea    (%rcx,%rdx,1),%ebx
mov    %rax,0x40(%rsp)
lea    (%rbx,%rax,1),%ebp
lea    0x8(,%rbp,8),%edi
call   1050 <malloc@plt>
test   %ebp,%ebp
mov    %rax,0x30(%rsp)
js     11d1 <B_array+0xa1>
lea    (%rbx,%r14,1),%eax
lea    (%r15,%rax,1),%edx
add    $0x1,%edx
shl    $0x3,%rdx
mov    0x30(%rsp),%rdi
xor    %esi,%esi
call   1040 <memset@plt>
mov    0x30(%rsp),%rax
mov    %r15,0x88(%rsp)
mov    %r14,0x90(%rsp)
cmpl   $0x0,0x40(%rsp)
js     13ff <B_array+0x2cf>
movsd  0x120(%rsp),%xmm0
xor    %r15d,%r15d
mov    %rbx,0x78(%rsp)
mov    0x90(%rsp),%rbp
jmp    1222 <B_array+0xf2>
nopw   0x0(%rax,%rax,1)
lea    0x1(%r15),%ecx
cmp    0x40(%rsp),%r15d
mov    %ecx,%r15d
je     13ff <B_array+0x2cf>
test   %ebx,%ebx
js     1210 <B_array+0xe0>
mov    %r15d,%ecx
shr    %ecx
add    $0x1,%ecx
mov    %rcx,0x80(%rsp)
xor    %r12d,%r12d
mov    %r15d,%edx
jmp    1259 <B_array+0x129>
xchg   %ax,%ax
lea    0x1(%r12),%ecx
mov    0x38(%rsp),%edx
add    $0x1,%edx
mov    0x78(%rsp),%rbx
cmp    %ebx,%r12d
mov    %ecx,%r12d
je     1210 <B_array+0xe0>
mov    %r12d,%ecx
shr    %ecx
add    $0x1,%ecx
mov    %rcx,0xa0(%rsp)
lea    (%r12,%r15,1),%ecx
shr    %ecx
mov    %rcx,0x98(%rsp)
mov    %edx,0x38(%rsp)
mov    %edx,%ecx
xor    %edx,%edx
jmp    12a5 <B_array+0x175>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
mov    0x3c(%rsp),%ecx
add    $0xfffffffe,%ecx
cmp    0x80(%rsp),%rdx
je     1240 <B_array+0x110>
mov    %ecx,0x3c(%rsp)
mov    %ecx,0x2c(%rsp)
xor    %r10d,%r10d
mov    %rdx,0xc8(%rsp)
jmp    12d3 <B_array+0x1a3>
nopw   0x0(%rax,%rax,1)
add    $0x1,%r10
addl   $0xfffffffe,0x2c(%rsp)
cmp    0xa0(%rsp),%r10
je     1290 <B_array+0x160>
lea    (%r10,%rdx,1),%rcx
mov    0x98(%rsp),%rdi
sub    %rcx,%rdi
movsd  0x70(%rsp),%xmm3
movsd  0x68(%rsp),%xmm2
movsd  0x60(%rsp),%xmm1
movsd  0x58(%rsp),%xmm7
mov    0x50(%rsp),%rbx
mov    0x48(%rsp),%rsi
mov    0x88(%rsp),%r9
js     12c0 <B_array+0x190>
mov    $0xffffffffffffffff,%r13
mov    0x2c(%rsp),%ecx
mov    %ecx,%r14d
mov    %rdi,0xd8(%rsp)
mov    %r10,0xd0(%rsp)
nopl   0x0(%rax)
add    $0x1,%r13
movslq %r14d,%r14
movsd  (%rax,%r14,8),%xmm4
movsd  %xmm4,0xe0(%rsp)
movsd  %xmm0,0x18(%rsp)
mov    %ebx,0x10(%rsp)
mov    %esi,0x8(%rsp)
mov    %ebp,(%rsp)
mov    %r15d,%edi
mov    %r12d,%esi
mov    %r10d,%ecx
mov    %r13d,%r8d
movapd %xmm7,%xmm0
movsd  0xa8(%rsp),%xmm4
movsd  0xb0(%rsp),%xmm5
movsd  0xb8(%rsp),%xmm6
movsd  0xc0(%rsp),%xmm7
mov    %r9,%rbx
call   1030 <B_term@plt>
mov    %rbx,%r9
mov    0x48(%rsp),%rsi
mov    0x50(%rsp),%rbx
movsd  0x58(%rsp),%xmm7
movsd  0x60(%rsp),%xmm1
movsd  0x68(%rsp),%xmm2
movsd  0x70(%rsp),%xmm3
mov    0xd0(%rsp),%r10
mov    0xd8(%rsp),%rdi
mov    0xc8(%rsp),%rdx
mov    0x30(%rsp),%rax
addsd  0xe0(%rsp),%xmm0
movsd  %xmm0,(%rax,%r14,8)
movsd  0x120(%rsp),%xmm0
add    $0xffffffff,%r14d
cmp    %rdi,%r13
jl     1330 <B_array+0x200>
jmp    12c0 <B_array+0x190>
add    $0xe8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define double* @B_array(i32 %0, i32 %1, i32 %2, i32 %3, double %4, double %5, double %6, double %7, double %8, double %9, double %10, double %11, double %12) {
%14 = add i32 %1, %0
%15 = add i32 %3, %2
%16 = add i32 %15, %14
%17 = shl i32 %16, 3
%18 = add i32 %17, 8
%19 = tail call i64 @malloc(i32 %18)
%20 = inttoptr i64 %19 to double*
%21 = icmp slt i32 %16, 0
br i1 %21, label %29, label %22
22: ; preds = %13
%23 = inttoptr i64 %19 to i8*
%24 = add i32 %15, %1
%25 = add i32 %24, %0
%26 = add i32 %25, 1
%27 = zext i32 %26 to i64
%28 = shl nuw nsw i64 %27, 3
br label %29
29: ; preds = %22, %13
%30 = icmp slt i32 %14, 0
br i1 %30, label %83, label %31
31: ; preds = %29
%32 = icmp slt i32 %15, 0
br label %33
33: ; preds = %31, %80
%34 = phi i32 [ 0, %31 ], [ %81, %80 ]
br i1 %32, label %80, label %35
35: ; preds = %33
%36 = lshr i32 %34, 1
%37 = add nuw nsw i32 %36, 1
%38 = zext i32 %37 to i64
br label %39
39: ; preds = %35, %77
%40 = phi i32 [ 0, %35 ], [ %78, %77 ]
%41 = lshr i32 %40, 1
%42 = add nuw nsw i32 %41, 1
%43 = add nuw nsw i32 %40, %34
%44 = lshr i32 %43, 1
%45 = zext i32 %44 to i64
%46 = zext i32 %42 to i64
br label %47
47: ; preds = %39, %74
%48 = phi i64 [ 0, %39 ], [ %75, %74 ]
%49 = trunc i64 %48 to i32
br label %50
50: ; preds = %47, %71
%51 = phi i64 [ 0, %47 ], [ %72, %71 ]
%52 = add nuw nsw i64 %51, %48
%53 = sub nsw i64 %45, %52
%54 = icmp slt i64 %53, 0
br i1 %54, label %71, label %55
55: ; preds = %50
%56 = trunc i64 %52 to i32
%57 = mul i32 %56, -2
%58 = add i32 %57, %43
%59 = trunc i64 %51 to i32
br label %60
60: ; preds = %55, %60
%61 = phi i64 [ 0, %55 ], [ %69, %60 ]
%62 = trunc i64 %61 to i32
%63 = sub i32 %58, %62
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %20, i64 %64
%66 = load double, double* %65
%67 = tail call double @B_term(i32 %34, i32 %40, i32 %49, i32 %59, i32 %62, i32 %0, i32 %1, i32 %2, i32 %3, double %4, double %5, double %6, double %7, double %8, double %9, double %10, double %11, double %12)
%68 = fadd double %66, %67
store double %68, double* %65
%69 = add nuw nsw i64 %61, 1
%70 = icmp slt i64 %61, %53
br i1 %70, label %60, label %71
71: ; preds = %60, %50
%72 = add nuw nsw i64 %51, 1
%73 = icmp eq i64 %72, %46
br i1 %73, label %74, label %50
74: ; preds = %71
%75 = add nuw nsw i64 %48, 1
%76 = icmp eq i64 %75, %38
br i1 %76, label %77, label %47
77: ; preds = %74
%78 = add nuw i32 %40, 1
%79 = icmp eq i32 %40, %15
br i1 %79, label %80, label %39
80: ; preds = %77, %33
%81 = add nuw i32 %34, 1
%82 = icmp eq i32 %34, %14
br i1 %82, label %83, label %33
83: ; preds = %80, %29
ret double* %20
}