#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 log_dpoiss(int, double);
double log_dsty_Y(int D, int R, int p, int ****Y_t_n, double ***Lambda) {
  double s = 0, tmp;
  for (int d = 0; d < D; d++) {
    for (int i = 0; i < p; i++) {
      for (int j = i; j < p; j++) {
        for (int r = 0; r < R; r++) {
          tmp = log_dpoiss(Y_t_n[d][r][i][j], Lambda[d][i][j]);
          s = s + tmp;
        }
      }
    }
  }
  return (s);
}


x86 assembly (clang, -O0):
<log_dsty_Y>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    121c <log_dsty_Y+0x10c>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1209 <log_dsty_Y+0xf9>
mov    -0x38(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11f6 <log_dsty_Y+0xe6>
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11e3 <log_dsty_Y+0xd3>
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
call   1030 <log_dpoiss@plt>
movsd  %xmm0,-0x30(%rbp)
movsd  -0x28(%rbp),%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1170 <log_dsty_Y+0x60>
jmp    11e8 <log_dsty_Y+0xd8>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    115d <log_dsty_Y+0x4d>
jmp    11fb <log_dsty_Y+0xeb>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    114b <log_dsty_Y+0x3b>
jmp    120e <log_dsty_Y+0xfe>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1138 <log_dsty_Y+0x28>
movsd  -0x28(%rbp),%xmm0
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<log_dsty_Y>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
test   %edi,%edi
jle    11eb <log_dsty_Y+0xdb>
mov    %r8,%rbx
mov    %rcx,%r12
mov    %edi,%eax
mov    %rax,0x18(%rsp)
mov    %edx,%eax
mov    %rax,0x10(%rsp)
mov    %esi,%eax
xorps  %xmm0,%xmm0
xor    %ebp,%ebp
mov    %edx,0x8(%rsp)
mov    %esi,0xc(%rsp)
mov    %rax,0x20(%rsp)
jmp    1163 <log_dsty_Y+0x53>
add    $0x1,%rbp
cmp    0x18(%rsp),%rbp
mov    0x8(%rsp),%edx
je     11ee <log_dsty_Y+0xde>
test   %edx,%edx
jle    1150 <log_dsty_Y+0x40>
xor    %r13d,%r13d
jmp    117b <log_dsty_Y+0x6b>
nopl   0x0(%rax)
add    $0x1,%r13
cmp    0x10(%rsp),%r13
je     1150 <log_dsty_Y+0x40>
mov    %r13,%r15
jmp    118f <log_dsty_Y+0x7f>
add    $0x1,%r15
cmp    0x10(%rsp),%r15
mov    0xc(%rsp),%esi
je     1170 <log_dsty_Y+0x60>
test   %esi,%esi
jle    1180 <log_dsty_Y+0x70>
xor    %r14d,%r14d
cs nopw 0x0(%rax,%rax,1)
movsd  %xmm0,(%rsp)
mov    (%r12,%rbp,8),%rax
mov    (%rax,%r14,8),%rax
mov    (%rax,%r13,8),%rax
mov    (%rax,%r15,4),%edi
mov    (%rbx,%rbp,8),%rax
mov    (%rax,%r13,8),%rax
movsd  (%rax,%r15,8),%xmm0
call   1030 <log_dpoiss@plt>
mov    0x20(%rsp),%rax
movsd  (%rsp),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsp)
movsd  (%rsp),%xmm0
add    $0x1,%r14
cmp    %r14,%rax
jne    11a0 <log_dsty_Y+0x90>
jmp    1180 <log_dsty_Y+0x70>
xorps  %xmm0,%xmm0
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @log_dsty_Y(i32 %0, i32 %1, i32 %2, i32**** %3, double*** %4) {
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32****
%10 = alloca double***
%11 = alloca double
%12 = alloca double
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
store i32 %0, i32* %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store i32**** %3, i32***** %9
store double*** %4, double**** %10
store double 0.000000e+00, double* %11
store i32 0, i32* %13
br label %17
17: ; preds = %84, %5
%18 = load i32, i32* %13
%19 = load i32, i32* %6
%20 = icmp slt i32 %18, %19
br i1 %20, label %21, label %87
21: ; preds = %17
store i32 0, i32* %14
br label %22
22: ; preds = %80, %21
%23 = load i32, i32* %14
%24 = load i32, i32* %8
%25 = icmp slt i32 %23, %24
br i1 %25, label %26, label %83
26: ; preds = %22
%27 = load i32, i32* %14
store i32 %27, i32* %15
br label %28
28: ; preds = %76, %26
%29 = load i32, i32* %15
%30 = load i32, i32* %8
%31 = icmp slt i32 %29, %30
br i1 %31, label %32, label %79
32: ; preds = %28
store i32 0, i32* %16
br label %33
33: ; preds = %72, %32
%34 = load i32, i32* %16
%35 = load i32, i32* %7
%36 = icmp slt i32 %34, %35
br i1 %36, label %37, label %75
37: ; preds = %33
%38 = load i32****, i32***** %9
%39 = load i32, i32* %13
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i32***, i32**** %38, i64 %40
%42 = load i32***, i32**** %41
%43 = load i32, i32* %16
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds i32**, i32*** %42, i64 %44
%46 = load i32**, i32*** %45
%47 = load i32, i32* %14
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds i32*, i32** %46, i64 %48
%50 = load i32*, i32** %49
%51 = load i32, i32* %15
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds i32, i32* %50, i64 %52
%54 = load i32, i32* %53
%55 = load double***, double**** %10
%56 = load i32, i32* %13
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds double**, double*** %55, i64 %57
%59 = load double**, double*** %58
%60 = load i32, i32* %14
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double*, double** %59, i64 %61
%63 = load double*, double** %62
%64 = load i32, i32* %15
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds double, double* %63, i64 %65
%67 = load double, double* %66
%68 = call double @log_dpoiss(i32 %54, double %67)
store double %68, double* %12
%69 = load double, double* %11
%70 = load double, double* %12
%71 = fadd double %69, %70
store double %71, double* %11
br label %72
72: ; preds = %37
%73 = load i32, i32* %16
%74 = add nsw i32 %73, 1
store i32 %74, i32* %16
br label %33
75: ; preds = %33
br label %76
76: ; preds = %75
%77 = load i32, i32* %15
%78 = add nsw i32 %77, 1
store i32 %78, i32* %15
br label %28
79: ; preds = %28
br label %80
80: ; preds = %79
%81 = load i32, i32* %14
%82 = add nsw i32 %81, 1
store i32 %82, i32* %14
br label %22
83: ; preds = %22
br label %84
84: ; preds = %83
%85 = load i32, i32* %13
%86 = add nsw i32 %85, 1
store i32 %86, i32* %13
br label %17
87: ; preds = %17
%88 = load double, double* %11
ret double %88
}

