#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 maior_mod(int, double *);
double norma2_sem_overflow(int, double *);
double calcula_refletor(int n, double B[]) {
  double tau;
  double gama;
  double beta;
  int i;
  beta = maior_mod(n, B);
  if (beta == 0)
    return 0;
  for (i = 0; i < n; i++)
    B[i] /= beta;
  tau = norma2_sem_overflow(n, B);
  if (B[0] < 0)
    tau = -tau;
  B[0] += tau;
  gama = B[0] / tau;
  for (i = 1; i < n; i++) {
    B[i] /= B[0];
  }
  B[0] = -tau * beta;
  return gama;
}


x86 assembly (clang, -O0):
<calcula_refletor>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0xc(%rbp),%edi
mov    -0x18(%rbp),%rsi
call   1040 <maior_mod@plt>
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1165 <calcula_refletor+0x45>
jp     1165 <calcula_refletor+0x45>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1279 <calcula_refletor+0x159>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11a1 <calcula_refletor+0x81>
movsd  -0x30(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    116c <calcula_refletor+0x4c>
mov    -0xc(%rbp),%edi
mov    -0x18(%rbp),%rsi
call   1030 <norma2_sem_overflow@plt>
movsd  %xmm0,-0x20(%rbp)
mov    -0x18(%rbp),%rax
xorps  %xmm0,%xmm0
ucomisd (%rax),%xmm0
jbe    11e4 <calcula_refletor+0xc4>
movsd  -0x20(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
mov    -0x18(%rbp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
divsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1246 <calcula_refletor+0x126>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    120e <calcula_refletor+0xee>
movsd  -0x20(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<calcula_refletor>:
push   %rbp
push   %r14
push   %rbx
sub    $0x10,%rsp
mov    %rsi,%rbx
mov    %edi,%r14d
call   1040 <maior_mod@plt>
movapd %xmm0,%xmm3
xorpd  %xmm0,%xmm0
ucomisd %xmm0,%xmm3
jne    1147 <calcula_refletor+0x27>
jnp    12ff <calcula_refletor+0x1df>
mov    %r14d,%ebp
test   %r14d,%r14d
jle    11e7 <calcula_refletor+0xc7>
cmp    $0x1,%r14d
jne    115d <calcula_refletor+0x3d>
xor    %eax,%eax
jmp    11d0 <calcula_refletor+0xb0>
mov    %ebp,%eax
and    $0xfffffffe,%eax
movapd %xmm3,%xmm0
unpcklpd %xmm3,%xmm0
lea    -0x2(%rax),%rdx
mov    %rdx,%rcx
shr    %rcx
add    $0x1,%rcx
test   %rdx,%rdx
je     1308 <calcula_refletor+0x1e8>
mov    %rcx,%rsi
and    $0xfffffffffffffffe,%rsi
xor    %edx,%edx
nopw   0x0(%rax,%rax,1)
movupd (%rbx,%rdx,8),%xmm1
movupd 0x10(%rbx,%rdx,8),%xmm2
divpd  %xmm0,%xmm1
movupd %xmm1,(%rbx,%rdx,8)
divpd  %xmm0,%xmm2
movupd %xmm2,0x10(%rbx,%rdx,8)
add    $0x4,%rdx
add    $0xfffffffffffffffe,%rsi
jne    1190 <calcula_refletor+0x70>
test   $0x1,%cl
je     11cb <calcula_refletor+0xab>
movupd (%rbx,%rdx,8),%xmm1
divpd  %xmm0,%xmm1
movupd %xmm1,(%rbx,%rdx,8)
cmp    %rbp,%rax
je     11e7 <calcula_refletor+0xc7>
movsd  (%rbx,%rax,8),%xmm0
divsd  %xmm3,%xmm0
movsd  %xmm0,(%rbx,%rax,8)
add    $0x1,%rax
cmp    %rax,%rbp
jne    11d0 <calcula_refletor+0xb0>
mov    %r14d,%edi
mov    %rbx,%rsi
movapd %xmm3,(%rsp)
call   1030 <norma2_sem_overflow@plt>
movapd (%rsp),%xmm5
movapd %xmm0,%xmm1
movsd  (%rbx),%xmm0
movapd 0xdf4(%rip),%xmm3
xorpd  %xmm1,%xmm3
xorpd  %xmm4,%xmm4
movapd %xmm0,%xmm2
cmpltsd %xmm4,%xmm2
andpd  %xmm2,%xmm3
andnpd %xmm1,%xmm2
orpd   %xmm3,%xmm2
addsd  %xmm2,%xmm0
cmp    $0x2,%r14d
jl     12e7 <calcula_refletor+0x1c7>
lea    -0x1(%rbp),%rax
mov    $0x1,%ecx
cmp    $0x2,%rax
jb     12d0 <calcula_refletor+0x1b0>
mov    %rax,%rcx
and    $0xfffffffffffffffe,%rcx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x2(%rcx),%rsi
mov    %rsi,%rdx
shr    %rdx
add    $0x1,%rdx
test   %rsi,%rsi
je     1318 <calcula_refletor+0x1f8>
mov    %rdx,%rdi
and    $0xfffffffffffffffe,%rdi
mov    $0x1,%esi
nopl   0x0(%rax)
movupd (%rbx,%rsi,8),%xmm3
movupd 0x10(%rbx,%rsi,8),%xmm4
divpd  %xmm1,%xmm3
movupd %xmm3,(%rbx,%rsi,8)
divpd  %xmm1,%xmm4
movupd %xmm4,0x10(%rbx,%rsi,8)
add    $0x4,%rsi
add    $0xfffffffffffffffe,%rdi
jne    1280 <calcula_refletor+0x160>
test   $0x1,%dl
je     12bb <calcula_refletor+0x19b>
movupd (%rbx,%rsi,8),%xmm3
divpd  %xmm1,%xmm3
movupd %xmm3,(%rbx,%rsi,8)
cmp    %rcx,%rax
je     12e7 <calcula_refletor+0x1c7>
or     $0x1,%rax
mov    %rax,%rcx
nopw   0x0(%rax,%rax,1)
movsd  (%rbx,%rcx,8),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rbx,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rbp
jne    12d0 <calcula_refletor+0x1b0>
divsd  %xmm2,%xmm0
movapd 0xd0d(%rip),%xmm1
xorpd  %xmm2,%xmm1
mulsd  %xmm1,%xmm5
movsd  %xmm5,(%rbx)
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret
xor    %edx,%edx
test   $0x1,%cl
jne    11bd <calcula_refletor+0x9d>
jmp    11cb <calcula_refletor+0xab>
mov    $0x1,%esi
test   $0x1,%dl
jne    12ad <calcula_refletor+0x18d>
jmp    12bb <calcula_refletor+0x19b>

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

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