#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 */
int /*<<< orphan*/ free(int *);
scalar_t__ malloc(int);
double rgamma(double, double);
void sample_Lambda_m(int D, int R, int N, int p, int *****Y_t, int ****L_t,
                     int *cla_t, int m, double *par_0, double *par_1,
                     double *par_2, double ***Lambda_t) {
  int total = 0, tmp;
  int *ind;
  ind = (int *)malloc(N * sizeof(int));
  for (int i = 0; i < N; i++) {
    ind[i] = -1;
  }
  for (int i = 0; i < N; i++) {
    if (cla_t[i] == m) {
      ind[total] = i;
      total += 1;
    }
  }
  for (int d = 0; d < D; d++) {
    for (int i = 0; i < p; i++) {
      for (int j = i; j < p; j++) {
        tmp = 0;
        for (int r = 0; r < R; r++) {
          for (int k = 0; k < total; k++) {
            tmp += Y_t[ind[k]][d][r][i][j];
          }
        }
        if (j == i) {
          Lambda_t[d][i][i] = rgamma(par_2[0] + tmp, par_2[1] + total * R);
        } else {
          if (L_t[m][d][i][j] == 1) {
            Lambda_t[d][i][j] = rgamma(par_1[0] + tmp, par_1[1] + total * R);
          } else {
            Lambda_t[d][i][j] = rgamma(par_0[0] + tmp, par_0[1] + total * R);
          }
          Lambda_t[d][j][i] = Lambda_t[d][i][j];
        }
      }
    }
  }
  free(ind);
}


