void wcrossprod(const double *x, const double *y, const double *w, double *z,
                const int m, const int n, const int p) {
  int i, j, k, ip;
  const double *restrict xr = x, *restrict yr = y, *restrict wr = w;
  double *restrict zr = z;
  for (i = 0; i < n; i++) {
    for (j = 0; j < p; j++) {
      k = 0;
      ip = i * p;
      zr[ip + j] = xr[i] * yr[j] * wr[k];
      for (k = 1; k < m; k++)
        zr[ip + j] += xr[k * n + i] * yr[k * p + j] * wr[k];
    }
  }
}


x86 assembly (clang, -O0):
<wcrossprod>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    %r9d,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x58(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    124e <wcrossprod+0x14e>
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    123b <wcrossprod+0x13b>
movl   $0x0,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
imul   0x10(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x40(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x48(%rbp),%rax
movslq -0x30(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x50(%rbp),%rax
movslq -0x34(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x58(%rbp),%rax
mov    -0x38(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1228 <wcrossprod+0x128>
mov    -0x40(%rbp),%rax
mov    -0x34(%rbp),%ecx
imul   -0x28(%rbp),%ecx
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x48(%rbp),%rax
mov    -0x34(%rbp),%ecx
imul   0x10(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x50(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x58(%rbp),%rax
mov    -0x38(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11b6 <wcrossprod+0xb6>
jmp    122d <wcrossprod+0x12d>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1159 <wcrossprod+0x59>
jmp    1240 <wcrossprod+0x140>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1146 <wcrossprod+0x46>
pop    %rbp
ret

x86 assembly (clang, -O2):
<wcrossprod>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %r9d,%r9d
jle    12e2 <wcrossprod+0x1e2>
mov    %r8d,%ebx
mov    %r9d,%r8d
movslq 0x38(%rsp),%rax
mov    %eax,%ebp
mov    %rbp,-0x10(%rsp)
mov    %ebx,%r15d
add    $0xffffffffffffffff,%r15
lea    (%rsi,%rax,8),%rbp
mov    %rbp,-0x38(%rsp)
mov    %rax,-0x50(%rsp)
mov    %rax,%rbp
shl    $0x4,%rbp
lea    (%rdi,%r8,8),%rax
mov    %r8,-0x48(%rsp)
shl    $0x4,%r8
mov    %rbp,-0x30(%rsp)
add    %rsi,%rbp
mov    %rbp,-0x40(%rsp)
lea    (%rdi,%r8,1),%r10
mov    %r15,-0x28(%rsp)
and    $0xfffffffffffffffe,%r15
neg    %r15
xor    %ebp,%ebp
mov    %rbp,-0x60(%rsp)
mov    %ebx,-0x54(%rsp)
mov    %rsi,-0x18(%rsp)
mov    %rdi,-0x20(%rsp)
jmp    11b4 <wcrossprod+0xb4>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    -0x60(%rsp),%r9
add    $0x1,%r9
add    $0x8,%rax
add    $0x8,%r10
mov    %r9,%rbp
mov    %r9,-0x60(%rsp)
cmp    -0x48(%rsp),%r9
je     12e2 <wcrossprod+0x1e2>
cmpl   $0x0,0x38(%rsp)
jle    1190 <wcrossprod+0x90>
mov    -0x60(%rsp),%rbp
imul   -0x50(%rsp),%rbp
mov    %rbp,-0x8(%rsp)
mov    -0x40(%rsp),%r11
mov    -0x38(%rsp),%r14
xor    %r12d,%r12d
jmp    11f3 <wcrossprod+0xf3>
nopw   0x0(%rax,%rax,1)
add    $0x1,%r12
add    $0x8,%r14
add    $0x8,%r11
cmp    -0x10(%rsp),%r12
je     1190 <wcrossprod+0x90>
mov    -0x8(%rsp),%rbp
lea    (%r12,%rbp,1),%r13
mov    -0x60(%rsp),%rbp
movsd  (%rdi,%rbp,8),%xmm0
mulsd  (%rsi,%r12,8),%xmm0
mulsd  (%rdx),%xmm0
movsd  %xmm0,(%rcx,%r13,8)
cmp    $0x2,%ebx
jl     11e0 <wcrossprod+0xe0>
mov    $0x1,%r9d
je     1290 <wcrossprod+0x190>
mov    $0x1,%r9d
xor    %esi,%esi
xor    %edi,%edi
mov    -0x30(%rsp),%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rax,%rsi,1),%xmm1
mulsd  (%r14,%rdi,1),%xmm1
mulsd  (%rdx,%r9,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%r13,8)
movsd  (%r10,%rsi,1),%xmm0
mulsd  (%r11,%rdi,1),%xmm0
mulsd  0x8(%rdx,%r9,8),%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rcx,%r13,8)
add    %rbx,%rdi
add    %r8,%rsi
lea    (%r15,%r9,1),%rbp
add    $0x2,%rbp
add    $0x2,%r9
cmp    $0x1,%rbp
jne    1240 <wcrossprod+0x140>
testb  $0x1,-0x28(%rsp)
mov    -0x54(%rsp),%ebx
mov    -0x18(%rsp),%rsi
mov    -0x20(%rsp),%rdi
je     11e0 <wcrossprod+0xe0>
mov    %r9,%rbp
imul   -0x48(%rsp),%rbp
add    -0x60(%rsp),%rbp
movsd  (%rdi,%rbp,8),%xmm1
mov    %r9,%rbp
imul   -0x50(%rsp),%rbp
add    %r12,%rbp
mulsd  (%rsi,%rbp,8),%xmm1
mulsd  (%rdx,%r9,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%r13,8)
jmp    11e0 <wcrossprod+0xe0>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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