#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 fabs(double);
int /*<<< orphan*/ fprintf(int /*<<< orphan*/, char *);
int /*<<< orphan*/ stderr;
void gausei(double a[], int l, int m, int iter, double eps, double x[]) {
  int i, j, k;
  double ay, def, *p, *q, *r, sum, w, y;
  if (l < m || m < 2 || iter < 1 || eps <= 0.) {
    fprintf(stderr, "Error : Illegal parameter in gausei()\n");
    return;
  }
  for (i = 0, p = x; i < m; i++)
    *p++ = 0.;
  k = 1;
  do {
    def = 0.;
    for (i = 0, p = x; i < m; i++) {
      w = *(a + i * l + i);
      sum = 0.;
      for (j = 0, q = x, r = a + i * l; j < m; j++, r++, q++)
        if (i != j)
          sum += *r * *q;
      y = (*(a + i * l + m) - sum) / w;
      ay = fabs(y - *p);
      if (ay > def)
        def = ay;
      *p++ = y;
    }
    if (def <= eps)
      return;
  } while (k++ < iter);
  fprintf(stderr, "Error : No convergence in gausei()\n");
  return;
}


x86 assembly (clang, -O0):
<gausei>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x10(%rbp),%eax
jl     115f <gausei+0x4f>
cmpl   $0x2,-0x10(%rbp)
jl     115f <gausei+0x4f>
cmpl   $0x1,-0x14(%rbp)
jl     115f <gausei+0x4f>
xorps  %xmm0,%xmm0
ucomisd -0x20(%rbp),%xmm0
jb     1179 <gausei+0x69>
mov    0x2e7a(%rip),%rax
mov    (%rax),%edi
lea    0xea1(%rip),%rsi
call   1030 <fprintf@plt>
jmp    136b <gausei+0x25b>
movl   $0x0,-0x2c(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11b8 <gausei+0xa8>
mov    -0x50(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x50(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1188 <gausei+0x78>
movl   $0x1,-0x34(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1324 <gausei+0x214>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0xc(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x70(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x68(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0xc(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x60(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    129a <gausei+0x18a>
mov    -0x2c(%rbp),%eax
cmp    -0x30(%rbp),%eax
je     126f <gausei+0x15f>
mov    -0x60(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x58(%rbp),%rax
movsd  (%rax),%xmm2
movsd  -0x68(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    1274 <gausei+0x164>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x60(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x60(%rbp)
mov    -0x58(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x58(%rbp)
jmp    1235 <gausei+0x125>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0xc(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x68(%rbp),%xmm0
divsd  -0x70(%rbp),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
mov    -0x50(%rbp),%rax
subsd  (%rax),%xmm0
movaps 0xd25(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    12fe <gausei+0x1ee>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x78(%rbp),%xmm0
mov    -0x50(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x50(%rbp)
movsd  %xmm0,(%rax)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11d6 <gausei+0xc6>
movsd  -0x48(%rbp),%xmm1
movsd  -0x20(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     133d <gausei+0x22d>
jmp    136b <gausei+0x25b>
jmp    1342 <gausei+0x232>
mov    -0x34(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x34(%rbp)
cmp    -0x14(%rbp),%eax
jl     11bf <gausei+0xaf>
mov    0x2c83(%rip),%rax
mov    (%rax),%edi
lea    0xcd1(%rip),%rsi
call   1030 <fprintf@plt>
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<gausei>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %ecx,0xc(%rsp)
mov    %esi,%r12d
mov    %rdi,0x10(%rsp)
lea    0xecf(%rip),%rsi
cmp    %edx,%r12d
jl     12ef <gausei+0x1cf>
mov    %edx,%r13d
cmp    $0x2,%edx
jl     12ef <gausei+0x1cf>
cmpl   $0x0,0xc(%rsp)
jle    12ef <gausei+0x1cf>
xorpd  %xmm1,%xmm1
ucomisd %xmm0,%xmm1
jae    12ef <gausei+0x1cf>
mov    %r8,%rbp
mov    %r13d,%r14d
lea    0x0(,%r14,8),%rdx
mov    %r8,%rdi
xor    %esi,%esi
movsd  %xmm0,0x18(%rsp)
call   1030 <memset@plt>
movsd  0x18(%rsp),%xmm4
movslq %r12d,%r9
mov    %r13d,%ecx
and    $0xfffffffe,%ecx
lea    0x0(,%r9,8),%r10
mov    $0x1,%eax
movapd 0xe4f(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %rax,0x20(%rsp)
xorpd  %xmm2,%xmm2
mov    0x10(%rsp),%rdi
xor    %eax,%eax
xor    %edx,%edx
mov    %rbp,%r12
jmp    1220 <gausei+0x100>
nopw   0x0(%rax,%rax,1)
movsd  (%r15,%r14,8),%xmm3
subsd  %xmm2,%xmm3
divsd  (%r15,%rdx,8),%xmm3
movapd %xmm3,%xmm2
subsd  (%r12),%xmm2
andpd  %xmm0,%xmm2
maxsd  %xmm1,%xmm2
movsd  %xmm3,(%r12)
add    $0x8,%r12
add    $0x1,%rdx
add    $0x8,%rax
add    %r10,%rdi
cmp    %r14,%rdx
je     12d0 <gausei+0x1b0>
movapd %xmm2,%xmm1
mov    %rdx,%rsi
imul   %r9,%rsi
xor    %r8d,%r8d
mov    0x10(%rsp),%rbx
lea    (%rbx,%rsi,8),%r15
xorpd  %xmm2,%xmm2
mov    %r15,%r11
mov    %rbp,%rbx
cmp    $0x1,%r13d
je     12a7 <gausei+0x187>
lea    -0x8(%rax),%rsi
xorpd  %xmm2,%xmm2
xor    %ebx,%ebx
xor    %r8d,%r8d
jmp    126d <gausei+0x14d>
cs nopw 0x0(%rax,%rax,1)
add    $0x2,%r8d
add    $0x10,%rbx
cmp    %r8d,%ecx
je     12a0 <gausei+0x180>
cmp    %rbx,%rax
je     1281 <gausei+0x161>
movsd  (%rdi,%rbx,1),%xmm3
mulsd  0x0(%rbp,%rbx,1),%xmm3
addsd  %xmm3,%xmm2
cmp    %rbx,%rsi
je     1260 <gausei+0x140>
movsd  0x8(%rdi,%rbx,1),%xmm3
mulsd  0x8(%rbp,%rbx,1),%xmm3
addsd  %xmm3,%xmm2
jmp    1260 <gausei+0x140>
nopl   0x0(%rax,%rax,1)
lea    (%rdi,%rbx,1),%r11
add    %rbp,%rbx
test   $0x1,%r13b
je     11e0 <gausei+0xc0>
mov    %r8d,%esi
cmp    %rsi,%rdx
je     11e0 <gausei+0xc0>
movsd  (%r11),%xmm3
mulsd  (%rbx),%xmm3
addsd  %xmm3,%xmm2
jmp    11e0 <gausei+0xc0>
nop
ucomisd %xmm2,%xmm4
jae    130b <gausei+0x1eb>
mov    0x20(%rsp),%rdx
lea    0x1(%rdx),%eax
cmp    0xc(%rsp),%edx
jne    11c0 <gausei+0xa0>
lea    0xd48(%rip),%rsi
mov    0x2cea(%rip),%rax
mov    (%rax),%edi
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <fprintf@plt>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@stderr = global i32 0
@.str = [39 x i8] c"Error : Illegal parameter in gausei()\0A\00"
@.str.1 = [36 x i8] c"Error : No convergence in gausei()\0A\00"
define void @gausei(double* %0, i32 %1, i32 %2, i32 %3, double %4, double* %5) {
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
%12 = alloca double*
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca double
%17 = alloca double
%18 = alloca double*
%19 = alloca double*
%20 = alloca double*
%21 = alloca double
%22 = alloca double
%23 = alloca double
store double* %0, double** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store double %4, double* %11
store double* %5, double** %12
%24 = load i32, i32* %8
%25 = load i32, i32* %9
%26 = icmp slt i32 %24, %25
br i1 %26, label %36, label %27
27: ; preds = %6
%28 = load i32, i32* %9
%29 = icmp slt i32 %28, 2
br i1 %29, label %36, label %30
30: ; preds = %27
%31 = load i32, i32* %10
%32 = icmp slt i32 %31, 1
br i1 %32, label %36, label %33
33: ; preds = %30
%34 = load double, double* %11
%35 = fcmp ole double %34, 0.000000e+00
br i1 %35, label %36, label %39
36: ; preds = %33, %30, %27, %6
%37 = load i32, i32* @stderr
%38 = call i32 @fprintf(i32 %37, i8* getelementptr inbounds ([39 x i8], [39 x i8]* @.str, i64 0, i64 0))
br label %145
39: ; preds = %33
store i32 0, i32* %13
%40 = load double*, double** %12
store double* %40, double** %18
br label %41
41: ; preds = %48, %39
%42 = load i32, i32* %13
%43 = load i32, i32* %9
%44 = icmp slt i32 %42, %43
br i1 %44, label %45, label %51
45: ; preds = %41
%46 = load double*, double** %18
%47 = getelementptr inbounds double, double* %46, i32 1
store double* %47, double** %18
store double 0.000000e+00, double* %46
br label %48
48: ; preds = %45
%49 = load i32, i32* %13
%50 = add nsw i32 %49, 1
store i32 %50, i32* %13
br label %41
51: ; preds = %41
store i32 1, i32* %15
br label %52
52: ; preds = %137, %51
store double 0.000000e+00, double* %17
store i32 0, i32* %13
%53 = load double*, double** %12
store double* %53, double** %18
br label %54
54: ; preds = %128, %52
%55 = load i32, i32* %13
%56 = load i32, i32* %9
%57 = icmp slt i32 %55, %56
br i1 %57, label %58, label %131
58: ; preds = %54
%59 = load double*, double** %7
%60 = load i32, i32* %13
%61 = load i32, i32* %8
%62 = mul nsw i32 %60, %61
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds double, double* %59, i64 %63
%65 = load i32, i32* %13
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds double, double* %64, i64 %66
%68 = load double, double* %67
store double %68, double* %22
store double 0.000000e+00, double* %21
store i32 0, i32* %14
%69 = load double*, double** %12
store double* %69, double** %19
%70 = load double*, double** %7
%71 = load i32, i32* %13
%72 = load i32, i32* %8
%73 = mul nsw i32 %71, %72
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds double, double* %70, i64 %74
store double* %75, double** %20
br label %76
76: ; preds = %92, %58
%77 = load i32, i32* %14
%78 = load i32, i32* %9
%79 = icmp slt i32 %77, %78
br i1 %79, label %80, label %99
80: ; preds = %76
%81 = load i32, i32* %13
%82 = load i32, i32* %14
%83 = icmp ne i32 %81, %82
br i1 %83, label %84, label %91
84: ; preds = %80
%85 = load double*, double** %20
%86 = load double, double* %85
%87 = load double*, double** %19
%88 = load double, double* %87
%89 = load double, double* %21
%90 = call double @llvm.fmuladd.f64(double %86, double %88, double %89)
store double %90, double* %21
br label %91
91: ; preds = %84, %80
br label %92
92: ; preds = %91
%93 = load i32, i32* %14
%94 = add nsw i32 %93, 1
store i32 %94, i32* %14
%95 = load double*, double** %20
%96 = getelementptr inbounds double, double* %95, i32 1
store double* %96, double** %20
%97 = load double*, double** %19
%98 = getelementptr inbounds double, double* %97, i32 1
store double* %98, double** %19
br label %76
99: ; preds = %76
%100 = load double*, double** %7
%101 = load i32, i32* %13
%102 = load i32, i32* %8
%103 = mul nsw i32 %101, %102
%104 = sext i32 %103 to i64
%105 = getelementptr inbounds double, double* %100, i64 %104
%106 = load i32, i32* %9
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds double, double* %105, i64 %107
%109 = load double, double* %108
%110 = load double, double* %21
%111 = fsub double %109, %110
%112 = load double, double* %22
%113 = fdiv double %111, %112
store double %113, double* %23
%114 = load double, double* %23
%115 = load double*, double** %18
%116 = load double, double* %115
%117 = fsub double %114, %116
%118 = call double @llvm.fabs.f64(double %117)
store double %118, double* %16
%119 = load double, double* %16
%120 = load double, double* %17
%121 = fcmp ogt double %119, %120
br i1 %121, label %122, label %124
122: ; preds = %99
%123 = load double, double* %16
store double %123, double* %17
br label %124
124: ; preds = %122, %99
%125 = load double, double* %23
%126 = load double*, double** %18
%127 = getelementptr inbounds double, double* %126, i32 1
store double* %127, double** %18
store double %125, double* %126
br label %128
128: ; preds = %124
%129 = load i32, i32* %13
%130 = add nsw i32 %129, 1
store i32 %130, i32* %13
br label %54
131: ; preds = %54
%132 = load double, double* %17
%133 = load double, double* %11
%134 = fcmp ole double %132, %133
br i1 %134, label %135, label %136
135: ; preds = %131
br label %145
136: ; preds = %131
br label %137
137: ; preds = %136
%138 = load i32, i32* %15
%139 = add nsw i32 %138, 1
store i32 %139, i32* %15
%140 = load i32, i32* %10
%141 = icmp slt i32 %138, %140
br i1 %141, label %52, label %142
142: ; preds = %137
%143 = load i32, i32* @stderr
%144 = call i32 @fprintf(i32 %143, i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str.1, i64 0, i64 0))
br label %145
145: ; preds = %142, %135, %36
ret void
}

LLVM IR (-O2):
@stderr = global i32 0
@.str = [39 x i8] c"Error : Illegal parameter in gausei()\0A\00"
@.str.1 = [36 x i8] c"Error : No convergence in gausei()\0A\00"
define void @gausei(double* nocapture %0, i32 %1, i32 %2, i32 %3, double %4, double* nocapture %5) {
%7 = icmp slt i32 %1, %2
%8 = icmp slt i32 %2, 2
%9 = or i1 %7, %8
%10 = icmp slt i32 %3, 1
%11 = or i1 %9, %10
%12 = fcmp ole double %4, 0.000000e+00
%13 = or i1 %11, %12
br i1 %13, label %97, label %14
14: ; preds = %6
%15 = bitcast double* %5 to i8*
%16 = zext i32 %2 to i64
%17 = shl nuw nsw i64 %16, 3
%18 = zext i32 %2 to i64
%19 = sext i32 %1 to i64
%20 = zext i32 %2 to i64
%21 = and i32 %2, 1
%22 = icmp eq i32 %2, 1
%23 = and i32 %2, -2
%24 = icmp eq i32 %21, 0
br label %25
25: ; preds = %14, %94
%26 = phi i32 [ %95, %94 ], [ 1, %14 ]
br label %27
27: ; preds = %78, %25
%28 = phi i64 [ 0, %25 ], [ %90, %78 ]
%29 = phi double* [ %5, %25 ], [ %89, %78 ]
%30 = phi double [ 0.000000e+00, %25 ], [ %88, %78 ]
%31 = mul nsw i64 %28, %19
%32 = getelementptr inbounds double, double* %0, i64 %31
%33 = getelementptr inbounds double, double* %32, i64 %28
%34 = load double, double* %33
br i1 %22, label %65, label %35
35: ; preds = %27, %58
%36 = phi i32 [ %60, %58 ], [ 0, %27 ]
%37 = phi double [ %59, %58 ], [ 0.000000e+00, %27 ]
%38 = phi double* [ %61, %58 ], [ %32, %27 ]
%39 = phi double* [ %62, %58 ], [ %5, %27 ]
%40 = phi i32 [ %63, %58 ], [ 0, %27 ]
%41 = zext i32 %36 to i64
%42 = icmp eq i64 %28, %41
br i1 %42, label %47, label %43
43: ; preds = %35
%44 = load double, double* %38
%45 = load double, double* %39
%46 = tail call double @llvm.fmuladd.f64(double %44, double %45, double %37)
br label %47
47: ; preds = %35, %43
%48 = phi double [ %46, %43 ], [ %37, %35 ]
%49 = or i32 %36, 1
%50 = zext i32 %49 to i64
%51 = icmp eq i64 %28, %50
br i1 %51, label %58, label %52
52: ; preds = %47
%53 = getelementptr inbounds double, double* %39, i64 1
%54 = getelementptr inbounds double, double* %38, i64 1
%55 = load double, double* %54
%56 = load double, double* %53
%57 = tail call double @llvm.fmuladd.f64(double %55, double %56, double %48)
br label %58
58: ; preds = %52, %47
%59 = phi double [ %57, %52 ], [ %48, %47 ]
%60 = add nuw nsw i32 %36, 2
%61 = getelementptr inbounds double, double* %38, i64 2
%62 = getelementptr inbounds double, double* %39, i64 2
%63 = add nuw nsw i32 %40, 2
%64 = icmp eq i32 %63, %23
br i1 %64, label %65, label %35
65: ; preds = %58, %27
%66 = phi double [ undef, %27 ], [ %59, %58 ]
%67 = phi i32 [ 0, %27 ], [ %60, %58 ]
%68 = phi double [ 0.000000e+00, %27 ], [ %59, %58 ]
%69 = phi double* [ %32, %27 ], [ %61, %58 ]
%70 = phi double* [ %5, %27 ], [ %62, %58 ]
br i1 %24, label %78, label %71
71: ; preds = %65
%72 = zext i32 %67 to i64
%73 = icmp eq i64 %28, %72
br i1 %73, label %78, label %74
74: ; preds = %71
%75 = load double, double* %69
%76 = load double, double* %70
%77 = tail call double @llvm.fmuladd.f64(double %75, double %76, double %68)
br label %78
78: ; preds = %71, %74, %65
%79 = phi double [ %66, %65 ], [ %77, %74 ], [ %68, %71 ]
%80 = getelementptr inbounds double, double* %32, i64 %18
%81 = load double, double* %80
%82 = fsub double %81, %79
%83 = fdiv double %82, %34
%84 = load double, double* %29
%85 = fsub double %83, %84
%86 = tail call double @llvm.fabs.f64(double %85)
%87 = fcmp ogt double %86, %30
%88 = select i1 %87, double %86, double %30
%89 = getelementptr inbounds double, double* %29, i64 1
store double %83, double* %29
%90 = add nuw nsw i64 %28, 1
%91 = icmp eq i64 %90, %20
br i1 %91, label %92, label %27
92: ; preds = %78
%93 = fcmp ugt double %88, %4
br i1 %93, label %94, label %101
94: ; preds = %92
%95 = add nuw i32 %26, 1
%96 = icmp eq i32 %26, %3
br i1 %96, label %97, label %25
97: ; preds = %94, %6
%98 = phi i8* [ getelementptr inbounds ([39 x i8], [39 x i8]* @.str, i64 0, i64 0), %6 ], [ getelementptr inbounds ([36 x i8], [36 x i8]* @.str.1, i64 0, i64 0), %94 ]
%99 = load i32, i32* @stderr
%100 = tail call i32 @fprintf(i32 %99, i8* %98)
br label %101
101: ; preds = %92, %97
ret void
}