void pack_double(double *a, double *b, int a_rows, int a_cols, int a_row_stride,
                 int a_col_stride, int b_rows, int b_cols, int b_row_stride,
                 int b_col_stride) {
  int i, j;
  for (i = 0; i < b_rows; i++) {
    for (j = 0; j < b_cols; j++) {
      if (i < a_rows && j < a_cols) {
        b[(i)*b_row_stride + (j)*b_col_stride] =
            a[(i)*a_row_stride + (j)*a_col_stride];
      } else {
        b[(i)*b_row_stride + (j)*b_col_stride] = 0;
      }
    }
  }
}


x86 assembly (clang, -O0):
<pack_double>:
push   %rbp
mov    %rsp,%rbp
mov    0x28(%rbp),%eax
mov    0x20(%rbp),%eax
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
mov    %r9d,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    11e6 <pack_double+0xe6>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    0x18(%rbp),%eax
jge    11d3 <pack_double+0xd3>
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11a1 <pack_double+0xa1>
mov    -0x28(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11a1 <pack_double+0xa1>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   -0x20(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x20(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x28(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    11c0 <pack_double+0xc0>
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   0x20(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   0x28(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
jmp    11c5 <pack_double+0xc5>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1140 <pack_double+0x40>
jmp    11d8 <pack_double+0xd8>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112d <pack_double+0x2d>
pop    %rbp
ret

x86 assembly (clang, -O2):
<pack_double>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rsi,-0x38(%rsp)
mov    %rdi,-0x40(%rsp)
mov    0x38(%rsp),%eax
test   %eax,%eax
jle    1291 <pack_double+0x191>
mov    0x40(%rsp),%edi
movslq %ecx,%rcx
movslq %r9d,%r9
movslq 0x50(%rsp),%r11
movslq %r8d,%rbp
movslq 0x48(%rsp),%r8
movslq %edx,%rdx
mov    %eax,%esi
mov    %edi,%ebx
mov    %rbx,-0x18(%rsp)
and    $0xfffffffe,%ebx
mov    %rbp,-0x28(%rsp)
lea    0x0(,%rbp,8),%rbp
mov    %rbp,-0x8(%rsp)
mov    %r9,%rax
shl    $0x4,%rax
mov    %r8,-0x20(%rsp)
lea    0x0(,%r8,8),%rbp
mov    %rbp,-0x10(%rsp)
mov    %r11,%r13
shl    $0x4,%r13
xor    %r8d,%r8d
mov    -0x38(%rsp),%r10
mov    -0x40(%rsp),%r15
mov    %rsi,-0x30(%rsp)
jmp    11ba <pack_double+0xba>
nopl   0x0(%rax)
imul   %r11,%r12
add    %r14,%r12
mov    -0x38(%rsp),%rbp
movsd  %xmm0,0x0(%rbp,%r12,8)
add    $0x1,%r8
add    -0x8(%rsp),%r15
add    -0x10(%rsp),%r10
cmp    %rsi,%r8
je     1291 <pack_double+0x191>
test   %edi,%edi
jle    11a3 <pack_double+0xa3>
cmp    $0x1,%edi
jne    11d0 <pack_double+0xd0>
xor    %r12d,%r12d
testb  $0x1,-0x18(%rsp)
je     11a3 <pack_double+0xa3>
jmp    1248 <pack_double+0x148>
nop
mov    %r10,%rbp
mov    %r15,%rdi
xor    %r14d,%r14d
jmp    11f6 <pack_double+0xf6>
nopl   0x0(%rax,%rax,1)
movsd  %xmm0,0x0(%rbp,%r11,8)
add    %rax,%rdi
add    %r13,%rbp
add    $0x1,%r14
cmp    %rbx,%r14
je     1230 <pack_double+0x130>
mov    %r14,%r12
xorps  %xmm0,%xmm0
xorps  %xmm1,%xmm1
cmp    %rdx,%r8
jge    1210 <pack_double+0x110>
xorps  %xmm1,%xmm1
cmp    %rcx,%r12
jge    1210 <pack_double+0x110>
movsd  (%rdi),%xmm1
lea    0x1(%r12),%r14
movsd  %xmm1,0x0(%rbp)
cmp    %rdx,%r8
jge    11e0 <pack_double+0xe0>
cmp    %rcx,%r14
jge    11e0 <pack_double+0xe0>
movsd  (%rdi,%r9,8),%xmm0
jmp    11e0 <pack_double+0xe0>
nopl   0x0(%rax)
add    $0x2,%r12
mov    0x40(%rsp),%edi
mov    -0x30(%rsp),%rsi
testb  $0x1,-0x18(%rsp)
je     11a3 <pack_double+0xa3>
mov    %r8,%r14
imul   -0x20(%rsp),%r14
xorps  %xmm0,%xmm0
cmp    %rdx,%r8
jge    1190 <pack_double+0x90>
cmp    %rcx,%r12
jge    1190 <pack_double+0x90>
mov    %r8,%rdi
imul   -0x28(%rsp),%rdi
mov    %r12,%rbp
imul   %r9,%rbp
add    %rdi,%rbp
mov    -0x40(%rsp),%rdi
movsd  (%rdi,%rbp,8),%xmm0
mov    -0x30(%rsp),%rsi
mov    0x40(%rsp),%edi
jmp    1190 <pack_double+0x90>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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