#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 */
scalar_t__ Gammln(double);
float ln_pnbar(float *cvec, int n, float *alpha) {
  float lnp;
  float sum1, sum2, sum3;
  int x;
  sum1 = sum2 = sum3 = lnp = 0.0;
  for (x = 0; x < n; x++) {
    sum1 += cvec[x] + alpha[x];
    sum2 += alpha[x];
    sum3 += cvec[x];
    lnp += (float)Gammln((double)(alpha[x] + cvec[x]));
    lnp -= (float)Gammln((double)(cvec[x] + 1.));
    lnp -= (float)Gammln((double)alpha[x]);
  }
  lnp -= (float)Gammln((double)sum1);
  lnp += (float)Gammln((double)sum2);
  lnp += (float)Gammln((double)(sum3 + 1.));
  return lnp;
}


x86 assembly (clang, -O0):
<ln_pnbar>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x1c(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x24(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x20(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1246 <ln_pnbar+0x136>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
addss  (%rax,%rcx,4),%xmm0
addss  -0x20(%rbp),%xmm0
movss  %xmm0,-0x20(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
addss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x24(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
addss  -0x28(%rbp),%xmm0
movss  %xmm0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
addss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm0
addss  -0x1c(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xe0d(%rip),%xmm1
addsd  %xmm1,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm1
movss  -0x1c(%rbp),%xmm0
subss  %xmm1,%xmm0
movss  %xmm0,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm1
movss  -0x1c(%rbp),%xmm0
subss  %xmm1,%xmm0
movss  %xmm0,-0x1c(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    114a <ln_pnbar+0x3a>
movss  -0x20(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm1
movss  -0x1c(%rbp),%xmm0
subss  %xmm1,%xmm0
movss  %xmm0,-0x1c(%rbp)
movss  -0x24(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm0
addss  -0x1c(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
movss  -0x28(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xd6b(%rip),%xmm1
addsd  %xmm1,%xmm0
call   1030 <Gammln@plt>
cvtsi2ss %rax,%xmm0
addss  -0x1c(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
movss  -0x1c(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ln_pnbar>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x28,%rsp
test   %esi,%esi
jle    120d <ln_pnbar+0xfd>
mov    %rdx,%r14
mov    %rdi,%r12
mov    %esi,%r15d
xorps  %xmm4,%xmm4
xorps  %xmm3,%xmm3
xor    %ebx,%ebx
xorps  %xmm0,%xmm0
movss  %xmm0,0x4(%rsp)
nopl   (%rax)
movss  (%r12,%rbx,4),%xmm1
movss  (%r14,%rbx,4),%xmm2
addss  %xmm1,%xmm3
movss  %xmm3,0x8(%rsp)
addss  %xmm2,%xmm1
xorps  %xmm0,%xmm0
cvtss2sd %xmm1,%xmm0
unpcklps %xmm2,%xmm1
addps  %xmm1,%xmm4
movaps %xmm4,0x10(%rsp)
call   1030 <Gammln@plt>
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
addss  0x4(%rsp),%xmm0
movss  %xmm0,0x4(%rsp)
movss  (%r12,%rbx,4),%xmm0
cvtss2sd %xmm0,%xmm0
addsd  0xe69(%rip),%xmm0
call   1030 <Gammln@plt>
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
movss  0x4(%rsp),%xmm1
subss  %xmm0,%xmm1
movss  %xmm1,0x4(%rsp)
movss  (%r14,%rbx,4),%xmm0
cvtss2sd %xmm0,%xmm0
call   1030 <Gammln@plt>
movaps 0x10(%rsp),%xmm4
movss  0x8(%rsp),%xmm3
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
movss  0x4(%rsp),%xmm1
subss  %xmm0,%xmm1
movss  %xmm1,0x4(%rsp)
add    $0x1,%rbx
cmp    %rbx,%r15
jne    1140 <ln_pnbar+0x30>
cvtps2pd %xmm4,%xmm1
xorps  %xmm0,%xmm0
cvtss2sd %xmm3,%xmm0
addsd  0xdfb(%rip),%xmm0
movsd  %xmm0,0x8(%rsp)
jmp    1228 <ln_pnbar+0x118>
xorps  %xmm1,%xmm1
movsd  0xde8(%rip),%xmm0
movsd  %xmm0,0x8(%rsp)
xorpd  %xmm0,%xmm0
movss  %xmm0,0x4(%rsp)
movaps %xmm1,0x10(%rsp)
movaps %xmm1,%xmm0
call   1030 <Gammln@plt>
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
movss  0x4(%rsp),%xmm1
subss  %xmm0,%xmm1
movss  %xmm1,0x4(%rsp)
movaps 0x10(%rsp),%xmm0
movhlps %xmm0,%xmm0
call   1030 <Gammln@plt>
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
addss  0x4(%rsp),%xmm0
movss  %xmm0,0x4(%rsp)
movsd  0x8(%rsp),%xmm0
call   1030 <Gammln@plt>
xorps  %xmm0,%xmm0
cvtsi2ss %rax,%xmm0
addss  0x4(%rsp),%xmm0
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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