void simple_trsml(int m, int n, double *a, int a_row_stride, int a_col_stride,
                  double *b, int b_row_stride, int b_col_stride) {
  int i, j, p;
  for (i = 0; i < m; i++) {
    for (j = 0; j < n; j++) {
      for (p = 0; p < i; p++) {
        b[(i)*b_row_stride + (j)*b_col_stride] =
            b[(i)*b_row_stride + (j)*b_col_stride] -
            a[(i)*a_row_stride + (p)*a_col_stride] *
                b[(p)*b_row_stride + (j)*b_col_stride];
      }
      b[(i)*b_row_stride + (j)*b_col_stride] =
          b[(i)*b_row_stride + (j)*b_col_stride] /
          a[(i)*a_row_stride + (i)*a_col_stride];
    }
  }
}


x86 assembly (clang, -O0):
<simple_trsml>:
push   %rbp
mov    %rsp,%rbp
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%eax
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
mov    %r9,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    126a <simple_trsml+0x16a>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1257 <simple_trsml+0x157>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11f5 <simple_trsml+0xf5>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x10(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x14(%rbp),%ecx
mov    -0x2c(%rbp),%edx
imul   -0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   0x10(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x10(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    114c <simple_trsml+0x4c>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x10(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x14(%rbp),%ecx
mov    -0x24(%rbp),%edx
imul   -0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x10(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x18(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1139 <simple_trsml+0x39>
jmp    125c <simple_trsml+0x15c>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1126 <simple_trsml+0x26>
pop    %rbp
ret

x86 assembly (clang, -O2):
<simple_trsml>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %esi,-0x5c(%rsp)
test   %edi,%edi
jle    12c2 <simple_trsml+0x1c2>
mov    %rdx,%rsi
movslq %r8d,%r10
add    %ecx,%r8d
mov    %r8d,-0x4c(%rsp)
movslq 0x38(%rsp),%rbx
movslq 0x40(%rsp),%rax
movslq %ecx,%rcx
mov    %edi,%edx
mov    %rdx,-0x38(%rsp)
mov    -0x5c(%rsp),%edx
mov    %rdx,-0x18(%rsp)
mov    %rcx,-0x48(%rsp)
lea    0x0(,%rcx,8),%rcx
mov    %rcx,-0x40(%rsp)
mov    %r10,%rdi
shl    $0x4,%rdi
mov    %rax,-0x10(%rsp)
lea    0x0(,%rax,8),%rax
mov    %rax,-0x20(%rsp)
mov    %rbx,%rax
shl    $0x4,%rax
xor    %r15d,%r15d
mov    %rsi,-0x58(%rsp)
mov    %rsi,-0x28(%rsp)
jmp    11ae <simple_trsml+0xae>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%r15
mov    -0x58(%rsp),%rcx
add    -0x40(%rsp),%rcx
mov    %rcx,-0x58(%rsp)
cmp    -0x38(%rsp),%r15
je     12c2 <simple_trsml+0x1c2>
cmpl   $0x0,-0x5c(%rsp)
jle    1190 <simple_trsml+0x90>
mov    %r15,%rbp
and    $0xfffffffffffffffe,%rbp
mov    %r15,%r8
imul   %rbx,%r8
mov    %r15,%rcx
imul   -0x48(%rsp),%rcx
mov    %rcx,-0x30(%rsp)
mov    -0x4c(%rsp),%ecx
imul   %r15d,%ecx
movslq %ecx,%rcx
mov    %rcx,-0x8(%rsp)
mov    %r9,%r12
xor    %r14d,%r14d
jmp    121a <simple_trsml+0x11a>
nopl   0x0(%rax)
movsd  (%r9,%r11,8),%xmm0
mov    -0x8(%rsp),%rcx
divsd  (%rsi,%rcx,8),%xmm0
movsd  %xmm0,(%r9,%r11,8)
add    $0x1,%r14
add    -0x20(%rsp),%r12
cmp    -0x18(%rsp),%r14
je     1190 <simple_trsml+0x90>
mov    %r14,%r13
imul   -0x10(%rsp),%r13
lea    (%r8,%r13,1),%r11
test   %r15,%r15
je     11f0 <simple_trsml+0xf0>
movsd  (%r9,%r11,8),%xmm0
cmp    $0x1,%r15
jne    1240 <simple_trsml+0x140>
xor    %ecx,%ecx
jmp    1286 <simple_trsml+0x186>
nopl   0x0(%rax)
mov    %r12,%rsi
mov    -0x58(%rsp),%rdx
xor    %ecx,%ecx
nopw   0x0(%rax,%rax,1)
movsd  (%rdx),%xmm1
mulsd  (%rsi),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%r9,%r11,8)
movsd  (%rdx,%r10,8),%xmm1
mulsd  (%rsi,%rbx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%r9,%r11,8)
add    $0x2,%rcx
add    %rdi,%rdx
add    %rax,%rsi
cmp    %rcx,%rbp
jne    1250 <simple_trsml+0x150>
test   $0x1,%r15b
mov    -0x28(%rsp),%rsi
je     11f0 <simple_trsml+0xf0>
mov    %rcx,%rdx
imul   %r10,%rdx
add    -0x30(%rsp),%rdx
movsd  (%rsi,%rdx,8),%xmm1
imul   %rbx,%rcx
add    %r13,%rcx
mulsd  (%r9,%rcx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%r9,%r11,8)
jmp    11f0 <simple_trsml+0xf0>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @simple_trsml(i32 %0, i32 %1, double* %2, i32 %3, i32 %4, double* %5, i32 %6, i32 %7) {
%9 = alloca i32
%10 = alloca i32
%11 = alloca double*
%12 = alloca i32
%13 = alloca i32
%14 = alloca double*
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
store i32 %0, i32* %9
store i32 %1, i32* %10
store double* %2, double** %11
store i32 %3, i32* %12
store i32 %4, i32* %13
store double* %5, double** %14
store i32 %6, i32* %15
store i32 %7, i32* %16
store i32 0, i32* %17
br label %20
20: ; preds = %121, %8
%21 = load i32, i32* %17
%22 = load i32, i32* %9
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %124
24: ; preds = %20
store i32 0, i32* %18
br label %25
25: ; preds = %117, %24
%26 = load i32, i32* %18
%27 = load i32, i32* %10
%28 = icmp slt i32 %26, %27
br i1 %28, label %29, label %120
29: ; preds = %25
store i32 0, i32* %19
br label %30
30: ; preds = %80, %29
%31 = load i32, i32* %19
%32 = load i32, i32* %17
%33 = icmp slt i32 %31, %32
br i1 %33, label %34, label %83
34: ; preds = %30
%35 = load double*, double** %14
%36 = load i32, i32* %17
%37 = load i32, i32* %15
%38 = mul nsw i32 %36, %37
%39 = load i32, i32* %18
%40 = load i32, i32* %16
%41 = mul nsw i32 %39, %40
%42 = add nsw i32 %38, %41
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %35, i64 %43
%45 = load double, double* %44
%46 = load double*, double** %11
%47 = load i32, i32* %17
%48 = load i32, i32* %12
%49 = mul nsw i32 %47, %48
%50 = load i32, i32* %19
%51 = load i32, i32* %13
%52 = mul nsw i32 %50, %51
%53 = add nsw i32 %49, %52
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %46, i64 %54
%56 = load double, double* %55
%57 = load double*, double** %14
%58 = load i32, i32* %19
%59 = load i32, i32* %15
%60 = mul nsw i32 %58, %59
%61 = load i32, i32* %18
%62 = load i32, i32* %16
%63 = mul nsw i32 %61, %62
%64 = add nsw i32 %60, %63
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds double, double* %57, i64 %65
%67 = load double, double* %66
%68 = fneg double %56
%69 = call double @llvm.fmuladd.f64(double %68, double %67, double %45)
%70 = load double*, double** %14
%71 = load i32, i32* %17
%72 = load i32, i32* %15
%73 = mul nsw i32 %71, %72
%74 = load i32, i32* %18
%75 = load i32, i32* %16
%76 = mul nsw i32 %74, %75
%77 = add nsw i32 %73, %76
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds double, double* %70, i64 %78
store double %69, double* %79
br label %80
80: ; preds = %34
%81 = load i32, i32* %19
%82 = add nsw i32 %81, 1
store i32 %82, i32* %19
br label %30
83: ; preds = %30
%84 = load double*, double** %14
%85 = load i32, i32* %17
%86 = load i32, i32* %15
%87 = mul nsw i32 %85, %86
%88 = load i32, i32* %18
%89 = load i32, i32* %16
%90 = mul nsw i32 %88, %89
%91 = add nsw i32 %87, %90
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds double, double* %84, i64 %92
%94 = load double, double* %93
%95 = load double*, double** %11
%96 = load i32, i32* %17
%97 = load i32, i32* %12
%98 = mul nsw i32 %96, %97
%99 = load i32, i32* %17
%100 = load i32, i32* %13
%101 = mul nsw i32 %99, %100
%102 = add nsw i32 %98, %101
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds double, double* %95, i64 %103
%105 = load double, double* %104
%106 = fdiv double %94, %105
%107 = load double*, double** %14
%108 = load i32, i32* %17
%109 = load i32, i32* %15
%110 = mul nsw i32 %108, %109
%111 = load i32, i32* %18
%112 = load i32, i32* %16
%113 = mul nsw i32 %111, %112
%114 = add nsw i32 %110, %113
%115 = sext i32 %114 to i64
%116 = getelementptr inbounds double, double* %107, i64 %115
store double %106, double* %116
br label %117
117: ; preds = %83
%118 = load i32, i32* %18
%119 = add nsw i32 %118, 1
store i32 %119, i32* %18
br label %25
120: ; preds = %25
br label %121
121: ; preds = %120
%122 = load i32, i32* %17
%123 = add nsw i32 %122, 1
store i32 %123, i32* %17
br label %20
124: ; preds = %20
ret void
}

LLVM IR (-O2):
define void @simple_trsml(i32 %0, i32 %1, double* nocapture %2, i32 %3, i32 %4, double* nocapture %5, i32 %6, i32 %7) {
%9 = icmp sgt i32 %0, 0
br i1 %9, label %10, label %92
10: ; preds = %8
%11 = icmp sgt i32 %1, 0
%12 = add i32 %4, %3
%13 = sext i32 %4 to i64
%14 = sext i32 %6 to i64
%15 = sext i32 %7 to i64
%16 = sext i32 %3 to i64
%17 = zext i32 %0 to i64
%18 = zext i32 %1 to i64
br label %19
19: ; preds = %10, %89
%20 = phi i64 [ 0, %10 ], [ %90, %89 ]
br i1 %11, label %21, label %89
21: ; preds = %19
%22 = icmp eq i64 %20, 0
%23 = mul nsw i64 %20, %14
%24 = mul nsw i64 %20, %16
%25 = trunc i64 %20 to i32
%26 = mul i32 %12, %25
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %2, i64 %27
%29 = and i64 %20, 1
%30 = icmp eq i64 %20, 1
%31 = and i64 %20, 9223372036854775806
%32 = icmp eq i64 %29, 0
br label %33
33: ; preds = %21, %82
%34 = phi i64 [ 0, %21 ], [ %87, %82 ]
%35 = mul nsw i64 %34, %15
%36 = add nsw i64 %35, %23
br i1 %22, label %82, label %37
37: ; preds = %33
%38 = getelementptr inbounds double, double* %5, i64 %36
%39 = load double, double* %38
br i1 %30, label %68, label %40
40: ; preds = %37, %40
%41 = phi double [ %64, %40 ], [ %39, %37 ]
%42 = phi i64 [ %65, %40 ], [ 0, %37 ]
%43 = phi i64 [ %66, %40 ], [ 0, %37 ]
%44 = mul nsw i64 %42, %13
%45 = add nsw i64 %44, %24
%46 = getelementptr inbounds double, double* %2, i64 %45
%47 = load double, double* %46
%48 = mul nsw i64 %42, %14
%49 = add nsw i64 %48, %35
%50 = getelementptr inbounds double, double* %5, i64 %49
%51 = load double, double* %50
%52 = fneg double %47
%53 = tail call double @llvm.fmuladd.f64(double %52, double %51, double %41)
store double %53, double* %38
%54 = or i64 %42, 1
%55 = mul nsw i64 %54, %13
%56 = add nsw i64 %55, %24
%57 = getelementptr inbounds double, double* %2, i64 %56
%58 = load double, double* %57
%59 = mul nsw i64 %54, %14
%60 = add nsw i64 %59, %35
%61 = getelementptr inbounds double, double* %5, i64 %60
%62 = load double, double* %61
%63 = fneg double %58
%64 = tail call double @llvm.fmuladd.f64(double %63, double %62, double %53)
store double %64, double* %38
%65 = add nuw nsw i64 %42, 2
%66 = add i64 %43, 2
%67 = icmp eq i64 %66, %31
br i1 %67, label %68, label %40
68: ; preds = %40, %37
%69 = phi double [ %39, %37 ], [ %64, %40 ]
%70 = phi i64 [ 0, %37 ], [ %65, %40 ]
br i1 %32, label %82, label %71
71: ; preds = %68
%72 = mul nsw i64 %70, %13
%73 = add nsw i64 %72, %24
%74 = getelementptr inbounds double, double* %2, i64 %73
%75 = load double, double* %74
%76 = mul nsw i64 %70, %14
%77 = add nsw i64 %76, %35
%78 = getelementptr inbounds double, double* %5, i64 %77
%79 = load double, double* %78
%80 = fneg double %75
%81 = tail call double @llvm.fmuladd.f64(double %80, double %79, double %69)
store double %81, double* %38
br label %82
82: ; preds = %71, %68, %33
%83 = getelementptr inbounds double, double* %5, i64 %36
%84 = load double, double* %83
%85 = load double, double* %28
%86 = fdiv double %84, %85
store double %86, double* %83
%87 = add nuw nsw i64 %34, 1
%88 = icmp eq i64 %87, %18
br i1 %88, label %89, label %33
89: ; preds = %82, %19
%90 = add nuw nsw i64 %20, 1
%91 = icmp eq i64 %90, %17
br i1 %91, label %92, label %19
92: ; preds = %89, %8
ret void
}