int write_vec(double vector[], int j, double matrix[], int row_col_size) {
  int i, err = 1;
  if (j < 0 || row_col_size < 0)
    err = 0;
  for (i = 0; i < row_col_size; i++)
    matrix[i + row_col_size * j] = vector[i];
  return (err);
}


x86 assembly (clang, -O0):
<write_vec>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x1,-0x24(%rbp)
cmpl   $0x0,-0xc(%rbp)
jl     112d <write_vec+0x2d>
cmpl   $0x0,-0x1c(%rbp)
jge    1134 <write_vec+0x34>
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    117a <write_vec+0x7a>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
mov    -0x1c(%rbp),%edx
imul   -0xc(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    113b <write_vec+0x3b>
mov    -0x24(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<write_vec>:
push   %r15
push   %r14
push   %rbx
mov    %ecx,%eax
test   %ecx,%ecx
jle    12c8 <write_vec+0x1c8>
mov    %eax,%ecx
imul   %esi,%ecx
movslq %ecx,%r8
mov    %eax,%r9d
cmp    $0x4,%eax
jb     1141 <write_vec+0x41>
lea    (%rdx,%r8,8),%rcx
lea    (%rdi,%r9,8),%rbx
cmp    %rbx,%rcx
jae    11cc <write_vec+0xcc>
lea    (%r8,%r9,1),%rcx
lea    (%rdx,%rcx,8),%rcx
cmp    %rdi,%rcx
jbe    11cc <write_vec+0xcc>
xor    %ecx,%ecx
mov    %rcx,%r10
not    %r10
add    %r9,%r10
mov    %r9,%rbx
and    $0x3,%rbx
je     1175 <write_vec+0x75>
lea    (%rdx,%r8,8),%r11
nopl   0x0(%rax)
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%r11,%rcx,8)
add    $0x1,%rcx
add    $0xffffffffffffffff,%rbx
jne    1160 <write_vec+0x60>
cmp    $0x3,%r10
jb     12c8 <write_vec+0x1c8>
lea    (%rdx,%r8,8),%rdx
add    $0x18,%rdx
nopw   0x0(%rax,%rax,1)
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x18(%rdx,%rcx,8)
movsd  0x8(%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x10(%rdx,%rcx,8)
movsd  0x10(%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x8(%rdx,%rcx,8)
movsd  0x18(%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%rdx,%rcx,8)
add    $0x4,%rcx
cmp    %rcx,%r9
jne    1190 <write_vec+0x90>
jmp    12c8 <write_vec+0x1c8>
mov    %r9d,%ecx
and    $0xfffffffc,%ecx
lea    -0x4(%rcx),%rbx
mov    %rbx,%r11
shr    $0x2,%r11
add    $0x1,%r11
mov    %r11d,%r10d
and    $0x3,%r10d
cmp    $0xc,%rbx
jae    11f6 <write_vec+0xf6>
xor    %r15d,%r15d
jmp    1278 <write_vec+0x178>
and    $0xfffffffffffffffc,%r11
lea    (%rdx,%r8,8),%r14
add    $0x70,%r14
xor    %r15d,%r15d
cs nopw 0x0(%rax,%rax,1)
nop
movups (%rdi,%r15,8),%xmm0
movups 0x10(%rdi,%r15,8),%xmm1
movups %xmm0,-0x70(%r14,%r15,8)
movups %xmm1,-0x60(%r14,%r15,8)
movups 0x20(%rdi,%r15,8),%xmm0
movups 0x30(%rdi,%r15,8),%xmm1
movups %xmm0,-0x50(%r14,%r15,8)
movups %xmm1,-0x40(%r14,%r15,8)
movups 0x40(%rdi,%r15,8),%xmm0
movups 0x50(%rdi,%r15,8),%xmm1
movups %xmm0,-0x30(%r14,%r15,8)
movups %xmm1,-0x20(%r14,%r15,8)
movups 0x60(%rdi,%r15,8),%xmm0
movups 0x70(%rdi,%r15,8),%xmm1
movups %xmm0,-0x10(%r14,%r15,8)
movups %xmm1,(%r14,%r15,8)
add    $0x10,%r15
add    $0xfffffffffffffffc,%r11
jne    1210 <write_vec+0x110>
test   %r10,%r10
je     12bf <write_vec+0x1bf>
lea    (%r15,%r8,1),%rbx
lea    (%rdx,%rbx,8),%r11
add    $0x10,%r11
lea    (%rdi,%r15,8),%r14
add    $0x10,%r14
shl    $0x5,%r10
xor    %ebx,%ebx
nopw   0x0(%rax,%rax,1)
movups -0x10(%r14,%rbx,1),%xmm0
movups (%r14,%rbx,1),%xmm1
movups %xmm0,-0x10(%r11,%rbx,1)
movups %xmm1,(%r11,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r10
jne    12a0 <write_vec+0x1a0>
cmp    %r9,%rcx
jne    1143 <write_vec+0x43>
or     %esi,%eax
not    %eax
shr    $0x1f,%eax
pop    %rbx
pop    %r14
pop    %r15
ret

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

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