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


x86 assembly (clang, -O0):
<dmat_dtlgxms>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1205 <dmat_dtlgxms+0x105>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11f2 <dmat_dtlgxms+0xf2>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     11a1 <dmat_dtlgxms+0xa1>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    114b <dmat_dtlgxms+0x4b>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
cmpl   $0x0,-0x20(%rbp)
je     11df <dmat_dtlgxms+0xdf>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    11e4 <dmat_dtlgxms+0xe4>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1130 <dmat_dtlgxms+0x30>
jmp    11f7 <dmat_dtlgxms+0xf7>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111e <dmat_dtlgxms+0x1e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dmat_dtlgxms>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdi,-0x8(%rsp)
test   %ecx,%ecx
jle    123a <dmat_dtlgxms+0x13a>
mov    %ecx,%edi
mov    $0x1,%r10d
xor    %r11d,%r11d
jmp    1141 <dmat_dtlgxms+0x41>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%r11
add    $0x1,%r10
cmp    %rdi,%r11
je     123a <dmat_dtlgxms+0x13a>
mov    %r10d,%r12d
and    $0x3,%r12d
mov    %r10,%r15
and    $0xfffffffffffffffc,%r15
mov    -0x8(%rsp),%rax
mov    (%rax,%r11,8),%r9
mov    (%rdx,%r11,8),%r14
mov    %r11,%rax
jmp    1179 <dmat_dtlgxms+0x79>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%rax
cmp    %rdi,%rax
je     1130 <dmat_dtlgxms+0x30>
xorpd  %xmm0,%xmm0
xor    %ecx,%ecx
cmp    $0x3,%r11
jb     11ec <dmat_dtlgxms+0xec>
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%r9,%rcx,8),%xmm1
movsd  0x8(%r9,%rcx,8),%xmm2
mov    (%rsi,%rcx,8),%rbp
mov    0x8(%rsi,%rcx,8),%rbx
mulsd  0x0(%rbp,%rax,8),%xmm1
addsd  %xmm0,%xmm1
mulsd  (%rbx,%rax,8),%xmm2
addsd  %xmm1,%xmm2
movsd  0x10(%r9,%rcx,8),%xmm1
mov    0x10(%rsi,%rcx,8),%rbx
mulsd  (%rbx,%rax,8),%xmm1
movsd  0x18(%r9,%rcx,8),%xmm0
mov    0x18(%rsi,%rcx,8),%rbx
mulsd  (%rbx,%rax,8),%xmm0
addsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
add    $0x4,%rcx
cmp    %rcx,%r15
jne    1190 <dmat_dtlgxms+0x90>
test   $0x3,%r10b
je     121c <dmat_dtlgxms+0x11c>
lea    (%rsi,%rcx,8),%r13
lea    (%r9,%rcx,8),%rcx
xor    %ebp,%ebp
nopl   0x0(%rax)
movsd  (%rcx,%rbp,8),%xmm1
mov    0x0(%r13,%rbp,8),%rbx
mulsd  (%rbx,%rax,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rbp
cmp    %rbp,%r12
jne    1200 <dmat_dtlgxms+0x100>
movsd  %xmm0,(%r14,%rax,8)
test   %r8d,%r8d
je     1170 <dmat_dtlgxms+0x70>
mov    (%rdx,%rax,8),%rcx
movsd  %xmm0,(%rcx,%r11,8)
jmp    1170 <dmat_dtlgxms+0x70>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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