long double testl(long double x, long double y, long double *array, int n) {
  x = __builtin_copysignl(x, y);
  for (int i = 0; i < n; ++i)
    x *= -array[i];
  return __builtin_hypotl(x, y);
}


x86 assembly (clang, -O0):
<testl>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
fldt   0x20(%rbp)
fldt   0x10(%rbp)
fstpt  -0x10(%rbp)
fstpt  -0x20(%rbp)
mov    %rdi,-0x28(%rbp)
mov    %esi,-0x2c(%rbp)
fldt   -0x10(%rbp)
fldt   -0x20(%rbp)
fstpt  -0x40(%rbp)
fabs
fld    %st(0)
fchs
mov    -0x37(%rbp),%al
test   $0x80,%al
fxch   %st(1)
fcmovne %st(1),%st
fstp   %st(1)
fstpt  -0x10(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    1182 <testl+0x72>
mov    -0x28(%rbp),%rax
movslq -0x30(%rbp),%rcx
shl    $0x4,%rcx
fldt   (%rax,%rcx,1)
fchs
fldt   -0x10(%rbp)
fmulp  %st,%st(1)
fstpt  -0x10(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    114f <testl+0x3f>
fldt   -0x10(%rbp)
fldt   -0x20(%rbp)
mov    %rsp,%rax
fstpt  0x10(%rax)
fstpt  (%rax)
call   1030 <hypotl@plt>
fld    %st(0)
fstp   %st(0)
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<testl>:
sub    $0x38,%rsp
fldt   0x50(%rsp)
fldt   0x40(%rsp)
fld    %st(1)
fstpt  0x20(%rsp)
fabs
fld    %st(0)
fchs
testb  $0x80,0x29(%rsp)
fxch   %st(1)
fcmovne %st(1),%st
fstp   %st(1)
test   %esi,%esi
jle    114e <testl+0x3e>
mov    %esi,%edx
lea    -0x1(%rdx),%rcx
mov    %edx,%eax
and    $0x3,%eax
fldz
cmp    $0x3,%rcx
jae    1154 <testl+0x44>
xor    %ecx,%ecx
jmp    1196 <testl+0x86>
fldz
fxch   %st(1)
jmp    11c6 <testl+0xb6>
fstp   %st(0)
and    $0xfffffffc,%edx
lea    0x30(%rdi),%rsi
xor    %ecx,%ecx
fldz
fxch   %st(1)
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
fstp   %st(1)
fldt   -0x30(%rsi)
fmulp  %st,%st(1)
fldt   -0x20(%rsi)
fmulp  %st,%st(1)
fldt   -0x10(%rsi)
fmulp  %st,%st(1)
fldt   (%rsi)
fmulp  %st,%st(1)
add    $0x4,%rcx
add    $0x40,%rsi
fld    %st(0)
cmp    %rcx,%rdx
fxch   %st(1)
jne    1170 <testl+0x60>
test   %rax,%rax
je     11c6 <testl+0xb6>
fstp   %st(0)
shl    $0x4,%rcx
add    %rcx,%rdi
shl    $0x4,%rax
xor    %ecx,%ecx
fldz
fxch   %st(1)
xchg   %ax,%ax
fstp   %st(1)
fldt   (%rdi,%rcx,1)
fchs
fmulp  %st,%st(1)
add    $0x10,%rcx
cmp    %rcx,%rax
fldz
fxch   %st(1)
jne    11b0 <testl+0xa0>
fstp   %st(1)
fxch   %st(1)
fstpt  0x10(%rsp)
fstpt  (%rsp)
call   1030 <hypotl@plt>
add    $0x38,%rsp
ret

LLVM IR (-O0):
define x86_fp80 @testl(x86_fp80 %0, x86_fp80 %1, x86_fp80* %2, i32 %3) {
%5 = alloca x86_fp80
%6 = alloca x86_fp80
%7 = alloca x86_fp80*
%8 = alloca i32
%9 = alloca i32
store x86_fp80 %0, x86_fp80* %5
store x86_fp80 %1, x86_fp80* %6
store x86_fp80* %2, x86_fp80** %7
store i32 %3, i32* %8
%10 = load x86_fp80, x86_fp80* %5
%11 = load x86_fp80, x86_fp80* %6
%12 = call x86_fp80 @llvm.copysign.f80(x86_fp80 %10, x86_fp80 %11)
store x86_fp80 %12, x86_fp80* %5
store i32 0, i32* %9
br label %13
13: ; preds = %26, %4
%14 = load i32, i32* %9
%15 = load i32, i32* %8
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %29
17: ; preds = %13
%18 = load x86_fp80*, x86_fp80** %7
%19 = load i32, i32* %9
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds x86_fp80, x86_fp80* %18, i64 %20
%22 = load x86_fp80, x86_fp80* %21
%23 = fneg x86_fp80 %22
%24 = load x86_fp80, x86_fp80* %5
%25 = fmul x86_fp80 %24, %23
store x86_fp80 %25, x86_fp80* %5
br label %26
26: ; preds = %17
%27 = load i32, i32* %9
%28 = add nsw i32 %27, 1
store i32 %28, i32* %9
br label %13
29: ; preds = %13
%30 = load x86_fp80, x86_fp80* %5
%31 = load x86_fp80, x86_fp80* %6
%32 = call x86_fp80 @hypotl(x86_fp80 %30, x86_fp80 %31)
ret x86_fp80 %32
}

LLVM IR (-O2):
define x86_fp80 @testl(x86_fp80 %0, x86_fp80 %1, x86_fp80* nocapture %2, i32 %3) {
%5 = tail call x86_fp80 @llvm.copysign.f80(x86_fp80 %0, x86_fp80 %1)
%6 = icmp sgt i32 %3, 0
br i1 %6, label %7, label %30
7: ; preds = %4
%8 = zext i32 %3 to i64
%9 = add nsw i64 %8, -1
%10 = and i64 %8, 3
%11 = icmp ult i64 %9, 3
br i1 %11, label %14, label %12
12: ; preds = %7
%13 = and i64 %8, 4294967292
br label %33
14: ; preds = %33, %7
%15 = phi x86_fp80 [ undef, %7 ], [ %55, %33 ]
%16 = phi i64 [ 0, %7 ], [ %56, %33 ]
%17 = phi x86_fp80 [ %5, %7 ], [ %55, %33 ]
%18 = icmp eq i64 %10, 0
br i1 %18, label %30, label %19
19: ; preds = %14, %19
%20 = phi i64 [ %27, %19 ], [ %16, %14 ]
%21 = phi x86_fp80 [ %26, %19 ], [ %17, %14 ]
%22 = phi i64 [ %28, %19 ], [ 0, %14 ]
%23 = getelementptr inbounds x86_fp80, x86_fp80* %2, i64 %20
%24 = load x86_fp80, x86_fp80* %23
%25 = fneg x86_fp80 %24
%26 = fmul x86_fp80 %21, %25
%27 = add nuw nsw i64 %20, 1
%28 = add i64 %22, 1
%29 = icmp eq i64 %28, %10
br i1 %29, label %30, label %19
30: ; preds = %14, %19, %4
%31 = phi x86_fp80 [ %5, %4 ], [ %15, %14 ], [ %26, %19 ]
%32 = tail call x86_fp80 @hypotl(x86_fp80 %31, x86_fp80 %1)
ret x86_fp80 %32
33: ; preds = %33, %12
%34 = phi i64 [ 0, %12 ], [ %56, %33 ]
%35 = phi x86_fp80 [ %5, %12 ], [ %55, %33 ]
%36 = phi i64 [ 0, %12 ], [ %57, %33 ]
%37 = getelementptr inbounds x86_fp80, x86_fp80* %2, i64 %34
%38 = load x86_fp80, x86_fp80* %37
%39 = fneg x86_fp80 %38
%40 = fmul x86_fp80 %35, %39
%41 = or i64 %34, 1
%42 = getelementptr inbounds x86_fp80, x86_fp80* %2, i64 %41
%43 = load x86_fp80, x86_fp80* %42
%44 = fneg x86_fp80 %43
%45 = fmul x86_fp80 %40, %44
%46 = or i64 %34, 2
%47 = getelementptr inbounds x86_fp80, x86_fp80* %2, i64 %46
%48 = load x86_fp80, x86_fp80* %47
%49 = fneg x86_fp80 %48
%50 = fmul x86_fp80 %45, %49
%51 = or i64 %34, 3
%52 = getelementptr inbounds x86_fp80, x86_fp80* %2, i64 %51
%53 = load x86_fp80, x86_fp80* %52
%54 = fneg x86_fp80 %53
%55 = fmul x86_fp80 %50, %54
%56 = add nuw nsw i64 %34, 4
%57 = add i64 %36, 4
%58 = icmp eq i64 %57, %13
br i1 %58, label %14, label %33
}