void c_sscal(const int N, const float alpha, float *X, const int stride) {
  int i;
  int m;
  if (N <= 0 || stride <= 0 || alpha == 1.0f) {
    return;
  }
  if (stride == 1) {
    m = N % 5;
    if (m > 0) {
      for (i = 0; i < m; i++) {
        X[i] *= alpha;
      }
    }
    if (N < 5) {
      return;
    }
    for (i = m; i < N; i += 5) {
      X[i] *= alpha;
      X[i + 1] *= alpha;
      X[i + 2] *= alpha;
      X[i + 3] *= alpha;
      X[i + 4] *= alpha;
    }
    return;
  }
  for (i = 0; i < N * stride; i += stride) {
    X[i] *= alpha;
  }
  return;
}


x86 assembly (clang, -O0):
<c_sscal>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movss  %xmm0,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
cmpl   $0x0,-0x4(%rbp)
jle    1143 <c_sscal+0x43>
cmpl   $0x0,-0x14(%rbp)
jle    1143 <c_sscal+0x43>
movss  -0x8(%rbp),%xmm0
movss  0xecc(%rip),%xmm1
ucomiss %xmm1,%xmm0
jne    1148 <c_sscal+0x48>
jp     1148 <c_sscal+0x48>
jmp    12a5 <c_sscal+0x1a5>
cmpl   $0x1,-0x14(%rbp)
jne    1262 <c_sscal+0x162>
mov    -0x4(%rbp),%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
mov    %edx,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jle    11a7 <c_sscal+0xa7>
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11a2 <c_sscal+0xa2>
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1171 <c_sscal+0x71>
jmp    11a7 <c_sscal+0xa7>
cmpl   $0x5,-0x4(%rbp)
jge    11b6 <c_sscal+0xb6>
jmp    12a5 <c_sscal+0x1a5>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    125d <c_sscal+0x15d>
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x2,%ecx
movslq %ecx,%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x4,%ecx
movslq %ecx,%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x18(%rbp)
jmp    11bc <c_sscal+0xbc>
jmp    12a5 <c_sscal+0x1a5>
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x4(%rbp),%ecx
imul   -0x14(%rbp),%ecx
cmp    %ecx,%eax
jge    12a0 <c_sscal+0x1a0>
movss  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x14(%rbp),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    1269 <c_sscal+0x169>
jmp    12a5 <c_sscal+0x1a5>
pop    %rbp
ret

x86 assembly (clang, -O2):
<c_sscal>:
ucomiss 0xef9(%rip),%xmm0
jne    110f <c_sscal+0xf>
jnp    1206 <c_sscal+0x106>
test   %edi,%edi
jle    1206 <c_sscal+0x106>
test   %edx,%edx
jle    1206 <c_sscal+0x106>
cmp    $0x1,%edx
jne    11d4 <c_sscal+0xd4>
mov    %edi,%r8d
mov    $0xcccccccd,%eax
imul   %r8,%rax
shr    $0x22,%rax
lea    (%rax,%rax,4),%eax
mov    %edi,%ecx
sub    %eax,%ecx
je     1167 <c_sscal+0x67>
mov    %ecx,%edx
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nop
movss  (%rsi,%rax,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rsi,%rax,4)
add    $0x1,%rax
cmp    %rax,%rdx
jne    1150 <c_sscal+0x50>
cmp    $0x5,%edi
jl     1206 <c_sscal+0x106>
cmp    %edi,%ecx
jge    1206 <c_sscal+0x106>
movaps %xmm0,%xmm1
shufps $0x0,%xmm0,%xmm1
mov    $0xcccccccd,%ecx
imul   %r8,%rcx
shr    $0x22,%rcx
lea    (%rcx,%rcx,4),%rax
sub    %rax,%r8
lea    (%rsi,%r8,4),%rax
add    $0x10,%rax
lea    (%rcx,%rcx,4),%edx
mov    %edi,%ecx
sub    %edx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movups -0x10(%rax),%xmm2
mulps  %xmm1,%xmm2
movups %xmm2,-0x10(%rax)
movss  (%rax),%xmm2
mulss  %xmm0,%xmm2
movss  %xmm2,(%rax)
add    $0x14,%rax
add    $0x5,%ecx
cmp    %edi,%ecx
jl     11b0 <c_sscal+0xb0>
jmp    1206 <c_sscal+0x106>
imul   %edx,%edi
test   %edi,%edi
jle    1206 <c_sscal+0x106>
mov    %edx,%eax
mov    %edi,%ecx
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movss  (%rsi,%rdx,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rsi,%rdx,4)
add    %rax,%rdx
cmp    %rcx,%rdx
jl     11f0 <c_sscal+0xf0>
ret

