void bpnn_output_error(delta, target, output, nj, err) float *delta, *target,
    *output, *err;
int nj;
{
  int j;
  float o, t, errsum;
  errsum = 0.0;
  for (j = 1; j <= nj; j++) {
    o = output[j];
    t = target[j];
    delta[j] = o * (1.0 - o) * (t - o);
    errsum += (((delta[j]) > 0.0) ? (delta[j]) : (-(delta[j])));
  }
  *err = errsum;
}


x86 assembly (clang, -O0):
<bpnn_output_error>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x38(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     120c <bpnn_output_error+0x10c>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x34(%rbp)
movss  -0x30(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movss  -0x30(%rbp),%xmm1
cvtss2sd %xmm1,%xmm2
movsd  0xe90(%rip),%xmm1
subsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movss  -0x34(%rbp),%xmm1
subss  -0x30(%rbp),%xmm1
cvtss2sd %xmm1,%xmm1
mulsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    11d0 <bpnn_output_error+0xd0>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x3c(%rbp)
jmp    11ef <bpnn_output_error+0xef>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
movss  %xmm0,-0x3c(%rbp)
movss  -0x3c(%rbp),%xmm0
addss  -0x38(%rbp),%xmm0
movss  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1126 <bpnn_output_error+0x26>
movss  -0x38(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movss  %xmm0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<bpnn_output_error>:
test   %ecx,%ecx
jle    117f <bpnn_output_error+0x7f>
add    $0x1,%ecx
xorps  %xmm0,%xmm0
mov    $0x1,%eax
movsd  0xee9(%rip),%xmm1
movaps 0xef2(%rip),%xmm2
xchg   %ax,%ax
movss  (%rdx,%rax,4),%xmm3
movss  (%rsi,%rax,4),%xmm4
xorps  %xmm5,%xmm5
cvtss2sd %xmm3,%xmm5
movapd %xmm1,%xmm6
subsd  %xmm5,%xmm6
mulsd  %xmm5,%xmm6
subss  %xmm3,%xmm4
xorps  %xmm3,%xmm3
cvtss2sd %xmm4,%xmm3
mulsd  %xmm6,%xmm3
cvtsd2ss %xmm3,%xmm3
movss  %xmm3,(%rdi,%rax,4)
movaps %xmm3,%xmm4
xorps  %xmm2,%xmm4
xorps  %xmm5,%xmm5
cmpltss %xmm3,%xmm5
andps  %xmm5,%xmm3
andnps %xmm4,%xmm5
orps   %xmm3,%xmm5
addss  %xmm5,%xmm0
add    $0x1,%rax
cmp    %rax,%rcx
jne    1120 <bpnn_output_error+0x20>
movss  %xmm0,(%r8)
ret
xorps  %xmm0,%xmm0
movss  %xmm0,(%r8)
ret

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

LLVM IR (-O2):
define void @bpnn_output_error(float* nocapture writeonly %0, float* nocapture %1, float* nocapture %2, i32 %3, float* nocapture writeonly %4) {
%6 = icmp slt i32 %3, 1
br i1 %6, label %31, label %7
7: ; preds = %5
%8 = add nuw i32 %3, 1
%9 = zext i32 %8 to i64
br label %10
10: ; preds = %7, %10
%11 = phi i64 [ 1, %7 ], [ %29, %10 ]
%12 = phi float [ 0.000000e+00, %7 ], [ %28, %10 ]
%13 = getelementptr inbounds float, float* %2, i64 %11
%14 = load float, float* %13
%15 = getelementptr inbounds float, float* %1, i64 %11
%16 = load float, float* %15
%17 = fpext float %14 to double
%18 = fsub double 1.000000e+00, %17
%19 = fmul double %18, %17
%20 = fsub float %16, %14
%21 = fpext float %20 to double
%22 = fmul double %19, %21
%23 = fptrunc double %22 to float
%24 = getelementptr inbounds float, float* %0, i64 %11
store float %23, float* %24
%25 = fcmp ogt float %23, 0.000000e+00
%26 = fneg float %23
%27 = select i1 %25, float %23, float %26
%28 = fadd float %12, %27
%29 = add nuw nsw i64 %11, 1
%30 = icmp eq i64 %29, %9
br i1 %30, label %31, label %10
31: ; preds = %10, %5
%32 = phi float [ 0.000000e+00, %5 ], [ %28, %10 ]
store float %32, float* %4
ret void
}