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


x86 assembly (clang, -O0):
<forwcolunitario>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11b1 <forwcolunitario+0xb1>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    119e <forwcolunitario+0x9e>
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    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112b <forwcolunitario+0x2b>
jmp    11a3 <forwcolunitario+0xa3>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1116 <forwcolunitario+0x16>
pop    %rbp
ret

x86 assembly (clang, -O2):
<forwcolunitario>:
test   %edi,%edi
jle    1179 <forwcolunitario+0x79>
mov    %edi,%r8d
add    $0x1900,%rsi
xor    %r9d,%r9d
mov    %r8,%r10
mov    %rdx,%rdi
jmp    1134 <forwcolunitario+0x34>
nopl   0x0(%rax)
add    $0x8,%rdi
add    $0x1908,%rsi
add    $0xffffffffffffffff,%r10
cmp    %r8,%r9
je     1179 <forwcolunitario+0x79>
mov    %r9,%r11
add    $0x1,%r9
cmp    %r8,%r9
jae    1120 <forwcolunitario+0x20>
mov    $0x1,%ecx
mov    %rsi,%rax
nopl   0x0(%rax,%rax,1)
movsd  (%rax),%xmm0
movsd  (%rdi,%rcx,8),%xmm1
mulsd  (%rdx,%r11,8),%xmm0
subsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi,%rcx,8)
add    $0x1,%rcx
add    $0x1900,%rax
cmp    %rcx,%r10
jne    1150 <forwcolunitario+0x50>
jmp    1120 <forwcolunitario+0x20>
ret

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

LLVM IR (-O2):
define void @forwcolunitario(i32 %0, [800 x double]* nocapture %1, double* nocapture %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %29
5: ; preds = %3
%6 = zext i32 %0 to i64
%7 = zext i32 %0 to i64
br label %11
8: ; preds = %18, %11
%9 = add nuw nsw i64 %13, 1
%10 = icmp eq i64 %14, %7
br i1 %10, label %29, label %11
11: ; preds = %5, %8
%12 = phi i64 [ 0, %5 ], [ %14, %8 ]
%13 = phi i64 [ 1, %5 ], [ %9, %8 ]
%14 = add nuw nsw i64 %12, 1
%15 = icmp ult i64 %14, %6
br i1 %15, label %16, label %8
16: ; preds = %11
%17 = getelementptr inbounds double, double* %2, i64 %12
br label %18
18: ; preds = %16, %18
%19 = phi i64 [ %13, %16 ], [ %27, %18 ]
%20 = getelementptr inbounds [800 x double], [800 x double]* %1, i64 %19, i64 %12
%21 = load double, double* %20
%22 = load double, double* %17
%23 = getelementptr inbounds double, double* %2, i64 %19
%24 = load double, double* %23
%25 = fneg double %21
%26 = tail call double @llvm.fmuladd.f64(double %25, double %22, double %24)
store double %26, double* %23
%27 = add nuw nsw i64 %19, 1
%28 = icmp eq i64 %27, %7
br i1 %28, label %8, label %18
29: ; preds = %8, %3
ret void
}