LLVM IR (-O0):
define void @c_sscal(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
store i32 %0, i32* %5
store float %1, float* %6
store float* %2, float** %7
store i32 %3, i32* %8
%11 = load i32, i32* %5
%12 = icmp sle i32 %11, 0
br i1 %12, label %19, label %13
13: ; preds = %4
%14 = load i32, i32* %8
%15 = icmp sle i32 %14, 0
br i1 %15, label %19, label %16
16: ; preds = %13
%17 = load float, float* %6
%18 = fcmp oeq float %17, 1.000000e+00
br i1 %18, label %19, label %20
19: ; preds = %16, %13, %4
br label %119
20: ; preds = %16
%21 = load i32, i32* %8
%22 = icmp eq i32 %21, 1
br i1 %22, label %23, label %99
23: ; preds = %20
%24 = load i32, i32* %5
%25 = srem i32 %24, 5
store i32 %25, i32* %10
%26 = load i32, i32* %10
%27 = icmp sgt i32 %26, 0
br i1 %27, label %28, label %45
28: ; preds = %23
store i32 0, i32* %9
br label %29
29: ; preds = %41, %28
%30 = load i32, i32* %9
%31 = load i32, i32* %10
%32 = icmp slt i32 %30, %31
br i1 %32, label %33, label %44
33: ; preds = %29
%34 = load float, float* %6
%35 = load float*, float** %7
%36 = load i32, i32* %9
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds float, float* %35, i64 %37
%39 = load float, float* %38
%40 = fmul float %39, %34
store float %40, float* %38
br label %41
41: ; preds = %33
%42 = load i32, i32* %9
%43 = add nsw i32 %42, 1
store i32 %43, i32* %9
br label %29
44: ; preds = %29
br label %45
45: ; preds = %44, %23
%46 = load i32, i32* %5
%47 = icmp slt i32 %46, 5
br i1 %47, label %48, label %49
48: ; preds = %45
br label %119
49: ; preds = %45
%50 = load i32, i32* %10
store i32 %50, i32* %9
br label %51
51: ; preds = %95, %49
%52 = load i32, i32* %9
%53 = load i32, i32* %5
%54 = icmp slt i32 %52, %53
br i1 %54, label %55, label %98
55: ; preds = %51
%56 = load float, float* %6
%57 = load float*, float** %7
%58 = load i32, i32* %9
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds float, float* %57, i64 %59
%61 = load float, float* %60
%62 = fmul float %61, %56
store float %62, float* %60
%63 = load float, float* %6
%64 = load float*, float** %7
%65 = load i32, i32* %9
%66 = add nsw i32 %65, 1
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds float, float* %64, i64 %67
%69 = load float, float* %68
%70 = fmul float %69, %63
store float %70, float* %68
%71 = load float, float* %6
%72 = load float*, float** %7
%73 = load i32, i32* %9
%74 = add nsw i32 %73, 2
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds float, float* %72, i64 %75
%77 = load float, float* %76
%78 = fmul float %77, %71
store float %78, float* %76
%79 = load float, float* %6
%80 = load float*, float** %7
%81 = load i32, i32* %9
%82 = add nsw i32 %81, 3
%83 = sext i32 %82 to i64
%84 = getelementptr inbounds float, float* %80, i64 %83
%85 = load float, float* %84
%86 = fmul float %85, %79
store float %86, float* %84
%87 = load float, float* %6
%88 = load float*, float** %7
%89 = load i32, i32* %9
%90 = add nsw i32 %89, 4
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds float, float* %88, i64 %91
%93 = load float, float* %92
%94 = fmul float %93, %87
store float %94, float* %92
br label %95
95: ; preds = %55
%96 = load i32, i32* %9
%97 = add nsw i32 %96, 5
store i32 %97, i32* %9
br label %51
98: ; preds = %51
br label %119
99: ; preds = %20
store i32 0, i32* %9
br label %100
100: ; preds = %114, %99
%101 = load i32, i32* %9
%102 = load i32, i32* %5
%103 = load i32, i32* %8
%104 = mul nsw i32 %102, %103
%105 = icmp slt i32 %101, %104
br i1 %105, label %106, label %118
106: ; preds = %100
%107 = load float, float* %6
%108 = load float*, float** %7
%109 = load i32, i32* %9
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds float, float* %108, i64 %110
%112 = load float, float* %111
%113 = fmul float %112, %107
store float %113, float* %111
br label %114
114: ; preds = %106
%115 = load i32, i32* %8
%116 = load i32, i32* %9
%117 = add nsw i32 %116, %115
store i32 %117, i32* %9
br label %100
118: ; preds = %100
br label %119
119: ; preds = %118, %98, %48, %19
ret void
}

