__attribute__((always_)) int NoFLA_Copy_triu(int m_A, int n_A, double *A,
                                             int ldim_A, double *B,
                                             int ldim_B) {
  int i, j;
  for (j = 0; j < n_A; j++) {
    for (i = 0; i <= ((j) < (m_A - 1) ? (j) : (m_A - 1)); i++) {
      B[ldim_B * j + i] = A[ldim_A * j + i];
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<NoFLA_Copy_triu>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11b9 <NoFLA_Copy_triu+0xb9>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1155 <NoFLA_Copy_triu+0x55>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x34(%rbp)
jmp    115e <NoFLA_Copy_triu+0x5e>
mov    -0x4(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x34(%rbp),%ecx
cmp    %ecx,%eax
jg     11a6 <NoFLA_Copy_triu+0xa6>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
imul   -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1133 <NoFLA_Copy_triu+0x33>
jmp    11ab <NoFLA_Copy_triu+0xab>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1120 <NoFLA_Copy_triu+0x20>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<NoFLA_Copy_triu>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8,-0x20(%rsp)
mov    %rdx,-0x28(%rsp)
test   %esi,%esi
jle    133c <NoFLA_Copy_triu+0x23c>
add    $0xffffffff,%edi
movslq %edi,%r12
movslq %ecx,%rax
movslq %r9d,%rdx
mov    %esi,%r8d
mov    -0x28(%rsp),%rbx
lea    0x30(%rbx),%rcx
mov    %rax,-0x8(%rsp)
lea    0x0(,%rax,8),%r14
mov    -0x20(%rsp),%rax
lea    0x30(%rax),%rsi
mov    %rdx,-0x10(%rsp)
lea    0x0(,%rdx,8),%r15
xor    %r13d,%r13d
mov    %r8,-0x18(%rsp)
jmp    1189 <NoFLA_Copy_triu+0x89>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%r13
add    %r14,%rcx
add    %r15,%rsi
add    %r15,%rax
add    %r14,%rbx
cmp    %r8,%r13
je     133c <NoFLA_Copy_triu+0x23c>
cmp    %r12d,%r13d
mov    %r12d,%ebp
cmovl  %r13d,%ebp
cmp    %r12,%r13
mov    %r12d,%edx
cmovl  %r13d,%edx
test   %edx,%edx
js     1170 <NoFLA_Copy_triu+0x70>
lea    0x1(%rbp),%r10d
cmp    $0x4,%r10d
jae    11c0 <NoFLA_Copy_triu+0xc0>
xor    %edi,%edi
jmp    12c0 <NoFLA_Copy_triu+0x1c0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r13,%r9
imul   -0x10(%rsp),%r9
mov    -0x20(%rsp),%rdx
lea    (%rdx,%r9,8),%r8
mov    %r13,%r11
imul   -0x8(%rsp),%r11
mov    -0x28(%rsp),%rdx
lea    (%rdx,%r11,8),%rdi
lea    (%rdi,%r10,8),%rdx
cmp    %rdx,%r8
jae    1202 <NoFLA_Copy_triu+0x102>
lea    (%r8,%r10,8),%rdx
cmp    %rdx,%rdi
jae    1202 <NoFLA_Copy_triu+0x102>
xor    %edi,%edi
mov    -0x18(%rsp),%r8
jmp    12c0 <NoFLA_Copy_triu+0x1c0>
mov    %r10d,%edx
and    $0xfffffffc,%edx
add    $0xfffffffffffffffc,%rdx
mov    %rdx,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     1272 <NoFLA_Copy_triu+0x172>
mov    %r10d,%edi
and    $0xfffffffc,%edi
add    $0xfffffffffffffffc,%rdi
shr    $0x2,%rdi
add    $0x1,%rdi
and    $0xfffffffffffffffe,%rdi
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movups -0x30(%rcx,%rdx,8),%xmm0
movups -0x20(%rcx,%rdx,8),%xmm1
movups %xmm0,-0x30(%rsi,%rdx,8)
movups %xmm1,-0x20(%rsi,%rdx,8)
movups -0x10(%rcx,%rdx,8),%xmm0
movups (%rcx,%rdx,8),%xmm1
movups %xmm0,-0x10(%rsi,%rdx,8)
movups %xmm1,(%rsi,%rdx,8)
add    $0x8,%rdx
add    $0xfffffffffffffffe,%rdi
jne    1240 <NoFLA_Copy_triu+0x140>
jmp    1274 <NoFLA_Copy_triu+0x174>
xor    %edx,%edx
mov    %r10d,%edi
and    $0xfffffffc,%edi
test   $0x1,%r8b
je     12a6 <NoFLA_Copy_triu+0x1a6>
add    %rdx,%r11
mov    -0x28(%rsp),%r8
movups (%r8,%r11,8),%xmm0
movups 0x10(%r8,%r11,8),%xmm1
add    %rdx,%r9
mov    -0x20(%rsp),%rdx
movups %xmm0,(%rdx,%r9,8)
movups %xmm1,0x10(%rdx,%r9,8)
cmp    %r10,%rdi
mov    -0x18(%rsp),%r8
je     1170 <NoFLA_Copy_triu+0x70>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rdi,%rdx
not    %rdx
add    %r10,%rdx
test   $0x3,%r10b
je     12f4 <NoFLA_Copy_triu+0x1f4>
add    $0x1,%bpl
movzbl %bpl,%ebp
and    $0x3,%ebp
nopw   0x0(%rax,%rax,1)
movsd  (%rbx,%rdi,8),%xmm0
movsd  %xmm0,(%rax,%rdi,8)
add    $0x1,%rdi
add    $0xffffffffffffffff,%rbp
jne    12e0 <NoFLA_Copy_triu+0x1e0>
cmp    $0x3,%rdx
jb     1170 <NoFLA_Copy_triu+0x70>
xchg   %ax,%ax
movsd  (%rbx,%rdi,8),%xmm0
movsd  %xmm0,(%rax,%rdi,8)
movsd  0x8(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x8(%rax,%rdi,8)
movsd  0x10(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x10(%rax,%rdi,8)
movsd  0x18(%rbx,%rdi,8),%xmm0
movsd  %xmm0,0x18(%rax,%rdi,8)
add    $0x4,%rdi
cmp    %rdi,%r10
jne    1300 <NoFLA_Copy_triu+0x200>
jmp    1170 <NoFLA_Copy_triu+0x70>
xor    %eax,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @NoFLA_Copy_triu(i32 %0, i32 %1, double* %2, i32 %3, double* %4, i32 %5) {
%7 = alloca i32
%8 = alloca i32
%9 = alloca double*
%10 = alloca i32
%11 = alloca double*
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
store i32 %0, i32* %7
store i32 %1, i32* %8
store double* %2, double** %9
store i32 %3, i32* %10
store double* %4, double** %11
store i32 %5, i32* %12
store i32 0, i32* %14
br label %15
15: ; preds = %56, %6
%16 = load i32, i32* %14
%17 = load i32, i32* %8
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %59
19: ; preds = %15
store i32 0, i32* %13
br label %20
20: ; preds = %52, %19
%21 = load i32, i32* %13
%22 = load i32, i32* %14
%23 = load i32, i32* %7
%24 = sub nsw i32 %23, 1
%25 = icmp slt i32 %22, %24
br i1 %25, label %26, label %28
26: ; preds = %20
%27 = load i32, i32* %14
br label %31
28: ; preds = %20
%29 = load i32, i32* %7
%30 = sub nsw i32 %29, 1
br label %31
31: ; preds = %28, %26
%32 = phi i32 [ %27, %26 ], [ %30, %28 ]
%33 = icmp sle i32 %21, %32
br i1 %33, label %34, label %55
34: ; preds = %31
%35 = load double*, double** %9
%36 = load i32, i32* %10
%37 = load i32, i32* %14
%38 = mul nsw i32 %36, %37
%39 = load i32, i32* %13
%40 = add nsw i32 %38, %39
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %35, i64 %41
%43 = load double, double* %42
%44 = load double*, double** %11
%45 = load i32, i32* %12
%46 = load i32, i32* %14
%47 = mul nsw i32 %45, %46
%48 = load i32, i32* %13
%49 = add nsw i32 %47, %48
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %44, i64 %50
store double %43, double* %51
br label %52
52: ; preds = %34
%53 = load i32, i32* %13
%54 = add nsw i32 %53, 1
store i32 %54, i32* %13
br label %20
55: ; preds = %31
br label %56
56: ; preds = %55
%57 = load i32, i32* %14
%58 = add nsw i32 %57, 1
store i32 %58, i32* %14
br label %15
59: ; preds = %15
ret i32 0
}

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