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


x86 assembly (clang, -O0):
<crossprod>:
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 <crossprod+0x71>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    115e <crossprod+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 <crossprod+0x2c>
jmp    1163 <crossprod+0x63>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1119 <crossprod+0x19>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    122a <crossprod+0x12a>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1217 <crossprod+0x117>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1204 <crossprod+0x104>
mov    -0x30(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%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    11ae <crossprod+0xae>
jmp    1209 <crossprod+0x109>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    119b <crossprod+0x9b>
jmp    121c <crossprod+0x11c>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1178 <crossprod+0x78>
pop    %rbp
ret

x86 assembly (clang, -O2):
<crossprod>:
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 <crossprod+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 <crossprod+0x4b>
xor    %r14d,%r14d
jmp    11f0 <crossprod+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 <crossprod+0x60>
cmpq   $0x0,0x10(%rsp)
je     1219 <crossprod+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 <crossprod+0xf0>
mov    0x8(%rsp),%eax
test   %eax,%eax
jle    13c9 <crossprod+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 <crossprod+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 <crossprod+0x2b9>
test   %r13d,%r13d
jle    1260 <crossprod+0x150>
mov    0x18(%rsp),%rax
mov    0x8(%rsp),%rcx
mov    (%rax,%rcx,8),%rax
lea    (%rax,%rbp,8),%r11
xor    %ecx,%ecx
jmp    12a9 <crossprod+0x199>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rcx
cmp    %rbp,%rcx
je     1260 <crossprod+0x150>
mov    (%r15,%rcx,8),%rdi
cmp    $0x4,%r13d
jb     1350 <crossprod+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 <crossprod+0x240>
mov    $0x0,%edx
and    %r12b,%bl
jne    1352 <crossprod+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 <crossprod+0x1f0>
mov    0x10(%rsp),%rbx
mov    %rbx,%rdx
cmp    %rbp,%rbx
je     12a0 <crossprod+0x190>
jmp    1352 <crossprod+0x242>
nopl   (%rax)
xor    %edx,%edx
mov    %rdx,%rbx
test   $0x1,%bpl
je     1376 <crossprod+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 <crossprod+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 <crossprod+0x280>
jmp    12a0 <crossprod+0x190>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @crossprod(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 ]
%76 = getelementptr inbounds double*, double** %0, i64 %75
%77 = load double*, double** %76
br i1 %5, label %78, label %158
78: ; preds = %74
%79 = getelementptr double, double* %77, i64 %30
br label %80
80: ; preds = %78, %155
%81 = phi i64 [ %156, %155 ], [ 0, %78 ]
%82 = getelementptr inbounds double, double* %77, 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* %77, i64 %86
%88 = getelementptr double, double* %77, i64 %81
%89 = getelementptr double, double* %84, i64 %30
%90 = icmp ult double* %84, %79
%91 = icmp ult double* %77, %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* %77, 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* %77, 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* %77, 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* %77, 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
}