x86 assembly (clang, -O0):
<sample_Lambda_m>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    0x38(%rbp),%rax
mov    0x30(%rbp),%rax
mov    0x28(%rbp),%rax
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %ecx,-0x10(%rbp)
mov    %r8,-0x18(%rbp)
mov    %r9,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movslq -0xc(%rbp),%rax
shl    $0x2,%rax
mov    %eax,%edi
call   1040 <malloc@plt>
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11ad <sample_Lambda_m+0x7d>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movl   $0xffffffff,(%rax,%rcx,4)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1184 <sample_Lambda_m+0x54>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11fe <sample_Lambda_m+0xce>
mov    0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    0x18(%rbp),%eax
jne    11eb <sample_Lambda_m+0xbb>
mov    -0x38(%rbp),%edx
mov    -0x30(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    11f0 <sample_Lambda_m+0xc0>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11b4 <sample_Lambda_m+0x84>
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1451 <sample_Lambda_m+0x321>
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    143e <sample_Lambda_m+0x30e>
mov    -0x40(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    142b <sample_Lambda_m+0x2fb>
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x48(%rbp)
mov    -0x48(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    12bd <sample_Lambda_m+0x18d>
movl   $0x0,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    12aa <sample_Lambda_m+0x17a>
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
movslq -0x4c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x48(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1257 <sample_Lambda_m+0x127>
jmp    12af <sample_Lambda_m+0x17f>
mov    -0x48(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x48(%rbp)
jmp    1244 <sample_Lambda_m+0x114>
mov    -0x44(%rbp),%eax
cmp    -0x40(%rbp),%eax
jne    1319 <sample_Lambda_m+0x1e9>
mov    0x30(%rbp),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x28(%rbp),%xmm1
addsd  %xmm1,%xmm0
mov    0x30(%rbp),%rax
movsd  0x8(%rax),%xmm1
mov    -0x24(%rbp),%eax
imul   -0x8(%rbp),%eax
cvtsi2sd %eax,%xmm2
addsd  %xmm2,%xmm1
call   1050 <rgamma@plt>
mov    0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1418 <sample_Lambda_m+0x2e8>
mov    -0x20(%rbp),%rax
movslq 0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
cmpl   $0x1,(%rax,%rcx,4)
jne    1393 <sample_Lambda_m+0x263>
mov    0x28(%rbp),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x28(%rbp),%xmm1
addsd  %xmm1,%xmm0
mov    0x28(%rbp),%rax
movsd  0x8(%rax),%xmm1
mov    -0x24(%rbp),%eax
imul   -0x8(%rbp),%eax
cvtsi2sd %eax,%xmm2
addsd  %xmm2,%xmm1
call   1050 <rgamma@plt>
mov    0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    13de <sample_Lambda_m+0x2ae>
mov    0x20(%rbp),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x28(%rbp),%xmm1
addsd  %xmm1,%xmm0
mov    0x20(%rbp),%rax
movsd  0x8(%rax),%xmm1
mov    -0x24(%rbp),%eax
imul   -0x8(%rbp),%eax
cvtsi2sd %eax,%xmm2
addsd  %xmm2,%xmm1
call   1050 <rgamma@plt>
mov    0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    141d <sample_Lambda_m+0x2ed>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    122a <sample_Lambda_m+0xfa>
jmp    1430 <sample_Lambda_m+0x300>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1218 <sample_Lambda_m+0xe8>
jmp    1443 <sample_Lambda_m+0x313>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1205 <sample_Lambda_m+0xd5>
mov    -0x30(%rbp),%rdi
call   1030 <free@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<sample_Lambda_m>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x68,%rsp
mov    %r9,0x60(%rsp)
mov    %r8,%rbx
mov    %ecx,(%rsp)
mov    %edx,%r12d
mov    %esi,0x4(%rsp)
mov    %edi,%r13d
mov    0xc8(%rsp),%rax
mov    %rax,0x30(%rsp)
mov    0xc0(%rsp),%rax
mov    %rax,0x58(%rsp)
mov    0xb8(%rsp),%rax
mov    %rax,0x50(%rsp)
mov    0xb0(%rsp),%rax
mov    %rax,0x48(%rsp)
mov    0xa8(%rsp),%r14d
mov    0xa0(%rsp),%r15
lea    0x0(,%r12,4),%edi
call   1050 <malloc@plt>
mov    %rax,%rbp
test   %r12d,%r12d
jle    1204 <sample_Lambda_m+0xc4>
mov    %r13d,0x8(%rsp)
mov    %r12d,%r13d
lea    0x0(,%r13,4),%rdx
mov    %rbp,%rdi
mov    $0xff,%esi
call   1040 <memset@plt>
cmp    $0x1,%r12d
jne    1406 <sample_Lambda_m+0x2c6>
xor    %eax,%eax
xor    %edi,%edi
test   $0x1,%r13b
mov    0x8(%rsp),%r13d
je     1206 <sample_Lambda_m+0xc6>
cmp    %r14d,(%r15,%rax,4)
jne    1206 <sample_Lambda_m+0xc6>
movslq %edi,%rdi
mov    %eax,0x0(%rbp,%rdi,4)
add    $0x1,%edi
jmp    1206 <sample_Lambda_m+0xc6>
xor    %edi,%edi
test   %r13d,%r13d
jle    13f0 <sample_Lambda_m+0x2b0>
movslq %r14d,%rax
mov    %rax,0x40(%rsp)
mov    %edi,%eax
mov    0x4(%rsp),%ecx
imul   %ecx,%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,0x20(%rsp)
mov    %r13d,%eax
mov    %rax,0x38(%rsp)
mov    (%rsp),%eax
mov    %rax,0x8(%rsp)
mov    %ecx,%r8d
mov    %edi,%r9d
mov    %r9d,%r12d
and    $0xfffffffe,%r12d
xor    %r15d,%r15d
mov    %rdi,0x28(%rsp)
mov    %r8,0x18(%rsp)
mov    %r9,0x10(%rsp)
jmp    126f <sample_Lambda_m+0x12f>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r15
cmp    0x38(%rsp),%r15
je     13f0 <sample_Lambda_m+0x2b0>
cmpl   $0x0,(%rsp)
jle    1260 <sample_Lambda_m+0x120>
xor    %r14d,%r14d
jmp    128b <sample_Lambda_m+0x14b>
nopw   0x0(%rax,%rax,1)
add    $0x1,%r14
cmp    0x8(%rsp),%r14
je     1260 <sample_Lambda_m+0x120>
mov    %r14,%r13
jmp    130f <sample_Lambda_m+0x1cf>
mov    0x60(%rsp),%rcx
mov    0x40(%rsp),%rdx
mov    (%rcx,%rdx,8),%rcx
mov    (%rcx,%r15,8),%rcx
mov    (%rcx,%r14,8),%rcx
cmpl   $0x1,(%rcx,%r13,4)
mov    0x48(%rsp),%rcx
cmove  0x50(%rsp),%rcx
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
addsd  (%rcx),%xmm0
movsd  0x8(%rcx),%xmm1
addsd  0x20(%rsp),%xmm1
call   1060 <rgamma@plt>
mov    0x10(%rsp),%r9
mov    0x18(%rsp),%r8
mov    0x28(%rsp),%rdi
mov    0x30(%rsp),%rax
mov    (%rax,%r15,8),%rax
mov    (%rax,%r14,8),%rcx
movsd  %xmm0,(%rcx,%r13,8)
lea    (%rax,%r13,8),%rax
mov    (%rax),%rax
movsd  %xmm0,(%rax,%r14,8)
add    $0x1,%r13
cmp    0x8(%rsp),%r13
je     1280 <sample_Lambda_m+0x140>
cmpl   $0x0,0x4(%rsp)
jle    13a0 <sample_Lambda_m+0x260>
xor    %ecx,%ecx
xor    %eax,%eax
jmp    1329 <sample_Lambda_m+0x1e9>
add    $0x1,%rcx
cmp    %r8,%rcx
je     13a2 <sample_Lambda_m+0x262>
test   %edi,%edi
jle    1320 <sample_Lambda_m+0x1e0>
xor    %edx,%edx
cmp    $0x1,%edi
je     137b <sample_Lambda_m+0x23b>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movslq 0x0(%rbp,%rdx,4),%rsi
mov    (%rbx,%rsi,8),%rsi
mov    (%rsi,%r15,8),%rsi
mov    (%rsi,%rcx,8),%rsi
mov    (%rsi,%r14,8),%rsi
add    (%rsi,%r13,4),%eax
movslq 0x4(%rbp,%rdx,4),%rsi
mov    (%rbx,%rsi,8),%rsi
mov    (%rsi,%r15,8),%rsi
mov    (%rsi,%rcx,8),%rsi
mov    (%rsi,%r14,8),%rsi
add    (%rsi,%r13,4),%eax
add    $0x2,%rdx
cmp    %rdx,%r12
jne    1340 <sample_Lambda_m+0x200>
test   $0x1,%r9b
je     1320 <sample_Lambda_m+0x1e0>
movslq 0x0(%rbp,%rdx,4),%rdx
mov    (%rbx,%rdx,8),%rdx
mov    (%rdx,%r15,8),%rdx
mov    (%rdx,%rcx,8),%rdx
mov    (%rdx,%r14,8),%rdx
add    (%rdx,%r13,4),%eax
jmp    1320 <sample_Lambda_m+0x1e0>
nopl   0x0(%rax)
xor    %eax,%eax
cmp    %r14,%r13
jne    1290 <sample_Lambda_m+0x150>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mov    0x58(%rsp),%rax
addsd  (%rax),%xmm0
movsd  0x8(%rax),%xmm1
addsd  0x20(%rsp),%xmm1
call   1060 <rgamma@plt>
mov    0x10(%rsp),%r9
mov    0x18(%rsp),%r8
mov    0x28(%rsp),%rdi
lea    0x0(,%r14,8),%rax
mov    0x30(%rsp),%rcx
add    (%rcx,%r15,8),%rax
jmp    12f7 <sample_Lambda_m+0x1b7>
mov    %rbp,%rdi
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <free@plt>
mov    %r13d,%ecx
and    $0xfffffffe,%ecx
xor    %eax,%eax
xor    %edi,%edi
jmp    142d <sample_Lambda_m+0x2ed>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x2,%rax
cmp    %rax,%rcx
je     11e7 <sample_Lambda_m+0xa7>
cmp    %r14d,(%r15,%rax,4)
jne    143d <sample_Lambda_m+0x2fd>
movslq %edi,%rdi
mov    %eax,0x0(%rbp,%rdi,4)
add    $0x1,%edi
cmp    %r14d,0x4(%r15,%rax,4)
jne    1420 <sample_Lambda_m+0x2e0>
movslq %edi,%rdi
lea    0x1(%rax),%edx
mov    %edx,0x0(%rbp,%rdi,4)
add    $0x1,%edi
jmp    1420 <sample_Lambda_m+0x2e0>

LLVM IR (-O0):
define void @sample_Lambda_m(i32 %0, i32 %1, i32 %2, i32 %3, i32***** %4, i32**** %5, i32* %6, i32 %7, double* %8, double* %9, double* %10, double*** %11) {
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32*****
%18 = alloca i32****
%19 = alloca i32*
%20 = alloca i32
%21 = alloca double*
%22 = alloca double*
%23 = alloca double*
%24 = alloca double***
%25 = alloca i32
%26 = alloca i32
%27 = alloca i32*
%28 = alloca i32
%29 = alloca i32
%30 = alloca i32
%31 = alloca i32
%32 = alloca i32
%33 = alloca i32
%34 = alloca i32
store i32 %0, i32* %13
store i32 %1, i32* %14
store i32 %2, i32* %15
store i32 %3, i32* %16
store i32***** %4, i32****** %17
store i32**** %5, i32***** %18
store i32* %6, i32** %19
store i32 %7, i32* %20
store double* %8, double** %21
store double* %9, double** %22
store double* %10, double** %23
store double*** %11, double**** %24
store i32 0, i32* %25
%35 = load i32, i32* %15
%36 = sext i32 %35 to i64
%37 = mul i64 %36, 4
%38 = trunc i64 %37 to i32
%39 = call i64 @malloc(i32 %38)
%40 = inttoptr i64 %39 to i32*
store i32* %40, i32** %27
store i32 0, i32* %28
br label %41
41: ; preds = %50, %12
%42 = load i32, i32* %28
%43 = load i32, i32* %15
%44 = icmp slt i32 %42, %43
br i1 %44, label %45, label %53
45: ; preds = %41
%46 = load i32*, i32** %27
%47 = load i32, i32* %28
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds i32, i32* %46, i64 %48
store i32 -1, i32* %49
br label %50
50: ; preds = %45
%51 = load i32, i32* %28
%52 = add nsw i32 %51, 1
store i32 %52, i32* %28
br label %41
53: ; preds = %41
store i32 0, i32* %29
br label %54
54: ; preds = %75, %53
%55 = load i32, i32* %29
%56 = load i32, i32* %15
%57 = icmp slt i32 %55, %56
br i1 %57, label %58, label %78
58: ; preds = %54
%59 = load i32*, i32** %19
%60 = load i32, i32* %29
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds i32, i32* %59, i64 %61
%63 = load i32, i32* %62
%64 = load i32, i32* %20
%65 = icmp eq i32 %63, %64
br i1 %65, label %66, label %74
66: ; preds = %58
%67 = load i32, i32* %29
%68 = load i32*, i32** %27
%69 = load i32, i32* %25
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds i32, i32* %68, i64 %70
store i32 %67, i32* %71
%72 = load i32, i32* %25
%73 = add nsw i32 %72, 1
store i32 %73, i32* %25
br label %74
74: ; preds = %66, %58
br label %75
75: ; preds = %74
%76 = load i32, i32* %29
%77 = add nsw i32 %76, 1
store i32 %77, i32* %29
br label %54
78: ; preds = %54
store i32 0, i32* %30
br label %79
79: ; preds = %281, %78
%80 = load i32, i32* %30
%81 = load i32, i32* %13
%82 = icmp slt i32 %80, %81
br i1 %82, label %83, label %284
83: ; preds = %79
store i32 0, i32* %31
br label %84
84: ; preds = %277, %83
%85 = load i32, i32* %31
%86 = load i32, i32* %16
%87 = icmp slt i32 %85, %86
br i1 %87, label %88, label %280
88: ; preds = %84
%89 = load i32, i32* %31
store i32 %89, i32* %32
br label %90
90: ; preds = %273, %88
%91 = load i32, i32* %32
%92 = load i32, i32* %16
%93 = icmp slt i32 %91, %92
br i1 %93, label %94, label %276
94: ; preds = %90
store i32 0, i32* %26
store i32 0, i32* %33
br label %95
95: ; preds = %136, %94
%96 = load i32, i32* %33
%97 = load i32, i32* %14
%98 = icmp slt i32 %96, %97
br i1 %98, label %99, label %139
99: ; preds = %95
store i32 0, i32* %34
br label %100
100: ; preds = %132, %99
%101 = load i32, i32* %34
%102 = load i32, i32* %25
%103 = icmp slt i32 %101, %102
br i1 %103, label %104, label %135
104: ; preds = %100
%105 = load i32*****, i32****** %17
%106 = load i32*, i32** %27
%107 = load i32, i32* %34
%108 = sext i32 %107 to i64
%109 = getelementptr inbounds i32, i32* %106, i64 %108
%110 = load i32, i32* %109
%111 = sext i32 %110 to i64
%112 = getelementptr inbounds i32****, i32***** %105, i64 %111
%113 = load i32****, i32***** %112
%114 = load i32, i32* %30
%115 = sext i32 %114 to i64
%116 = getelementptr inbounds i32***, i32**** %113, i64 %115
%117 = load i32***, i32**** %116
%118 = load i32, i32* %33
%119 = sext i32 %118 to i64
%120 = getelementptr inbounds i32**, i32*** %117, i64 %119
%121 = load i32**, i32*** %120
%122 = load i32, i32* %31
%123 = sext i32 %122 to i64
%124 = getelementptr inbounds i32*, i32** %121, i64 %123
%125 = load i32*, i32** %124
%126 = load i32, i32* %32
%127 = sext i32 %126 to i64
%128 = getelementptr inbounds i32, i32* %125, i64 %127
%129 = load i32, i32* %128
%130 = load i32, i32* %26
%131 = add nsw i32 %130, %129
store i32 %131, i32* %26
br label %132
132: ; preds = %104
%133 = load i32, i32* %34
%134 = add nsw i32 %133, 1
store i32 %134, i32* %34
br label %100
135: ; preds = %100
br label %136
136: ; preds = %135
%137 = load i32, i32* %33
%138 = add nsw i32 %137, 1
store i32 %138, i32* %33
br label %95
139: ; preds = %95
%140 = load i32, i32* %32
%141 = load i32, i32* %31
%142 = icmp eq i32 %140, %141
br i1 %142, label %143, label %171
143: ; preds = %139
%144 = load double*, double** %23
%145 = getelementptr inbounds double, double* %144, i64 0
%146 = load double, double* %145
%147 = load i32, i32* %26
%148 = sitofp i32 %147 to double
%149 = fadd double %146, %148
%150 = load double*, double** %23
%151 = getelementptr inbounds double, double* %150, i64 1
%152 = load double, double* %151
%153 = load i32, i32* %25
%154 = load i32, i32* %14
%155 = mul nsw i32 %153, %154
%156 = sitofp i32 %155 to double
%157 = fadd double %152, %156
%158 = call double @rgamma(double %149, double %157)
%159 = load double***, double**** %24
%160 = load i32, i32* %30
%161 = sext i32 %160 to i64
%162 = getelementptr inbounds double**, double*** %159, i64 %161
%163 = load double**, double*** %162
%164 = load i32, i32* %31
%165 = sext i32 %164 to i64
%166 = getelementptr inbounds double*, double** %163, i64 %165
%167 = load double*, double** %166
%168 = load i32, i32* %31
%169 = sext i32 %168 to i64
%170 = getelementptr inbounds double, double* %167, i64 %169
store double %158, double* %170
br label %272
171: ; preds = %139
%172 = load i32****, i32***** %18
%173 = load i32, i32* %20
%174 = sext i32 %173 to i64
%175 = getelementptr inbounds i32***, i32**** %172, i64 %174
%176 = load i32***, i32**** %175
%177 = load i32, i32* %30
%178 = sext i32 %177 to i64
%179 = getelementptr inbounds i32**, i32*** %176, i64 %178
%180 = load i32**, i32*** %179
%181 = load i32, i32* %31
%182 = sext i32 %181 to i64
%183 = getelementptr inbounds i32*, i32** %180, i64 %182
%184 = load i32*, i32** %183
%185 = load i32, i32* %32
%186 = sext i32 %185 to i64
%187 = getelementptr inbounds i32, i32* %184, i64 %186
%188 = load i32, i32* %187
%189 = icmp eq i32 %188, 1
br i1 %189, label %190, label %218
190: ; preds = %171
%191 = load double*, double** %22
%192 = getelementptr inbounds double, double* %191, i64 0
%193 = load double, double* %192
%194 = load i32, i32* %26
%195 = sitofp i32 %194 to double
%196 = fadd double %193, %195
%197 = load double*, double** %22
%198 = getelementptr inbounds double, double* %197, i64 1
%199 = load double, double* %198
%200 = load i32, i32* %25
%201 = load i32, i32* %14
%202 = mul nsw i32 %200, %201
%203 = sitofp i32 %202 to double
%204 = fadd double %199, %203
%205 = call double @rgamma(double %196, double %204)
%206 = load double***, double**** %24
%207 = load i32, i32* %30
%208 = sext i32 %207 to i64
%209 = getelementptr inbounds double**, double*** %206, i64 %208
%210 = load double**, double*** %209
%211 = load i32, i32* %31
%212 = sext i32 %211 to i64
%213 = getelementptr inbounds double*, double** %210, i64 %212
%214 = load double*, double** %213
%215 = load i32, i32* %32
%216 = sext i32 %215 to i64
%217 = getelementptr inbounds double, double* %214, i64 %216
store double %205, double* %217
br label %246
218: ; preds = %171
%219 = load double*, double** %21
%220 = getelementptr inbounds double, double* %219, i64 0
%221 = load double, double* %220
%222 = load i32, i32* %26
%223 = sitofp i32 %222 to double
%224 = fadd double %221, %223
%225 = load double*, double** %21
%226 = getelementptr inbounds double, double* %225, i64 1
%227 = load double, double* %226
%228 = load i32, i32* %25
%229 = load i32, i32* %14
%230 = mul nsw i32 %228, %229
%231 = sitofp i32 %230 to double
%232 = fadd double %227, %231
%233 = call double @rgamma(double %224, double %232)
%234 = load double***, double**** %24
%235 = load i32, i32* %30
%236 = sext i32 %235 to i64
%237 = getelementptr inbounds double**, double*** %234, i64 %236
%238 = load double**, double*** %237
%239 = load i32, i32* %31
%240 = sext i32 %239 to i64
%241 = getelementptr inbounds double*, double** %238, i64 %240
%242 = load double*, double** %241
%243 = load i32, i32* %32
%244 = sext i32 %243 to i64
%245 = getelementptr inbounds double, double* %242, i64 %244
store double %233, double* %245
br label %246
246: ; preds = %218, %190
%247 = load double***, double**** %24
%248 = load i32, i32* %30
%249 = sext i32 %248 to i64
%250 = getelementptr inbounds double**, double*** %247, i64 %249
%251 = load double**, double*** %250
%252 = load i32, i32* %31
%253 = sext i32 %252 to i64
%254 = getelementptr inbounds double*, double** %251, i64 %253
%255 = load double*, double** %254
%256 = load i32, i32* %32
%257 = sext i32 %256 to i64
%258 = getelementptr inbounds double, double* %255, i64 %257
%259 = load double, double* %258
%260 = load double***, double**** %24
%261 = load i32, i32* %30
%262 = sext i32 %261 to i64
%263 = getelementptr inbounds double**, double*** %260, i64 %262
%264 = load double**, double*** %263
%265 = load i32, i32* %32
%266 = sext i32 %265 to i64
%267 = getelementptr inbounds double*, double** %264, i64 %266
%268 = load double*, double** %267
%269 = load i32, i32* %31
%270 = sext i32 %269 to i64
%271 = getelementptr inbounds double, double* %268, i64 %270
store double %259, double* %271
br label %272
272: ; preds = %246, %143
br label %273
273: ; preds = %272
%274 = load i32, i32* %32
%275 = add nsw i32 %274, 1
store i32 %275, i32* %32
br label %90
276: ; preds = %90
br label %277
277: ; preds = %276
%278 = load i32, i32* %31
%279 = add nsw i32 %278, 1
store i32 %279, i32* %31
br label %84
280: ; preds = %84
br label %281
281: ; preds = %280
%282 = load i32, i32* %30
%283 = add nsw i32 %282, 1
store i32 %283, i32* %30
br label %79
284: ; preds = %79
%285 = load i32*, i32** %27
%286 = call i32 @free(i32* %285)
ret void
}

LLVM IR (-O2):
define void @sample_Lambda_m(i32 %0, i32 %1, i32 %2, i32 %3, i32***** nocapture %4, i32**** nocapture %5, i32* nocapture %6, i32 %7, double* nocapture %8, double* nocapture %9, double* nocapture %10, double*** nocapture %11) {
%13 = shl i32 %2, 2
%14 = tail call i64 @malloc(i32 %13)
%15 = inttoptr i64 %14 to i32*
%16 = icmp sgt i32 %2, 0
br i1 %16, label %17, label %40
17: ; preds = %12
%18 = inttoptr i64 %14 to i8*
%19 = zext i32 %2 to i64
%20 = shl nuw nsw i64 %19, 2
%21 = zext i32 %2 to i64
%22 = and i64 %21, 1
%23 = icmp eq i32 %2, 1
br i1 %23, label %26, label %24
24: ; preds = %17
%25 = and i64 %21, 4294967294
br label %60
26: ; preds = %83, %17
%27 = phi i32 [ undef, %17 ], [ %84, %83 ]
%28 = phi i64 [ 0, %17 ], [ %85, %83 ]
%29 = phi i32 [ 0, %17 ], [ %84, %83 ]
%30 = icmp eq i64 %22, 0
br i1 %30, label %40, label %31
31: ; preds = %26
%32 = getelementptr inbounds i32, i32* %6, i64 %28
%33 = load i32, i32* %32
%34 = icmp eq i32 %33, %7
br i1 %34, label %35, label %40
35: ; preds = %31
%36 = sext i32 %29 to i64
%37 = getelementptr inbounds i32, i32* %15, i64 %36
%38 = trunc i64 %28 to i32
store i32 %38, i32* %37
%39 = add nsw i32 %29, 1
br label %40
40: ; preds = %26, %35, %31, %12
%41 = phi i32 [ 0, %12 ], [ %27, %26 ], [ %39, %35 ], [ %29, %31 ]
%42 = icmp sgt i32 %0, 0
br i1 %42, label %43, label %92
43: ; preds = %40
%44 = icmp sgt i32 %3, 0
%45 = icmp sgt i32 %1, 0
%46 = icmp sgt i32 %41, 0
%47 = sext i32 %7 to i64
%48 = getelementptr inbounds i32***, i32**** %5, i64 %47
%49 = mul nsw i32 %41, %1
%50 = sitofp i32 %49 to double
%51 = getelementptr inbounds double, double* %10, i64 1
%52 = zext i32 %0 to i64
%53 = zext i32 %3 to i64
%54 = zext i32 %1 to i64
%55 = zext i32 %41 to i64
%56 = and i64 %55, 1
%57 = icmp eq i32 %41, 1
%58 = and i64 %55, 4294967294
%59 = icmp eq i64 %56, 0
br label %88
60: ; preds = %83, %24
%61 = phi i64 [ 0, %24 ], [ %85, %83 ]
%62 = phi i32 [ 0, %24 ], [ %84, %83 ]
%63 = phi i64 [ 0, %24 ], [ %86, %83 ]
%64 = getelementptr inbounds i32, i32* %6, i64 %61
%65 = load i32, i32* %64
%66 = icmp eq i32 %65, %7
br i1 %66, label %67, label %72
67: ; preds = %60
%68 = sext i32 %62 to i64
%69 = getelementptr inbounds i32, i32* %15, i64 %68
%70 = trunc i64 %61 to i32
store i32 %70, i32* %69
%71 = add nsw i32 %62, 1
br label %72
72: ; preds = %60, %67
%73 = phi i32 [ %71, %67 ], [ %62, %60 ]
%74 = or i64 %61, 1
%75 = getelementptr inbounds i32, i32* %6, i64 %74
%76 = load i32, i32* %75
%77 = icmp eq i32 %76, %7
br i1 %77, label %78, label %83
78: ; preds = %72
%79 = sext i32 %73 to i64
%80 = getelementptr inbounds i32, i32* %15, i64 %79
%81 = trunc i64 %74 to i32
store i32 %81, i32* %80
%82 = add nsw i32 %73, 1
br label %83
83: ; preds = %78, %72
%84 = phi i32 [ %82, %78 ], [ %73, %72 ]
%85 = add nuw nsw i64 %61, 2
%86 = add i64 %63, 2
%87 = icmp eq i64 %86, %25
br i1 %87, label %26, label %60
88: ; preds = %43, %96
%89 = phi i64 [ 0, %43 ], [ %97, %96 ]
br i1 %44, label %90, label %96
90: ; preds = %88
%91 = getelementptr inbounds double**, double*** %11, i64 %89
br label %94
92: ; preds = %96, %40
%93 = tail call i32 @free(i32* %15)
ret void
94: ; preds = %101, %90
%95 = phi i64 [ 0, %90 ], [ %102, %101 ]
br label %99
96: ; preds = %101, %88
%97 = add nuw nsw i64 %89, 1
%98 = icmp eq i64 %97, %52
br i1 %98, label %92, label %88
99: ; preds = %94, %202
%100 = phi i64 [ %95, %94 ], [ %207, %202 ]
br i1 %45, label %104, label %108
101: ; preds = %202
%102 = add nuw nsw i64 %95, 1
%103 = icmp eq i64 %102, %53
br i1 %103, label %96, label %94
104: ; preds = %99, %130
%105 = phi i64 [ %132, %130 ], [ 0, %99 ]
%106 = phi i32 [ %131, %130 ], [ 0, %99 ]
br i1 %46, label %107, label %130
107: ; preds = %104
br i1 %57, label %111, label %134
108: ; preds = %130, %99
%109 = phi i32 [ 0, %99 ], [ %131, %130 ]
%110 = icmp eq i64 %100, %95
br i1 %110, label %170, label %179
111: ; preds = %134, %107
%112 = phi i32 [ undef, %107 ], [ %166, %134 ]
%113 = phi i64 [ 0, %107 ], [ %167, %134 ]
%114 = phi i32 [ %106, %107 ], [ %166, %134 ]
br i1 %59, label %130, label %115
115: ; preds = %111
%116 = getelementptr inbounds i32, i32* %15, i64 %113
%117 = load i32, i32* %116
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds i32****, i32***** %4, i64 %118
%120 = load i32****, i32***** %119
%121 = getelementptr inbounds i32***, i32**** %120, i64 %89
%122 = load i32***, i32**** %121
%123 = getelementptr inbounds i32**, i32*** %122, i64 %105
%124 = load i32**, i32*** %123
%125 = getelementptr inbounds i32*, i32** %124, i64 %95
%126 = load i32*, i32** %125
%127 = getelementptr inbounds i32, i32* %126, i64 %100
%128 = load i32, i32* %127
%129 = add nsw i32 %128, %114
br label %130
130: ; preds = %115, %111, %104
%131 = phi i32 [ %106, %104 ], [ %112, %111 ], [ %129, %115 ]
%132 = add nuw nsw i64 %105, 1
%133 = icmp eq i64 %132, %54
br i1 %133, label %108, label %104
134: ; preds = %107, %134
%135 = phi i64 [ %167, %134 ], [ 0, %107 ]
%136 = phi i32 [ %166, %134 ], [ %106, %107 ]
%137 = phi i64 [ %168, %134 ], [ 0, %107 ]
%138 = getelementptr inbounds i32, i32* %15, i64 %135
%139 = load i32, i32* %138
%140 = sext i32 %139 to i64
%141 = getelementptr inbounds i32****, i32***** %4, i64 %140
%142 = load i32****, i32***** %141
%143 = getelementptr inbounds i32***, i32**** %142, i64 %89
%144 = load i32***, i32**** %143
%145 = getelementptr inbounds i32**, i32*** %144, i64 %105
%146 = load i32**, i32*** %145
%147 = getelementptr inbounds i32*, i32** %146, i64 %95
%148 = load i32*, i32** %147
%149 = getelementptr inbounds i32, i32* %148, i64 %100
%150 = load i32, i32* %149
%151 = add nsw i32 %150, %136
%152 = or i64 %135, 1
%153 = getelementptr inbounds i32, i32* %15, i64 %152
%154 = load i32, i32* %153
%155 = sext i32 %154 to i64
%156 = getelementptr inbounds i32****, i32***** %4, i64 %155
%157 = load i32****, i32***** %156
%158 = getelementptr inbounds i32***, i32**** %157, i64 %89
%159 = load i32***, i32**** %158
%160 = getelementptr inbounds i32**, i32*** %159, i64 %105
%161 = load i32**, i32*** %160
%162 = getelementptr inbounds i32*, i32** %161, i64 %95
%163 = load i32*, i32** %162
%164 = getelementptr inbounds i32, i32* %163, i64 %100
%165 = load i32, i32* %164
%166 = add nsw i32 %165, %151
%167 = add nuw nsw i64 %135, 2
%168 = add i64 %137, 2
%169 = icmp eq i64 %168, %58
br i1 %169, label %111, label %134
170: ; preds = %108
%171 = load double, double* %10
%172 = sitofp i32 %109 to double
%173 = fadd double %171, %172
%174 = load double, double* %51
%175 = fadd double %174, %50
%176 = tail call double @rgamma(double %173, double %175)
%177 = load double**, double*** %91
%178 = getelementptr inbounds double*, double** %177, i64 %95
br label %202
179: ; preds = %108
%180 = load i32***, i32**** %48
%181 = getelementptr inbounds i32**, i32*** %180, i64 %89
%182 = load i32**, i32*** %181
%183 = getelementptr inbounds i32*, i32** %182, i64 %95
%184 = load i32*, i32** %183
%185 = getelementptr inbounds i32, i32* %184, i64 %100
%186 = load i32, i32* %185
%187 = icmp eq i32 %186, 1
%188 = select i1 %187, double* %9, double* %8
%189 = select i1 %187, double* %9, double* %8
%190 = getelementptr inbounds double, double* %189, i64 1
%191 = load double, double* %188
%192 = sitofp i32 %109 to double
%193 = fadd double %191, %192
%194 = load double, double* %190
%195 = fadd double %194, %50
%196 = tail call double @rgamma(double %193, double %195)
%197 = load double**, double*** %91
%198 = getelementptr inbounds double*, double** %197, i64 %95
%199 = load double*, double** %198
%200 = getelementptr inbounds double, double* %199, i64 %100
store double %196, double* %200
%201 = getelementptr inbounds double*, double** %197, i64 %100
br label %202
202: ; preds = %170, %179
%203 = phi double** [ %178, %170 ], [ %201, %179 ]
%204 = phi double [ %176, %170 ], [ %196, %179 ]
%205 = load double*, double** %203
%206 = getelementptr inbounds double, double* %205, i64 %95
store double %204, double* %206
%207 = add nuw nsw i64 %100, 1
%208 = icmp eq i64 %207, %53
br i1 %208, label %101, label %99
}