void forwrowunitario(int n, double A[][800], double b[]) {
  int i, j;
  for (i = 0; i < n; i++) {
    for (j = 0; j < i; j++) {
      b[i] -= A[i][j] * b[j];
    }
  }
}


x86 assembly (clang, -O0):
<forwrowunitario>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11af <forwrowunitario+0xaf>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    119c <forwrowunitario+0x9c>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
imul   $0x1900,%rcx,%rcx
add    %rcx,%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movq   %xmm0,%rdx
movabs $0x8000000000000000,%rsi
xor    %rsi,%rdx
movq   %rdx,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1129 <forwrowunitario+0x29>
jmp    11a1 <forwrowunitario+0xa1>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1116 <forwrowunitario+0x16>
pop    %rbp
ret

x86 assembly (clang, -O2):
<forwrowunitario>:
test   %edi,%edi
jle    11bb <forwrowunitario+0xbb>
mov    %edi,%r8d
lea    0x8(%rsi),%r10
xor    %edi,%edi
jmp    1134 <forwrowunitario+0x34>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%rdi
add    $0x1900,%r10
cmp    %r8,%rdi
je     11bb <forwrowunitario+0xbb>
test   %rdi,%rdi
je     1120 <forwrowunitario+0x20>
movsd  (%rdx,%rdi,8),%xmm0
cmp    $0x1,%rdi
jne    1150 <forwrowunitario+0x50>
xor    %eax,%eax
jmp    1193 <forwrowunitario+0x93>
nopl   0x0(%rax,%rax,1)
mov    %rdi,%r9
and    $0xfffffffffffffffe,%r9
xor    %eax,%eax
nopl   0x0(%rax)
movsd  -0x8(%r10,%rax,8),%xmm1
mulsd  (%rdx,%rax,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rdi,8)
movsd  (%r10,%rax,8),%xmm1
mulsd  0x8(%rdx,%rax,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rdi,8)
add    $0x2,%rax
cmp    %rax,%r9
jne    1160 <forwrowunitario+0x60>
test   $0x1,%dil
je     1120 <forwrowunitario+0x20>
imul   $0x1900,%rdi,%rcx
add    %rsi,%rcx
movsd  (%rcx,%rax,8),%xmm1
mulsd  (%rdx,%rax,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rdi,8)
jmp    1120 <forwrowunitario+0x20>
ret

LLVM IR (-O0):
define void @forwrowunitario(i32 %0, [800 x double]* %1, double* %2) {
%4 = alloca i32
%5 = alloca [800 x double]*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
store i32 %0, i32* %4
store [800 x double]* %1, [800 x double]** %5
store double* %2, double** %6
store i32 0, i32* %7
br label %9
9: ; preds = %43, %3
%10 = load i32, i32* %7
%11 = load i32, i32* %4
%12 = icmp slt i32 %10, %11
br i1 %12, label %13, label %46
13: ; preds = %9
store i32 0, i32* %8
br label %14
14: ; preds = %39, %13
%15 = load i32, i32* %8
%16 = load i32, i32* %7
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %42
18: ; preds = %14
%19 = load [800 x double]*, [800 x double]** %5
%20 = load i32, i32* %7
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds [800 x double], [800 x double]* %19, i64 %21
%23 = load i32, i32* %8
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [800 x double], [800 x double]* %22, i64 0, i64 %24
%26 = load double, double* %25
%27 = load double*, double** %6
%28 = load i32, i32* %8
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %27, i64 %29
%31 = load double, double* %30
%32 = load double*, double** %6
%33 = load i32, i32* %7
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %32, i64 %34
%36 = load double, double* %35
%37 = fneg double %26
%38 = call double @llvm.fmuladd.f64(double %37, double %31, double %36)
store double %38, double* %35
br label %39
39: ; preds = %18
%40 = load i32, i32* %8
%41 = add nsw i32 %40, 1
store i32 %41, i32* %8
br label %14
42: ; preds = %14
br label %43
43: ; preds = %42
%44 = load i32, i32* %7
%45 = add nsw i32 %44, 1
store i32 %45, i32* %7
br label %9
46: ; preds = %9
ret void
}

LLVM IR (-O2):
define void @forwrowunitario(i32 %0, [800 x double]* nocapture %1, double* nocapture %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %51
5: ; preds = %3
%6 = zext i32 %0 to i64
br label %7
7: ; preds = %5, %48
%8 = phi i64 [ 0, %5 ], [ %49, %48 ]
%9 = icmp eq i64 %8, 0
br i1 %9, label %48, label %10
10: ; preds = %7
%11 = getelementptr inbounds double, double* %2, i64 %8
%12 = load double, double* %11
%13 = and i64 %8, 1
%14 = icmp eq i64 %8, 1
br i1 %14, label %37, label %15
15: ; preds = %10
%16 = and i64 %8, 9223372036854775806
br label %17
17: ; preds = %17, %15
%18 = phi double [ %12, %15 ], [ %33, %17 ]
%19 = phi i64 [ 0, %15 ], [ %34, %17 ]
%20 = phi i64 [ 0, %15 ], [ %35, %17 ]
%21 = getelementptr inbounds [800 x double], [800 x double]* %1, i64 %8, i64 %19
%22 = load double, double* %21
%23 = getelementptr inbounds double, double* %2, i64 %19
%24 = load double, double* %23
%25 = fneg double %22
%26 = tail call double @llvm.fmuladd.f64(double %25, double %24, double %18)
store double %26, double* %11
%27 = or i64 %19, 1
%28 = getelementptr inbounds [800 x double], [800 x double]* %1, i64 %8, i64 %27
%29 = load double, double* %28
%30 = getelementptr inbounds double, double* %2, i64 %27
%31 = load double, double* %30
%32 = fneg double %29
%33 = tail call double @llvm.fmuladd.f64(double %32, double %31, double %26)
store double %33, double* %11
%34 = add nuw nsw i64 %19, 2
%35 = add i64 %20, 2
%36 = icmp eq i64 %35, %16
br i1 %36, label %37, label %17
37: ; preds = %17, %10
%38 = phi double [ %12, %10 ], [ %33, %17 ]
%39 = phi i64 [ 0, %10 ], [ %34, %17 ]
%40 = icmp eq i64 %13, 0
br i1 %40, label %48, label %41
41: ; preds = %37
%42 = getelementptr inbounds [800 x double], [800 x double]* %1, i64 %8, i64 %39
%43 = load double, double* %42
%44 = getelementptr inbounds double, double* %2, i64 %39
%45 = load double, double* %44
%46 = fneg double %43
%47 = tail call double @llvm.fmuladd.f64(double %46, double %45, double %38)
store double %47, double* %11
br label %48
48: ; preds = %41, %37, %7
%49 = add nuw nsw i64 %8, 1
%50 = icmp eq i64 %49, %6
br i1 %50, label %51, label %7
51: ; preds = %48, %3
ret void
}