LLVM IR (-O2):
define void @c_sscal(i32 %0, float %1, float* nocapture %2, i32 %3) {
%5 = icmp slt i32 %0, 1
%6 = icmp slt i32 %3, 1
%7 = or i1 %5, %6
%8 = fcmp oeq float %1, 1.000000e+00
%9 = or i1 %8, %7
br i1 %9, label %60, label %10
10: ; preds = %4
%11 = icmp eq i32 %3, 1
br i1 %11, label %18, label %12
12: ; preds = %10
%13 = mul nsw i32 %3, %0
%14 = icmp sgt i32 %13, 0
br i1 %14, label %15, label %60
15: ; preds = %12
%16 = zext i32 %3 to i64
%17 = zext i32 %13 to i64
br label %53
18: ; preds = %10
%19 = urem i32 %0, 5
%20 = icmp eq i32 %19, 0
br i1 %20, label %30, label %21
21: ; preds = %18
%22 = zext i32 %19 to i64
br label %23
23: ; preds = %21, %23
%24 = phi i64 [ 0, %21 ], [ %28, %23 ]
%25 = getelementptr inbounds float, float* %2, i64 %24
%26 = load float, float* %25
%27 = fmul float %26, %1
store float %27, float* %25
%28 = add nuw nsw i64 %24, 1
%29 = icmp eq i64 %28, %22
br i1 %29, label %30, label %23
30: ; preds = %23, %18
%31 = icmp sgt i32 %0, 4
%32 = icmp slt i32 %19, %0
%33 = and i1 %31, %32
br i1 %33, label %34, label %60
34: ; preds = %30
%35 = urem i32 %0, 5
%36 = zext i32 %35 to i64
%37 = insertelement <4 x float> poison, float %1, i64 0
%38 = shufflevector <4 x float> %37, <4 x float> poison, <4 x i32> zeroinitializer
br label %39
39: ; preds = %34, %39
%40 = phi i64 [ %36, %34 ], [ %50, %39 ]
%41 = getelementptr inbounds float, float* %2, i64 %40
%42 = bitcast float* %41 to <4 x float>*
%43 = load <4 x float>, <4 x float>* %42
%44 = fmul <4 x float> %43, %38
%45 = bitcast float* %41 to <4 x float>*
store <4 x float> %44, <4 x float>* %45
%46 = add nuw nsw i64 %40, 4
%47 = getelementptr inbounds float, float* %2, i64 %46
%48 = load float, float* %47
%49 = fmul float %48, %1
store float %49, float* %47
%50 = add nuw nsw i64 %40, 5
%51 = trunc i64 %50 to i32
%52 = icmp slt i32 %51, %0
br i1 %52, label %39, label %60
53: ; preds = %15, %53
%54 = phi i64 [ 0, %15 ], [ %58, %53 ]
%55 = getelementptr inbounds float, float* %2, i64 %54
%56 = load float, float* %55
%57 = fmul float %56, %1
store float %57, float* %55
%58 = add i64 %54, %16
%59 = icmp slt i64 %58, %17
br i1 %59, label %53, label %60
60: ; preds = %53, %39, %12, %30, %4
ret void
}