void matmpy(a, n, m, b, l, c) double a[], b[], c[];
int n, m, l;
{
  int i, j, k;
  double s;
  for (i = 0; i < n; i++) {
    for (j = 0; j < l; j++) {
      s = 0.;
      for (k = 0; k < m; k++) {
        s += a[k + i * n] * b[j + k * m];
      }
      c[j + i * n] = s;
    }
  }
}


x86 assembly (clang, -O0):
<matmpy>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
mov    %r9,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11e9 <matmpy+0xe9>
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11d6 <matmpy+0xd6>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11ab <matmpy+0xab>
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x2c(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    -0x34(%rbp),%edx
imul   -0x10(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    114f <matmpy+0x4f>
movsd  -0x40(%rbp),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    -0x2c(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1134 <matmpy+0x34>
jmp    11db <matmpy+0xdb>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1121 <matmpy+0x21>
pop    %rbp
ret

x86 assembly (clang, -O2):
<matmpy>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8d,-0x1c(%rsp)
mov    %rcx,-0x10(%rsp)
test   %esi,%esi
jle    1229 <matmpy+0x129>
movslq %edx,%r12
mov    %esi,%eax
mov    -0x1c(%rsp),%r14d
mov    %r12d,%r11d
mov    %r11d,%ebx
and    $0xfffffffe,%ebx
lea    0x8(%rdi),%rsi
mov    %rax,-0x18(%rsp)
lea    0x0(,%rax,8),%rax
mov    %rax,-0x8(%rsp)
mov    %r12,%rax
shl    $0x4,%rax
xor    %r13d,%r13d
jmp    1174 <matmpy+0x74>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%r13
add    -0x8(%rsp),%rsi
cmp    -0x18(%rsp),%r13
je     1229 <matmpy+0x129>
cmpl   $0x0,-0x1c(%rsp)
jle    1160 <matmpy+0x60>
mov    %r13,%rbp
imul   -0x18(%rsp),%rbp
mov    -0x10(%rsp),%r15
xor    %r8d,%r8d
jmp    11ab <matmpy+0xab>
xchg   %ax,%ax
xorpd  %xmm0,%xmm0
lea    (%r8,%rbp,1),%rcx
movsd  %xmm0,(%r9,%rcx,8)
add    $0x1,%r8
add    $0x8,%r15
cmp    %r14,%r8
je     1160 <matmpy+0x60>
test   %edx,%edx
jle    1190 <matmpy+0x90>
cmp    $0x1,%edx
jne    11c0 <matmpy+0xc0>
xorpd  %xmm0,%xmm0
xor    %r10d,%r10d
jmp    11ff <matmpy+0xff>
nopl   (%rax)
xorpd  %xmm1,%xmm1
mov    %r15,%rcx
xor    %r10d,%r10d
nopw   0x0(%rax,%rax,1)
movsd  -0x8(%rsi,%r10,8),%xmm2
mulsd  (%rcx),%xmm2
movsd  (%rsi,%r10,8),%xmm0
addsd  %xmm1,%xmm2
mulsd  (%rcx,%r12,8),%xmm0
addsd  %xmm2,%xmm0
add    $0x2,%r10
add    %rax,%rcx
movapd %xmm0,%xmm1
cmp    %r10,%rbx
jne    11d0 <matmpy+0xd0>
test   $0x1,%r11b
je     1194 <matmpy+0x94>
lea    (%r10,%rbp,1),%rcx
movsd  (%rdi,%rcx,8),%xmm1
imul   %r12,%r10
add    %r8,%r10
mov    -0x10(%rsp),%rcx
mulsd  (%rcx,%r10,8),%xmm1
addsd  %xmm1,%xmm0
jmp    1194 <matmpy+0x94>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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