void dmat_dtugxtlms(double **a, double **b, double **c, double **d, double **w,
                    int n) {
  int i;
  int j;
  int k;
  double x;
  for (i = 0; i < n; ++i) {
    for (j = 0; j <= i; ++j) {
      x = 0.;
      for (k = j; k < n; ++k) {
        x += b[i][k] * c[k][j];
      }
      w[i][j] = x;
    }
  }
  for (i = 0; i < n; ++i) {
    for (j = 0; j <= i; ++j) {
      x = 0.;
      for (k = i; k < n; ++k) {
        x += a[i][k] * w[k][j];
      }
      d[j][i] = x;
    }
  }
}


x86 assembly (clang, -O0):
<dmat_dtugxtlms>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9d,-0x2c(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    11e1 <dmat_dtugxtlms+0xe1>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x30(%rbp),%eax
jg     11ce <dmat_dtugxtlms+0xce>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    11a6 <dmat_dtugxtlms+0xa6>
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1150 <dmat_dtugxtlms+0x50>
movsd  -0x40(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1136 <dmat_dtugxtlms+0x36>
jmp    11d3 <dmat_dtugxtlms+0xd3>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1123 <dmat_dtugxtlms+0x23>
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    12a6 <dmat_dtugxtlms+0x1a6>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x30(%rbp),%eax
jg     1293 <dmat_dtugxtlms+0x193>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    126b <dmat_dtugxtlms+0x16b>
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1215 <dmat_dtugxtlms+0x115>
movsd  -0x40(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11fb <dmat_dtugxtlms+0xfb>
jmp    1298 <dmat_dtugxtlms+0x198>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    11e8 <dmat_dtugxtlms+0xe8>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dmat_dtugxtlms>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %r9d,%r9d
jle    12fb <dmat_dtugxtlms+0x1fb>
mov    %r9d,-0x4(%rsp)
mov    %r9d,%r9d
mov    $0x1,%r14d
xor    %r11d,%r11d
jmp    113d <dmat_dtugxtlms+0x3d>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%r11
add    $0x1,%r14
cmp    %r9,%r11
je     11af <dmat_dtugxtlms+0xaf>
mov    (%r8,%r11,8),%r15
mov    %r9,%r12
mov    %rdx,%r13
xor    %eax,%eax
jmp    1167 <dmat_dtugxtlms+0x67>
nopl   0x0(%rax,%rax,1)
movsd  %xmm0,(%r15,%rax,8)
add    $0x1,%rax
add    $0x8,%r13
add    $0xffffffffffffffff,%r12
cmp    %r14,%rax
je     1130 <dmat_dtugxtlms+0x30>
xorpd  %xmm0,%xmm0
cmp    %r9,%rax
jae    1150 <dmat_dtugxtlms+0x50>
lea    0x0(,%rax,8),%rbx
add    (%rsi,%r11,8),%rbx
xorpd  %xmm0,%xmm0
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rbx,%rbp,8),%xmm1
mov    0x0(%r13,%rbp,8),%r10
mulsd  (%r10,%rax,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rbp
cmp    %rbp,%r12
jne    1190 <dmat_dtugxtlms+0x90>
jmp    1150 <dmat_dtugxtlms+0x50>
cmpl   $0x0,-0x4(%rsp)
jle    12fb <dmat_dtugxtlms+0x1fb>
mov    $0x1,%r11d
xor    %r12d,%r12d
movabs $0x7ffffffffffffffe,%r10
ff ff 7f
mov    %r9,%rax
jmp    11f9 <dmat_dtugxtlms+0xf9>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%r12
add    $0x1,%r11
add    $0x8,%r8
add    $0xffffffffffffffff,%rax
cmp    %r9,%r12
je     12fb <dmat_dtugxtlms+0x1fb>
mov    (%rdi,%r12,8),%r14
test   %r12,%r12
je     12b0 <dmat_dtugxtlms+0x1b0>
mov    %r11,%r15
and    %r10,%r15
lea    (%r14,%r12,8),%rbx
xor    %r13d,%r13d
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
xorpd  %xmm0,%xmm0
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
movsd  (%rbx,%rdx,8),%xmm1
mov    (%r8,%rdx,8),%rbp
mulsd  0x0(%rbp,%r13,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rdx
cmp    %rdx,%rax
jne    1230 <dmat_dtugxtlms+0x130>
mov    (%rcx,%r13,8),%rdx
movsd  %xmm0,(%rdx,%r12,8)
mov    %r13,%rdx
or     $0x1,%rdx
xorpd  %xmm0,%xmm0
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%rbx,%rbp,8),%xmm1
mov    (%r8,%rbp,8),%rsi
mulsd  (%rsi,%rdx,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rbp
cmp    %rbp,%rax
jne    1270 <dmat_dtugxtlms+0x170>
mov    (%rcx,%rdx,8),%rdx
movsd  %xmm0,(%rdx,%r12,8)
add    $0x2,%r13
cmp    %r15,%r13
jne    1220 <dmat_dtugxtlms+0x120>
test   $0x1,%r11b
je     11e0 <dmat_dtugxtlms+0xe0>
jmp    12bd <dmat_dtugxtlms+0x1bd>
nopw   0x0(%rax,%rax,1)
xor    %r13d,%r13d
test   $0x1,%r11b
je     11e0 <dmat_dtugxtlms+0xe0>
lea    (%r14,%r12,8),%rdx
xorpd  %xmm0,%xmm0
xor    %ebx,%ebx
nopw   0x0(%rax,%rax,1)
movsd  (%rdx,%rbx,8),%xmm1
mov    (%r8,%rbx,8),%rsi
mulsd  (%rsi,%r13,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rbx
cmp    %rbx,%rax
jne    12d0 <dmat_dtugxtlms+0x1d0>
mov    (%rcx,%r13,8),%rdx
movsd  %xmm0,(%rdx,%r12,8)
jmp    11e0 <dmat_dtugxtlms+0xe0>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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