int double2float(int xn, double *xp, int yn, float *yp) {

  int k;
  for (k = 0; k < xn; k++) {
    yp[k] = xp[k];
  }
  return 0;
}


x86 assembly (clang, -O0):
<double2float>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1151 <double2float+0x51>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1119 <double2float+0x19>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<double2float>:
test   %edi,%edi
jle    11c7 <double2float+0xc7>
mov    %edi,%r9d
cmp    $0x4,%edi
jae    1117 <double2float+0x17>
xor    %edx,%edx
jmp    11b0 <double2float+0xb0>
mov    %r9d,%edx
and    $0xfffffffc,%edx
lea    -0x4(%rdx),%rax
mov    %rax,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rax,%rax
je     11ca <double2float+0xca>
mov    %r8,%rax
and    $0xfffffffffffffffe,%rax
xor    %edi,%edi
xchg   %ax,%ax
movupd (%rsi,%rdi,8),%xmm0
movupd 0x10(%rsi,%rdi,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,(%rcx,%rdi,4)
movupd 0x20(%rsi,%rdi,8),%xmm0
movupd 0x30(%rsi,%rdi,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,0x10(%rcx,%rdi,4)
add    $0x8,%rdi
add    $0xfffffffffffffffe,%rax
jne    1140 <double2float+0x40>
test   $0x1,%r8b
je     11a6 <double2float+0xa6>
movupd (%rsi,%rdi,8),%xmm0
movupd 0x10(%rsi,%rdi,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,(%rcx,%rdi,4)
cmp    %r9,%rdx
je     11c7 <double2float+0xc7>
nopl   0x0(%rax,%rax,1)
movsd  (%rsi,%rdx,8),%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,(%rcx,%rdx,4)
add    $0x1,%rdx
cmp    %rdx,%r9
jne    11b0 <double2float+0xb0>
xor    %eax,%eax
ret
xor    %edi,%edi
test   $0x1,%r8b
jne    118a <double2float+0x8a>
jmp    11a6 <double2float+0xa6>

LLVM IR (-O0):
define i32 @double2float(i32 %0, double* %1, i32 %2, float* %3) {
%5 = alloca i32
%6 = alloca double*
%7 = alloca i32
%8 = alloca float*
%9 = alloca i32
store i32 %0, i32* %5
store double* %1, double** %6
store i32 %2, i32* %7
store float* %3, float** %8
store i32 0, i32* %9
br label %10
10: ; preds = %25, %4
%11 = load i32, i32* %9
%12 = load i32, i32* %5
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %28
14: ; preds = %10
%15 = load double*, double** %6
%16 = load i32, i32* %9
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds double, double* %15, i64 %17
%19 = load double, double* %18
%20 = fptrunc double %19 to float
%21 = load float*, float** %8
%22 = load i32, i32* %9
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds float, float* %21, i64 %23
store float %20, float* %24
br label %25
25: ; preds = %14
%26 = load i32, i32* %9
%27 = add nsw i32 %26, 1
store i32 %27, i32* %9
br label %10
28: ; preds = %10
ret i32 0
}

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