#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*/ error1(char *);
double calc_chujitudo(double lambda[], int n_shuku, int max_dim) {
  double sum = 0.0;
  double wa = 0.0;
  int i;
  if (max_dim > n_shuku)
    error1("Irregal max_dim in calc_chujitudo()");
  for (i = 0; i < n_shuku; i++)
    wa += lambda[i];
  for (i = 0; i < max_dim; i++)
    sum += lambda[i];
  return (double)(sum / wa);
}


x86 assembly (clang, -O0):
<calc_chujitudo>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jle    114a <calc_chujitudo+0x3a>
lea    0xebb(%rip),%rdi
call   1030 <error1@plt>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1182 <calc_chujitudo+0x72>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1151 <calc_chujitudo+0x41>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11ba <calc_chujitudo+0xaa>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1189 <calc_chujitudo+0x79>
movsd  -0x18(%rbp),%xmm0
divsd  -0x20(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<calc_chujitudo>:
push   %rbp
push   %r14
push   %rbx
mov    %edx,%r14d
mov    %esi,%ebp
mov    %rdi,%rbx
cmp    %esi,%edx
jle    112c <calc_chujitudo+0x1c>
lea    0xed9(%rip),%rdi
call   1030 <error1@plt>
xorpd  %xmm0,%xmm0
xorpd  %xmm1,%xmm1
test   %ebp,%ebp
jle    11be <calc_chujitudo+0xae>
mov    %ebp,%ecx
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x7,%eax
cmp    $0x7,%rdx
jae    1155 <calc_chujitudo+0x45>
xorpd  %xmm1,%xmm1
xor    %edx,%edx
jmp    1198 <calc_chujitudo+0x88>
and    $0xfffffff8,%ecx
xorpd  %xmm1,%xmm1
xor    %edx,%edx
xchg   %ax,%ax
addsd  (%rbx,%rdx,8),%xmm1
addsd  0x8(%rbx,%rdx,8),%xmm1
addsd  0x10(%rbx,%rdx,8),%xmm1
addsd  0x18(%rbx,%rdx,8),%xmm1
addsd  0x20(%rbx,%rdx,8),%xmm1
addsd  0x28(%rbx,%rdx,8),%xmm1
addsd  0x30(%rbx,%rdx,8),%xmm1
addsd  0x38(%rbx,%rdx,8),%xmm1
add    $0x8,%rdx
cmp    %rdx,%rcx
jne    1160 <calc_chujitudo+0x50>
test   %rax,%rax
je     11be <calc_chujitudo+0xae>
lea    (%rbx,%rdx,8),%rcx
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  (%rcx,%rdx,8),%xmm1
add    $0x1,%rdx
cmp    %rdx,%rax
jne    11b0 <calc_chujitudo+0xa0>
test   %r14d,%r14d
jle    124e <calc_chujitudo+0x13e>
mov    %r14d,%ecx
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x7,%eax
cmp    $0x7,%rdx
jae    11e1 <calc_chujitudo+0xd1>
xorpd  %xmm0,%xmm0
xor    %edx,%edx
jmp    1228 <calc_chujitudo+0x118>
and    $0xfffffff8,%ecx
xorpd  %xmm0,%xmm0
xor    %edx,%edx
nopw   0x0(%rax,%rax,1)
addsd  (%rbx,%rdx,8),%xmm0
addsd  0x8(%rbx,%rdx,8),%xmm0
addsd  0x10(%rbx,%rdx,8),%xmm0
addsd  0x18(%rbx,%rdx,8),%xmm0
addsd  0x20(%rbx,%rdx,8),%xmm0
addsd  0x28(%rbx,%rdx,8),%xmm0
addsd  0x30(%rbx,%rdx,8),%xmm0
addsd  0x38(%rbx,%rdx,8),%xmm0
add    $0x8,%rdx
cmp    %rdx,%rcx
jne    11f0 <calc_chujitudo+0xe0>
test   %rax,%rax
je     124e <calc_chujitudo+0x13e>
lea    (%rbx,%rdx,8),%rcx
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  (%rcx,%rdx,8),%xmm0
add    $0x1,%rdx
cmp    %rdx,%rax
jne    1240 <calc_chujitudo+0x130>
divsd  %xmm1,%xmm0
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [36 x i8] c"Irregal max_dim in calc_chujitudo()\00"
define double @calc_chujitudo(double* %0, i32 %1, i32 %2) {
%4 = alloca double*
%5 = alloca i32
%6 = alloca i32
%7 = alloca double
%8 = alloca double
%9 = alloca i32
store double* %0, double** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store double 0.000000e+00, double* %7
store double 0.000000e+00, double* %8
%10 = load i32, i32* %6
%11 = load i32, i32* %5
%12 = icmp sgt i32 %10, %11
br i1 %12, label %13, label %15
13: ; preds = %3
%14 = call i32 @error1(i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str, i64 0, i64 0))
br label %15
15: ; preds = %13, %3
store i32 0, i32* %9
br label %16
16: ; preds = %28, %15
%17 = load i32, i32* %9
%18 = load i32, i32* %5
%19 = icmp slt i32 %17, %18
br i1 %19, label %20, label %31
20: ; preds = %16
%21 = load double*, double** %4
%22 = load i32, i32* %9
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds double, double* %21, i64 %23
%25 = load double, double* %24
%26 = load double, double* %8
%27 = fadd double %26, %25
store double %27, double* %8
br label %28
28: ; preds = %20
%29 = load i32, i32* %9
%30 = add nsw i32 %29, 1
store i32 %30, i32* %9
br label %16
31: ; preds = %16
store i32 0, i32* %9
br label %32
32: ; preds = %44, %31
%33 = load i32, i32* %9
%34 = load i32, i32* %6
%35 = icmp slt i32 %33, %34
br i1 %35, label %36, label %47
36: ; preds = %32
%37 = load double*, double** %4
%38 = load i32, i32* %9
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double, double* %37, i64 %39
%41 = load double, double* %40
%42 = load double, double* %7
%43 = fadd double %42, %41
store double %43, double* %7
br label %44
44: ; preds = %36
%45 = load i32, i32* %9
%46 = add nsw i32 %45, 1
store i32 %46, i32* %9
br label %32
47: ; preds = %32
%48 = load double, double* %7
%49 = load double, double* %8
%50 = fdiv double %48, %49
ret double %50
}

