void dcopy_ref(int n, double *A, int lda, double *C) {
  int ii, jj;
  for (jj = 0; jj < n; jj++) {
    for (ii = jj; ii < n; ii++) {
      C[ii + lda * jj] = A[ii + lda * jj];
    }
  }
}


x86 assembly (clang, -O0):
<dcopy_ref>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1188 <dcopy_ref+0x88>
mov    -0x28(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1175 <dcopy_ref+0x75>
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    -0x14(%rbp),%edx
imul   -0x28(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    -0x14(%rbp),%edx
imul   -0x28(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112b <dcopy_ref+0x2b>
jmp    117a <dcopy_ref+0x7a>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1119 <dcopy_ref+0x19>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dcopy_ref>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %edi,%edi
jle    12fc <dcopy_ref+0x1fc>
movslq %edx,%rax
mov    %edi,%r15d
lea    0x0(,%rax,8),%rdx
mov    %rdx,-0x8(%rsp)
mov    %rax,-0x10(%rsp)
lea    0x8(,%rax,8),%rax
mov    %rax,-0x18(%rsp)
lea    0x30(%rcx),%r13
lea    0x30(%rsi),%rax
lea    -0x4(%r15),%r11
xor    %r14d,%r14d
mov    %rsi,%rbx
mov    %rcx,%rdx
jmp    1177 <dcopy_ref+0x77>
xchg   %ax,%ax
add    $0x1,%r14
mov    -0x18(%rsp),%rdi
add    %rdi,%r13
add    %rdi,%rax
add    $0xffffffffffffffff,%r11
mov    -0x8(%rsp),%rdi
add    %rdi,%rdx
add    %rdi,%rbx
cmp    %r15,%r14
je     12fc <dcopy_ref+0x1fc>
mov    %r15,%r12
sub    %r14,%r12
mov    %r14,%rdi
cmp    $0x4,%r12
jb     1280 <dcopy_ref+0x180>
mov    -0x18(%rsp),%r9
imul   %r14,%r9
mov    %r14,%r10
imul   -0x10(%rsp),%r10
lea    (%r10,%r15,1),%rdi
lea    (%rsi,%rdi,8),%r8
lea    (%rcx,%r9,1),%rbp
cmp    %r8,%rbp
jae    11c0 <dcopy_ref+0xc0>
add    %rsi,%r9
lea    (%rcx,%rdi,8),%rbp
mov    %r14,%rdi
cmp    %rbp,%r9
jb     1280 <dcopy_ref+0x180>
mov    %rsi,%rbp
mov    %rcx,%rsi
lea    -0x4(%r12),%rcx
mov    %rcx,%r8
shr    $0x2,%r8
add    $0x1,%r8
cmp    $0x4,%rcx
jae    11e1 <dcopy_ref+0xe1>
xor    %r9d,%r9d
jmp    1239 <dcopy_ref+0x139>
mov    %r11,%rdi
shr    $0x2,%rdi
add    $0x1,%rdi
and    $0xfffffffffffffffe,%rdi
xor    %r9d,%r9d
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movups -0x30(%rax,%r9,8),%xmm0
movups -0x20(%rax,%r9,8),%xmm1
movups %xmm0,-0x30(%r13,%r9,8)
movups %xmm1,-0x20(%r13,%r9,8)
movups -0x10(%rax,%r9,8),%xmm0
movups (%rax,%r9,8),%xmm1
movups %xmm0,-0x10(%r13,%r9,8)
movups %xmm1,0x0(%r13,%r9,8)
add    $0x8,%r9
add    $0xfffffffffffffffe,%rdi
jne    1200 <dcopy_ref+0x100>
mov    %r12,%rdi
and    $0xfffffffffffffffc,%rdi
test   $0x1,%r8b
mov    %rsi,%rcx
je     1269 <dcopy_ref+0x169>
add    %r14,%r9
add    %r10,%r9
mov    %rbp,%rsi
movups 0x0(%rbp,%r9,8),%xmm0
movups 0x10(%rbp,%r9,8),%xmm1
movups %xmm0,(%rcx,%r9,8)
movups %xmm1,0x10(%rcx,%r9,8)
cmp    %rdi,%r12
mov    %rbp,%rsi
je     1150 <dcopy_ref+0x50>
add    %r14,%rdi
nopl   0x0(%rax,%rax,1)
mov    %r15d,%ebp
sub    %edi,%ebp
mov    %rdi,%r8
not    %r8
add    %r15,%r8
and    $0x3,%rbp
je     12b4 <dcopy_ref+0x1b4>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%rbx,%rdi,8),%xmm0
movsd  %xmm0,(%rdx,%rdi,8)
add    $0x1,%rdi
add    $0xffffffffffffffff,%rbp
jne    12a0 <dcopy_ref+0x1a0>
cmp    $0x3,%r8
jb     1150 <dcopy_ref+0x50>
xchg   %ax,%ax
movsd  (%rbx,%rdi,8),%xmm0
movsd  %xmm0,(%rdx,%rdi,8)
movsd  0x8(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x8(%rdx,%rdi,8)
movsd  0x10(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x10(%rdx,%rdi,8)
movsd  0x18(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x18(%rdx,%rdi,8)
add    $0x4,%rdi
cmp    %rdi,%r15
jne    12c0 <dcopy_ref+0x1c0>
jmp    1150 <dcopy_ref+0x50>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @dcopy_ref(i32 %0, double* %1, i32 %2, double* %3) {
%5 = alloca i32
%6 = alloca double*
%7 = alloca i32
%8 = alloca double*
%9 = alloca i32
%10 = alloca i32
store i32 %0, i32* %5
store double* %1, double** %6
store i32 %2, i32* %7
store double* %3, double** %8
store i32 0, i32* %10
br label %11
11: ; preds = %43, %4
%12 = load i32, i32* %10
%13 = load i32, i32* %5
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %46
15: ; preds = %11
%16 = load i32, i32* %10
store i32 %16, i32* %9
br label %17
17: ; preds = %39, %15
%18 = load i32, i32* %9
%19 = load i32, i32* %5
%20 = icmp slt i32 %18, %19
br i1 %20, label %21, label %42
21: ; preds = %17
%22 = load double*, double** %6
%23 = load i32, i32* %9
%24 = load i32, i32* %7
%25 = load i32, i32* %10
%26 = mul nsw i32 %24, %25
%27 = add nsw i32 %23, %26
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds double, double* %22, i64 %28
%30 = load double, double* %29
%31 = load double*, double** %8
%32 = load i32, i32* %9
%33 = load i32, i32* %7
%34 = load i32, i32* %10
%35 = mul nsw i32 %33, %34
%36 = add nsw i32 %32, %35
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %31, i64 %37
store double %30, double* %38
br label %39
39: ; preds = %21
%40 = load i32, i32* %9
%41 = add nsw i32 %40, 1
store i32 %41, i32* %9
br label %17
42: ; preds = %17
br label %43
43: ; preds = %42
%44 = load i32, i32* %10
%45 = add nsw i32 %44, 1
store i32 %45, i32* %10
br label %11
46: ; preds = %11
ret void
}

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