void crossprodslow(double **x, int n, int p, double **xpx) {
  int i, j, k;
  for (j = 0; j < p; j++) {
    for (k = 0; k < p; k++) {
      xpx[j][k] = 0.0;
    }
  }
  for (i = 0; i < n; i++) {
    for (j = 0; j < p; j++) {
      for (k = 0; k < p; k++) {
        xpx[j][k] += x[i][j] * x[i][k];
      }
    }
  }
  return;
}


x86 assembly (clang, -O0):
<crossprodslow>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1171 <crossprodslow+0x71>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    115e <crossprodslow+0x5e>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112c <crossprodslow+0x2c>
jmp    1163 <crossprodslow+0x63>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1119 <crossprodslow+0x19>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    122a <crossprodslow+0x12a>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1217 <crossprodslow+0x117>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1204 <crossprodslow+0x104>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    119e <crossprodslow+0x9e>
jmp    1209 <crossprodslow+0x109>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    118b <crossprodslow+0x8b>
jmp    121c <crossprodslow+0x11c>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1178 <crossprodslow+0x78>
pop    %rbp
ret

x86 assembly (clang, -O2):
<crossprodslow>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %rcx,%r15
mov    %edx,%r13d
mov    %esi,0x8(%rsp)
mov    %rdi,0x18(%rsp)
mov    %edx,%ebp
test   %edx,%edx
jle    1219 <crossprodslow+0x109>
lea    0x0(,%rbp,8),%r12
lea    -0x1(%rbp),%rax
mov    %ebp,%ecx
and    $0x7,%ecx
mov    %rcx,0x10(%rsp)
cmp    $0x7,%rax
jae    115b <crossprodslow+0x4b>
xor    %r14d,%r14d
jmp    11f0 <crossprodslow+0xe0>
mov    %ebp,%ebx
and    $0xfffffff8,%ebx
xor    %r14d,%r14d
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    (%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x8(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x10(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x18(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x20(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x28(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x30(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    0x38(%r15,%r14,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
add    $0x8,%r14
cmp    %r14,%rbx
jne    1170 <crossprodslow+0x60>
cmpq   $0x0,0x10(%rsp)
je     1219 <crossprodslow+0x109>
lea    (%r15,%r14,8),%r14
xor    %ebx,%ebx
xchg   %ax,%ax
mov    (%r14,%rbx,8),%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
add    $0x1,%rbx
cmp    %rbx,0x10(%rsp)
jne    1200 <crossprodslow+0xf0>
mov    0x8(%rsp),%eax
test   %eax,%eax
jle    13c9 <crossprodslow+0x2b9>
mov    %eax,%eax
mov    %rax,0x20(%rsp)
mov    %ebp,%eax
and    $0xfffffffc,%eax
mov    %rax,0x10(%rsp)
mov    %rbp,%r14
neg    %r14
lea    0x0(,%rbp,8),%rsi
and    $0xffffffffffffffe0,%rsi
xor    %eax,%eax
mov    %rax,0x8(%rsp)
jmp    127c <crossprodslow+0x16c>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    0x8(%rsp),%rcx
add    $0x1,%rcx
mov    %rcx,%rax
mov    %rcx,0x8(%rsp)
cmp    0x20(%rsp),%rcx
je     13c9 <crossprodslow+0x2b9>
test   %r13d,%r13d
jle    1260 <crossprodslow+0x150>
mov    0x18(%rsp),%rax
mov    0x8(%rsp),%rcx
mov    (%rax,%rcx,8),%rax
lea    (%rax,%rbp,8),%r11
xor    %ecx,%ecx
jmp    12a9 <crossprodslow+0x199>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rcx
cmp    %rbp,%rcx
je     1260 <crossprodslow+0x150>
mov    (%r15,%rcx,8),%rdi
cmp    $0x4,%r13d
jb     1350 <crossprodslow+0x240>
lea    (%rax,%rcx,8),%rdx
add    $0x8,%rdx
lea    (%rax,%rcx,8),%r12
lea    (%rdi,%rbp,8),%r8
cmp    %r11,%rdi
setb   %r9b
cmp    %r8,%rax
setb   %r10b
cmp    %rdx,%rdi
setb   %bl
cmp    %r8,%r12
setb   %r12b
test   %r10b,%r9b
jne    1350 <crossprodslow+0x240>
mov    $0x0,%edx
and    %r12b,%bl
jne    1352 <crossprodslow+0x242>
movsd  (%rax,%rcx,8),%xmm0
unpcklpd %xmm0,%xmm0
xor    %edx,%edx
nopl   0x0(%rax)
movupd (%rax,%rdx,1),%xmm1
movupd 0x10(%rax,%rdx,1),%xmm2
movupd (%rdi,%rdx,1),%xmm3
movupd 0x10(%rdi,%rdx,1),%xmm4
mulpd  %xmm0,%xmm1
addpd  %xmm3,%xmm1
mulpd  %xmm0,%xmm2
addpd  %xmm4,%xmm2
movupd %xmm1,(%rdi,%rdx,1)
movupd %xmm2,0x10(%rdi,%rdx,1)
add    $0x20,%rdx
cmp    %rdx,%rsi
jne    1300 <crossprodslow+0x1f0>
mov    0x10(%rsp),%rbx
mov    %rbx,%rdx
cmp    %rbp,%rbx
je     12a0 <crossprodslow+0x190>
jmp    1352 <crossprodslow+0x242>
nopl   (%rax)
xor    %edx,%edx
mov    %rdx,%rbx
test   $0x1,%bpl
je     1376 <crossprodslow+0x266>
movsd  (%rax,%rcx,8),%xmm0
mulsd  (%rax,%rdx,8),%xmm0
addsd  (%rdi,%rdx,8),%xmm0
movsd  %xmm0,(%rdi,%rdx,8)
mov    %rdx,%rbx
or     $0x1,%rbx
not    %rdx
cmp    %r14,%rdx
je     12a0 <crossprodslow+0x190>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rax,%rcx,8),%xmm0
mulsd  (%rax,%rbx,8),%xmm0
addsd  (%rdi,%rbx,8),%xmm0
movsd  %xmm0,(%rdi,%rbx,8)
movsd  (%rax,%rcx,8),%xmm0
mulsd  0x8(%rax,%rbx,8),%xmm0
addsd  0x8(%rdi,%rbx,8),%xmm0
movsd  %xmm0,0x8(%rdi,%rbx,8)
add    $0x2,%rbx
cmp    %rbx,%rbp
jne    1390 <crossprodslow+0x280>
jmp    12a0 <crossprodslow+0x190>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @crossprodslow(double** nocapture %0, i32 %1, i32 %2, double** nocapture %3) {
%5 = icmp sgt i32 %2, 0
br i1 %5, label %6, label %26
6: ; preds = %4
%7 = zext i32 %2 to i64
%8 = shl nuw nsw i64 %7, 3
%9 = add nsw i64 %7, -1
%10 = and i64 %7, 7
%11 = icmp ult i64 %9, 7
br i1 %11, label %14, label %12
12: ; preds = %6
%13 = and i64 %7, 4294967288
br label %37
14: ; preds = %37, %6
%15 = phi i64 [ 0, %6 ], [ %71, %37 ]
%16 = icmp eq i64 %10, 0
br i1 %16, label %26, label %17
17: ; preds = %14, %17
%18 = phi i64 [ %23, %17 ], [ %15, %14 ]
%19 = phi i64 [ %24, %17 ], [ 0, %14 ]
%20 = getelementptr inbounds double*, double** %3, i64 %18
%21 = bitcast double** %20 to i8**
%22 = load i8*, i8** %21
%23 = add nuw nsw i64 %18, 1
%24 = add i64 %19, 1
%25 = icmp eq i64 %24, %10
br i1 %25, label %26, label %17
26: ; preds = %14, %17, %4
%27 = icmp sgt i32 %1, 0
br i1 %27, label %28, label %161
28: ; preds = %26
%29 = zext i32 %1 to i64
%30 = zext i32 %2 to i64
%31 = icmp ult i32 %2, 4
%32 = and i64 %30, 4294967292
%33 = icmp eq i64 %32, %30
%34 = and i64 %30, 1
%35 = icmp eq i64 %34, 0
%36 = sub nsw i64 0, %30
br label %74
37: ; preds = %37, %12
%38 = phi i64 [ 0, %12 ], [ %71, %37 ]
%39 = phi i64 [ 0, %12 ], [ %72, %37 ]
%40 = getelementptr inbounds double*, double** %3, i64 %38
%41 = bitcast double** %40 to i8**
%42 = load i8*, i8** %41
%43 = or i64 %38, 1
%44 = getelementptr inbounds double*, double** %3, i64 %43
%45 = bitcast double** %44 to i8**
%46 = load i8*, i8** %45
%47 = or i64 %38, 2
%48 = getelementptr inbounds double*, double** %3, i64 %47
%49 = bitcast double** %48 to i8**
%50 = load i8*, i8** %49
%51 = or i64 %38, 3
%52 = getelementptr inbounds double*, double** %3, i64 %51
%53 = bitcast double** %52 to i8**
%54 = load i8*, i8** %53
%55 = or i64 %38, 4
%56 = getelementptr inbounds double*, double** %3, i64 %55
%57 = bitcast double** %56 to i8**
%58 = load i8*, i8** %57
%59 = or i64 %38, 5
%60 = getelementptr inbounds double*, double** %3, i64 %59
%61 = bitcast double** %60 to i8**
%62 = load i8*, i8** %61
%63 = or i64 %38, 6
%64 = getelementptr inbounds double*, double** %3, i64 %63
%65 = bitcast double** %64 to i8**
%66 = load i8*, i8** %65
%67 = or i64 %38, 7
%68 = getelementptr inbounds double*, double** %3, i64 %67
%69 = bitcast double** %68 to i8**
%70 = load i8*, i8** %69
%71 = add nuw nsw i64 %38, 8
%72 = add i64 %39, 8
%73 = icmp eq i64 %72, %13
br i1 %73, label %14, label %37
74: ; preds = %28, %158
%75 = phi i64 [ 0, %28 ], [ %159, %158 ]
br i1 %5, label %76, label %158
76: ; preds = %74
%77 = getelementptr inbounds double*, double** %0, i64 %75
%78 = load double*, double** %77
%79 = getelementptr double, double* %78, i64 %30
br label %80
80: ; preds = %155, %76
%81 = phi i64 [ 0, %76 ], [ %156, %155 ]
%82 = getelementptr inbounds double, double* %78, i64 %81
%83 = getelementptr inbounds double*, double** %3, i64 %81
%84 = load double*, double** %83
br i1 %31, label %124, label %85
85: ; preds = %80
%86 = add nuw i64 %81, 1
%87 = getelementptr double, double* %78, i64 %86
%88 = getelementptr double, double* %78, i64 %81
%89 = getelementptr double, double* %84, i64 %30
%90 = icmp ult double* %84, %79
%91 = icmp ult double* %78, %89
%92 = and i1 %90, %91
%93 = icmp ult double* %84, %87
%94 = icmp ult double* %88, %89
%95 = and i1 %93, %94
%96 = or i1 %92, %95
br i1 %96, label %124, label %97
97: ; preds = %85
%98 = load double, double* %82
%99 = insertelement <2 x double> poison, double %98, i64 0
%100 = shufflevector <2 x double> %99, <2 x double> poison, <2 x i32> zeroinitializer
%101 = insertelement <2 x double> poison, double %98, i64 0
%102 = shufflevector <2 x double> %101, <2 x double> poison, <2 x i32> zeroinitializer
br label %103
103: ; preds = %103, %97
%104 = phi i64 [ 0, %97 ], [ %121, %103 ]
%105 = getelementptr inbounds double, double* %78, i64 %104
%106 = bitcast double* %105 to <2 x double>*
%107 = load <2 x double>, <2 x double>* %106
%108 = getelementptr inbounds double, double* %105, i64 2
%109 = bitcast double* %108 to <2 x double>*
%110 = load <2 x double>, <2 x double>* %109
%111 = getelementptr inbounds double, double* %84, i64 %104
%112 = bitcast double* %111 to <2 x double>*
%113 = load <2 x double>, <2 x double>* %112
%114 = getelementptr inbounds double, double* %111, i64 2
%115 = bitcast double* %114 to <2 x double>*
%116 = load <2 x double>, <2 x double>* %115
%117 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %100, <2 x double> %107, <2 x double> %113)
%118 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %102, <2 x double> %110, <2 x double> %116)
%119 = bitcast double* %111 to <2 x double>*
store <2 x double> %117, <2 x double>* %119
%120 = bitcast double* %114 to <2 x double>*
store <2 x double> %118, <2 x double>* %120
%121 = add nuw i64 %104, 4
%122 = icmp eq i64 %121, %32
br i1 %122, label %123, label %103
123: ; preds = %103
br i1 %33, label %155, label %124
124: ; preds = %85, %80, %123
%125 = phi i64 [ 0, %85 ], [ 0, %80 ], [ %32, %123 ]
%126 = xor i64 %125, -1
br i1 %35, label %135, label %127
127: ; preds = %124
%128 = load double, double* %82
%129 = getelementptr inbounds double, double* %78, i64 %125
%130 = load double, double* %129
%131 = getelementptr inbounds double, double* %84, i64 %125
%132 = load double, double* %131
%133 = tail call double @llvm.fmuladd.f64(double %128, double %130, double %132)
store double %133, double* %131
%134 = or i64 %125, 1
br label %135
135: ; preds = %127, %124
%136 = phi i64 [ %125, %124 ], [ %134, %127 ]
%137 = icmp eq i64 %126, %36
br i1 %137, label %155, label %138
138: ; preds = %135, %138
%139 = phi i64 [ %153, %138 ], [ %136, %135 ]
%140 = load double, double* %82
%141 = getelementptr inbounds double, double* %78, i64 %139
%142 = load double, double* %141
%143 = getelementptr inbounds double, double* %84, i64 %139
%144 = load double, double* %143
%145 = tail call double @llvm.fmuladd.f64(double %140, double %142, double %144)
store double %145, double* %143
%146 = add nuw nsw i64 %139, 1
%147 = load double, double* %82
%148 = getelementptr inbounds double, double* %78, i64 %146
%149 = load double, double* %148
%150 = getelementptr inbounds double, double* %84, i64 %146
%151 = load double, double* %150
%152 = tail call double @llvm.fmuladd.f64(double %147, double %149, double %151)
store double %152, double* %150
%153 = add nuw nsw i64 %139, 2
%154 = icmp eq i64 %153, %30
br i1 %154, label %155, label %138
155: ; preds = %135, %138, %123
%156 = add nuw nsw i64 %81, 1
%157 = icmp eq i64 %156, %30
br i1 %157, label %158, label %80
158: ; preds = %155, %74
%159 = add nuw nsw i64 %75, 1
%160 = icmp eq i64 %159, %29
br i1 %160, label %161, label %74
161: ; preds = %158, %26
ret void
}