LLVM IR (-O2):
@.str = [36 x i8] c"Irregal max_dim in calc_chujitudo()\00"
define double @calc_chujitudo(double* nocapture %0, i32 %1, i32 %2) {
%4 = icmp sgt i32 %2, %1
br i1 %4, label %5, label %7
5: ; preds = %3
%6 = tail call i32 @error1(i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str, i64 0, i64 0))
br label %7
7: ; preds = %5, %3
%8 = icmp sgt i32 %1, 0
br i1 %8, label %9, label %31
9: ; preds = %7
%10 = zext i32 %1 to i64
%11 = add nsw i64 %10, -1
%12 = and i64 %10, 7
%13 = icmp ult i64 %11, 7
br i1 %13, label %16, label %14
14: ; preds = %9
%15 = and i64 %10, 4294967288
br label %41
16: ; preds = %41, %9
%17 = phi double [ undef, %9 ], [ %75, %41 ]
%18 = phi i64 [ 0, %9 ], [ %76, %41 ]
%19 = phi double [ 0.000000e+00, %9 ], [ %75, %41 ]
%20 = icmp eq i64 %12, 0
br i1 %20, label %31, label %21
21: ; preds = %16, %21
%22 = phi i64 [ %28, %21 ], [ %18, %16 ]
%23 = phi double [ %27, %21 ], [ %19, %16 ]
%24 = phi i64 [ %29, %21 ], [ 0, %16 ]
%25 = getelementptr inbounds double, double* %0, i64 %22
%26 = load double, double* %25
%27 = fadd double %23, %26
%28 = add nuw nsw i64 %22, 1
%29 = add i64 %24, 1
%30 = icmp eq i64 %29, %12
br i1 %30, label %31, label %21
31: ; preds = %16, %21, %7
%32 = phi double [ 0.000000e+00, %7 ], [ %17, %16 ], [ %27, %21 ]
%33 = icmp sgt i32 %2, 0
br i1 %33, label %34, label %132
34: ; preds = %31
%35 = zext i32 %2 to i64
%36 = add nsw i64 %35, -1
%37 = and i64 %35, 7
%38 = icmp ult i64 %36, 7
br i1 %38, label %117, label %39
39: ; preds = %34
%40 = and i64 %35, 4294967288
br label %79
41: ; preds = %41, %14
%42 = phi i64 [ 0, %14 ], [ %76, %41 ]
%43 = phi double [ 0.000000e+00, %14 ], [ %75, %41 ]
%44 = phi i64 [ 0, %14 ], [ %77, %41 ]
%45 = getelementptr inbounds double, double* %0, i64 %42
%46 = load double, double* %45
%47 = fadd double %43, %46
%48 = or i64 %42, 1
%49 = getelementptr inbounds double, double* %0, i64 %48
%50 = load double, double* %49
%51 = fadd double %47, %50
%52 = or i64 %42, 2
%53 = getelementptr inbounds double, double* %0, i64 %52
%54 = load double, double* %53
%55 = fadd double %51, %54
%56 = or i64 %42, 3
%57 = getelementptr inbounds double, double* %0, i64 %56
%58 = load double, double* %57
%59 = fadd double %55, %58
%60 = or i64 %42, 4
%61 = getelementptr inbounds double, double* %0, i64 %60
%62 = load double, double* %61
%63 = fadd double %59, %62
%64 = or i64 %42, 5
%65 = getelementptr inbounds double, double* %0, i64 %64
%66 = load double, double* %65
%67 = fadd double %63, %66
%68 = or i64 %42, 6
%69 = getelementptr inbounds double, double* %0, i64 %68
%70 = load double, double* %69
%71 = fadd double %67, %70
%72 = or i64 %42, 7
%73 = getelementptr inbounds double, double* %0, i64 %72
%74 = load double, double* %73
%75 = fadd double %71, %74
%76 = add nuw nsw i64 %42, 8
%77 = add i64 %44, 8
%78 = icmp eq i64 %77, %15
br i1 %78, label %16, label %41
79: ; preds = %79, %39
%80 = phi i64 [ 0, %39 ], [ %114, %79 ]
%81 = phi double [ 0.000000e+00, %39 ], [ %113, %79 ]
%82 = phi i64 [ 0, %39 ], [ %115, %79 ]
%83 = getelementptr inbounds double, double* %0, i64 %80
%84 = load double, double* %83
%85 = fadd double %81, %84
%86 = or i64 %80, 1
%87 = getelementptr inbounds double, double* %0, i64 %86
%88 = load double, double* %87
%89 = fadd double %85, %88
%90 = or i64 %80, 2
%91 = getelementptr inbounds double, double* %0, i64 %90
%92 = load double, double* %91
%93 = fadd double %89, %92
%94 = or i64 %80, 3
%95 = getelementptr inbounds double, double* %0, i64 %94
%96 = load double, double* %95
%97 = fadd double %93, %96
%98 = or i64 %80, 4
%99 = getelementptr inbounds double, double* %0, i64 %98
%100 = load double, double* %99
%101 = fadd double %97, %100
%102 = or i64 %80, 5
%103 = getelementptr inbounds double, double* %0, i64 %102
%104 = load double, double* %103
%105 = fadd double %101, %104
%106 = or i64 %80, 6
%107 = getelementptr inbounds double, double* %0, i64 %106
%108 = load double, double* %107
%109 = fadd double %105, %108
%110 = or i64 %80, 7
%111 = getelementptr inbounds double, double* %0, i64 %110
%112 = load double, double* %111
%113 = fadd double %109, %112
%114 = add nuw nsw i64 %80, 8
%115 = add i64 %82, 8
%116 = icmp eq i64 %115, %40
br i1 %116, label %117, label %79
117: ; preds = %79, %34
%118 = phi double [ undef, %34 ], [ %113, %79 ]
%119 = phi i64 [ 0, %34 ], [ %114, %79 ]
%120 = phi double [ 0.000000e+00, %34 ], [ %113, %79 ]
%121 = icmp eq i64 %37, 0
br i1 %121, label %132, label %122
122: ; preds = %117, %122
%123 = phi i64 [ %129, %122 ], [ %119, %117 ]
%124 = phi double [ %128, %122 ], [ %120, %117 ]
%125 = phi i64 [ %130, %122 ], [ 0, %117 ]
%126 = getelementptr inbounds double, double* %0, i64 %123
%127 = load double, double* %126
%128 = fadd double %124, %127
%129 = add nuw nsw i64 %123, 1
%130 = add i64 %125, 1
%131 = icmp eq i64 %130, %37
br i1 %131, label %132, label %122
132: ; preds = %117, %122, %31
%133 = phi double [ 0.000000e+00, %31 ], [ %118, %117 ], [ %128, %122 ]
%134 = fdiv double %133, %32
ret double %134
}