void dtrsm_l_l_n_u_3l(int m, int n, double *A, int lda, double *B, int ldb) {
  if (m == 0 || n == 0)
    return;
  int i, j, k;
  for (j = 0; j < n; j++) {
    for (k = 0; k < m; k++) {
      for (i = k + 1; i < m; i++) {
        B[i + ldb * j] -= B[k + ldb * j] * A[i + lda * k];
      }
    }
  }
  return;
}


x86 assembly (clang, -O0):
<dtrsm_l_l_n_u_3l>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
cmpl   $0x0,-0x4(%rbp)
je     112d <dtrsm_l_l_n_u_3l+0x2d>
cmpl   $0x0,-0x8(%rbp)
jne    1132 <dtrsm_l_l_n_u_3l+0x32>
jmp    1212 <dtrsm_l_l_n_u_3l+0x112>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    120d <dtrsm_l_l_n_u_3l+0x10d>
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11fa <dtrsm_l_l_n_u_3l+0xfa>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11e7 <dtrsm_l_l_n_u_3l+0xe7>
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    -0x24(%rbp),%edx
imul   -0x2c(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    -0x14(%rbp),%edx
imul   -0x30(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    -0x24(%rbp),%edx
imul   -0x2c(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%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    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1161 <dtrsm_l_l_n_u_3l+0x61>
jmp    11ec <dtrsm_l_l_n_u_3l+0xec>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    114c <dtrsm_l_l_n_u_3l+0x4c>
jmp    11ff <dtrsm_l_l_n_u_3l+0xff>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1139 <dtrsm_l_l_n_u_3l+0x39>
jmp    1212 <dtrsm_l_l_n_u_3l+0x112>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dtrsm_l_l_n_u_3l>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdx,-0x10(%rsp)
test   %edi,%edi
je     11d9 <dtrsm_l_l_n_u_3l+0xd9>
test   %esi,%esi
jle    11d9 <dtrsm_l_l_n_u_3l+0xd9>
movslq %edi,%r13
movslq %ecx,%rax
movslq %r9d,%rcx
mov    %esi,%edx
mov    %rdx,-0x8(%rsp)
mov    %edi,%ebx
mov    %rcx,-0x18(%rsp)
lea    0x0(,%rcx,8),%r11
lea    0x8(,%rax,8),%rsi
xor    %r15d,%r15d
mov    %r8,%r14
jmp    115e <dtrsm_l_l_n_u_3l+0x5e>
xchg   %ax,%ax
add    $0x1,%r15
add    %r11,%r14
cmp    -0x8(%rsp),%r15
je     11d9 <dtrsm_l_l_n_u_3l+0xd9>
test   %edi,%edi
jle    1150 <dtrsm_l_l_n_u_3l+0x50>
mov    %r15,%r12
imul   -0x18(%rsp),%r12
mov    %rbx,%rcx
mov    -0x10(%rsp),%rax
mov    %r14,%rbp
xor    %edx,%edx
jmp    1190 <dtrsm_l_l_n_u_3l+0x90>
nopw   0x0(%rax,%rax,1)
add    $0x8,%rbp
add    %rsi,%rax
add    $0xffffffffffffffff,%rcx
cmp    %rbx,%rdx
je     1150 <dtrsm_l_l_n_u_3l+0x50>
mov    %rdx,%r9
add    $0x1,%rdx
cmp    %r13,%rdx
jge    1180 <dtrsm_l_l_n_u_3l+0x80>
add    %r12,%r9
mov    $0x1,%r10d
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%r8,%r9,8),%xmm0
movsd  0x0(%rbp,%r10,8),%xmm1
mulsd  (%rax,%r10,8),%xmm0
subsd  %xmm0,%xmm1
movsd  %xmm1,0x0(%rbp,%r10,8)
add    $0x1,%r10
cmp    %r10,%rcx
jne    11b0 <dtrsm_l_l_n_u_3l+0xb0>
jmp    1180 <dtrsm_l_l_n_u_3l+0x80>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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