LLVM IR (-O2):
define double @log_dsty_Y(i32 %0, i32 %1, i32 %2, i32**** nocapture %3, double*** nocapture %4) {
%6 = icmp sgt i32 %0, 0
br i1 %6, label %7, label %19
7: ; preds = %5
%8 = icmp sgt i32 %2, 0
%9 = icmp sgt i32 %1, 0
%10 = zext i32 %0 to i64
%11 = zext i32 %2 to i64
%12 = zext i32 %1 to i64
br label %13
13: ; preds = %7, %24
%14 = phi i64 [ 0, %7 ], [ %26, %24 ]
%15 = phi double [ 0.000000e+00, %7 ], [ %25, %24 ]
br i1 %8, label %16, label %24
16: ; preds = %13
%17 = getelementptr inbounds i32***, i32**** %3, i64 %14
%18 = getelementptr inbounds double**, double*** %4, i64 %14
br label %21
19: ; preds = %24, %5
%20 = phi double [ 0.000000e+00, %5 ], [ %25, %24 ]
ret double %20
21: ; preds = %31, %16
%22 = phi i64 [ 0, %16 ], [ %32, %31 ]
%23 = phi double [ %15, %16 ], [ %35, %31 ]
br label %28
24: ; preds = %31, %13
%25 = phi double [ %15, %13 ], [ %35, %31 ]
%26 = add nuw nsw i64 %14, 1
%27 = icmp eq i64 %26, %10
br i1 %27, label %19, label %13
28: ; preds = %21, %34
%29 = phi i64 [ %22, %21 ], [ %36, %34 ]
%30 = phi double [ %23, %21 ], [ %35, %34 ]
br i1 %9, label %38, label %34
31: ; preds = %34
%32 = add nuw nsw i64 %22, 1
%33 = icmp eq i64 %32, %11
br i1 %33, label %24, label %21
34: ; preds = %38, %28
%35 = phi double [ %30, %28 ], [ %54, %38 ]
%36 = add nuw nsw i64 %29, 1
%37 = icmp eq i64 %36, %11
br i1 %37, label %31, label %28
38: ; preds = %28, %38
%39 = phi i64 [ %55, %38 ], [ 0, %28 ]
%40 = phi double [ %54, %38 ], [ %30, %28 ]
%41 = load i32***, i32**** %17
%42 = getelementptr inbounds i32**, i32*** %41, i64 %39
%43 = load i32**, i32*** %42
%44 = getelementptr inbounds i32*, i32** %43, i64 %22
%45 = load i32*, i32** %44
%46 = getelementptr inbounds i32, i32* %45, i64 %29
%47 = load i32, i32* %46
%48 = load double**, double*** %18
%49 = getelementptr inbounds double*, double** %48, i64 %22
%50 = load double*, double** %49
%51 = getelementptr inbounds double, double* %50, i64 %29
%52 = load double, double* %51
%53 = tail call double @log_dpoiss(i32 %47, double %52)
%54 = fadd double %40, %53
%55 = add nuw nsw i64 %39, 1
%56 = icmp eq i64 %55, %12
br i1 %56, label %34, label %38
}