void dscal(int n, float da, float dx[], int incx) {
  int i, m, mp1, nincx;
  mp1 = 0;
  m = 0;
  if (n <= 0)
    return;
  if (incx != 1) {
    nincx = n * incx;
    for (i = 0; i < nincx; i = i + incx)
      dx[i] = da * dx[i];
    return;
  }
  for (i = 0; i < n; i++)
    dx[i] = da * dx[i];
}


x86 assembly (clang, -O0):
<dscal>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movss  %xmm0,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x0,-0x4(%rbp)
jg     1130 <dscal+0x30>
jmp    11c9 <dscal+0xc9>
cmpl   $0x1,-0x14(%rbp)
je     1189 <dscal+0x89>
mov    -0x4(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x24(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1184 <dscal+0x84>
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    114b <dscal+0x4b>
jmp    11c9 <dscal+0xc9>
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11c9 <dscal+0xc9>
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1190 <dscal+0x90>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dscal>:
test   %edi,%edi
jle    11f7 <dscal+0xf7>
cmp    $0x1,%edx
jne    111b <dscal+0x1b>
mov    %edi,%eax
cmp    $0x8,%edi
jae    114b <dscal+0x4b>
xor    %ecx,%ecx
jmp    11e0 <dscal+0xe0>
imul   %edx,%edi
test   %edi,%edi
jle    11f7 <dscal+0xf7>
movslq %edx,%rax
mov    %edi,%ecx
xor    %edx,%edx
nopl   (%rax)
movss  (%rsi,%rdx,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rsi,%rdx,4)
add    %rax,%rdx
cmp    %rcx,%rdx
jl     1130 <dscal+0x30>
jmp    11f7 <dscal+0xf7>
mov    %eax,%ecx
and    $0xfffffff8,%ecx
movaps %xmm0,%xmm1
shufps $0x0,%xmm0,%xmm1
lea    -0x8(%rcx),%rdx
mov    %rdx,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     11f8 <dscal+0xf8>
mov    %r8,%rdi
and    $0xfffffffffffffffe,%rdi
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movups (%rsi,%rdx,4),%xmm2
movups 0x10(%rsi,%rdx,4),%xmm3
movups 0x20(%rsi,%rdx,4),%xmm4
movups 0x30(%rsi,%rdx,4),%xmm5
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,(%rsi,%rdx,4)
movups %xmm3,0x10(%rsi,%rdx,4)
mulps  %xmm1,%xmm4
mulps  %xmm1,%xmm5
movups %xmm4,0x20(%rsi,%rdx,4)
movups %xmm5,0x30(%rsi,%rdx,4)
add    $0x10,%rdx
add    $0xfffffffffffffffe,%rdi
jne    1180 <dscal+0x80>
test   $0x1,%r8b
je     11da <dscal+0xda>
movups (%rsi,%rdx,4),%xmm2
movups 0x10(%rsi,%rdx,4),%xmm3
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,(%rsi,%rdx,4)
movups %xmm3,0x10(%rsi,%rdx,4)
cmp    %rax,%rcx
je     11f7 <dscal+0xf7>
nop
movss  (%rsi,%rcx,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rsi,%rcx,4)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    11e0 <dscal+0xe0>
ret
xor    %edx,%edx
test   $0x1,%r8b
jne    11c2 <dscal+0xc2>
jmp    11da <dscal+0xda>

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

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