float trapzd(func, a, b, n)
float a, b;
float (*func)();
int n;
{
  float x, tnm, sum, del;
  static float s;
  static int it;
  int j;
  if (n == 1) {
    it = 1;
    return (s = 0.5 * (b - a) * (((*func)(a)) + ((*func)(b))));
  } else {
    tnm = it;
    del = (b - a) / tnm;
    x = a + 0.5 * del;
    for (sum = 0.0, j = 1; j <= it; j++, x += del)
      sum += ((*func)(x));
    it *= 2;
    s = 0.5 * (s + (b - a) * sum / tnm);
    return s;
  }
}


x86 assembly (clang, -O0):
<trapzd>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movsd  %xmm1,-0x38(%rbp)
movaps %xmm0,%xmm1
movsd  -0x38(%rbp),%xmm0
cvtsd2ss %xmm1,%xmm1
cvtsd2ss %xmm0,%xmm0
mov    %rdi,-0x10(%rbp)
movss  %xmm1,-0x14(%rbp)
movss  %xmm0,-0x18(%rbp)
mov    %esi,-0x1c(%rbp)
cmpl   $0x1,-0x1c(%rbp)
jne    11b7 <trapzd+0xb7>
movl   $0x1,0x2ee6(%rip)
movss  -0x18(%rbp),%xmm0
subss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xea8(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%rcx
movss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rcx
movss  %xmm0,-0x44(%rbp)
mov    -0x10(%rbp),%rcx
movss  -0x18(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rcx
movss  -0x44(%rbp),%xmm1
movaps %xmm0,%xmm2
movsd  -0x40(%rbp),%xmm0
addss  %xmm2,%xmm1
cvtss2sd %xmm1,%xmm1
mulsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,0x2e77(%rip)
movss  %xmm0,-0x4(%rbp)
jmp    12b1 <trapzd+0x1b1>
cvtsi2ssl 0x2e69(%rip),%xmm0
movss  %xmm0,-0x24(%rbp)
movss  -0x18(%rbp),%xmm0
subss  -0x14(%rbp),%xmm0
divss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x2c(%rbp)
movss  -0x14(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movss  -0x2c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xe0e(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x20(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x28(%rbp)
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    0x2e0d(%rip),%eax
jg     1259 <trapzd+0x159>
mov    -0x10(%rbp),%rcx
movss  -0x20(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rcx
addss  -0x28(%rbp),%xmm0
movss  %xmm0,-0x28(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
movss  -0x2c(%rbp),%xmm0
addss  -0x20(%rbp),%xmm0
movss  %xmm0,-0x20(%rbp)
jmp    1212 <trapzd+0x112>
mov    0x2dc9(%rip),%eax
shl    $0x1,%eax
mov    %eax,0x2dc0(%rip)
movss  0x2db4(%rip),%xmm0
movss  -0x18(%rbp),%xmm1
subss  -0x14(%rbp),%xmm1
mulss  -0x28(%rbp),%xmm1
divss  -0x24(%rbp),%xmm1
addss  %xmm1,%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xd6c(%rip),%xmm0
mulsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,0x2d80(%rip)
movss  0x2d78(%rip),%xmm0
movss  %xmm0,-0x4(%rbp)
movss  -0x4(%rbp),%xmm0
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<trapzd>:
push   %rbp
push   %rbx
sub    $0x18,%rsp
cvtsd2ss %xmm0,%xmm0
mov    %rdi,%rbx
cvtsd2ss %xmm1,%xmm1
cmp    $0x1,%esi
jne    116f <trapzd+0x6f>
movl   $0x1,0x2f08(%rip)
movss  %xmm1,(%rsp)
subss  %xmm0,%xmm1
cvtss2sd %xmm1,%xmm1
mulsd  0xecb(%rip),%xmm1
movsd  %xmm1,0x8(%rsp)
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rbx
movss  %xmm0,0x4(%rsp)
movss  (%rsp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rbx
addss  0x4(%rsp),%xmm0
cvtss2sd %xmm0,%xmm0
mulsd  0x8(%rsp),%xmm0
cvtsd2ss %xmm0,%xmm0
jmp    1229 <trapzd+0x129>
mov    0x2eb3(%rip),%eax
cvtsi2ss %eax,%xmm2
subss  %xmm0,%xmm1
test   %eax,%eax
movss  %xmm1,(%rsp)
movss  %xmm2,0x10(%rsp)
jle    11ff <trapzd+0xff>
divss  %xmm2,%xmm1
movss  %xmm1,0x14(%rsp)
cvtss2sd %xmm1,%xmm1
cvtss2sd %xmm0,%xmm0
mulsd  0xe5a(%rip),%xmm1
addsd  %xmm0,%xmm1
xorps  %xmm0,%xmm0
cvtsd2ss %xmm1,%xmm0
xorps  %xmm1,%xmm1
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
movss  %xmm0,0x8(%rsp)
movss  %xmm1,0x4(%rsp)
movss  0x8(%rsp),%xmm0
cvtss2sd %xmm0,%xmm0
mov    $0x1,%al
call   *%rbx
movss  0x4(%rsp),%xmm1
addss  %xmm0,%xmm1
movss  0x8(%rsp),%xmm0
addss  0x14(%rsp),%xmm0
mov    0x2e32(%rip),%eax
add    $0x1,%ebp
cmp    %eax,%ebp
jl     11c0 <trapzd+0xc0>
jmp    1202 <trapzd+0x102>
xorps  %xmm1,%xmm1
add    %eax,%eax
mov    %eax,0x2e1e(%rip)
movss  (%rsp),%xmm0
mulss  %xmm1,%xmm0
divss  0x10(%rsp),%xmm0
addss  0x2e03(%rip),%xmm0
mulss  0xddf(%rip),%xmm0
movss  %xmm0,0x2df3(%rip)
add    $0x18,%rsp
pop    %rbx
pop    %rbp
ret

LLVM IR (-O0):
@trapzd.s = internal global float 0.000000e+00
@trapzd.it = internal global i32 0
define float @trapzd(float (...)* %0, double %1, double %2, i32 %3) {
%5 = alloca float
%6 = alloca float (...)*
%7 = alloca float
%8 = alloca float
%9 = alloca i32
%10 = alloca float
%11 = alloca float
%12 = alloca float
%13 = alloca float
%14 = alloca i32
%15 = fptrunc double %1 to float
%16 = fptrunc double %2 to float
store float (...)* %0, float (...)** %6
store float %15, float* %7
store float %16, float* %8
store i32 %3, i32* %9
%17 = load i32, i32* %9
%18 = icmp eq i32 %17, 1
br i1 %18, label %19, label %39
19: ; preds = %4
store i32 1, i32* @trapzd.it
%20 = load float, float* %8
%21 = load float, float* %7
%22 = fsub float %20, %21
%23 = fpext float %22 to double
%24 = fmul double 5.000000e-01, %23
%25 = load float (...)*, float (...)** %6
%26 = load float, float* %7
%27 = fpext float %26 to double
%28 = bitcast float (...)* %25 to float (double, ...)*
%29 = call float (double, ...) %28(double %27)
%30 = load float (...)*, float (...)** %6
%31 = load float, float* %8
%32 = fpext float %31 to double
%33 = bitcast float (...)* %30 to float (double, ...)*
%34 = call float (double, ...) %33(double %32)
%35 = fadd float %29, %34
%36 = fpext float %35 to double
%37 = fmul double %24, %36
%38 = fptrunc double %37 to float
store float %38, float* @trapzd.s
store float %38, float* %5
br label %87
39: ; preds = %4
%40 = load i32, i32* @trapzd.it
%41 = sitofp i32 %40 to float
store float %41, float* %11
%42 = load float, float* %8
%43 = load float, float* %7
%44 = fsub float %42, %43
%45 = load float, float* %11
%46 = fdiv float %44, %45
store float %46, float* %13
%47 = load float, float* %7
%48 = fpext float %47 to double
%49 = load float, float* %13
%50 = fpext float %49 to double
%51 = call double @llvm.fmuladd.f64(double 5.000000e-01, double %50, double %48)
%52 = fptrunc double %51 to float
store float %52, float* %10
store float 0.000000e+00, float* %12
store i32 1, i32* %14
br label %53
53: ; preds = %65, %39
%54 = load i32, i32* %14
%55 = load i32, i32* @trapzd.it
%56 = icmp sle i32 %54, %55
br i1 %56, label %57, label %71
57: ; preds = %53
%58 = load float (...)*, float (...)** %6
%59 = load float, float* %10
%60 = fpext float %59 to double
%61 = bitcast float (...)* %58 to float (double, ...)*
%62 = call float (double, ...) %61(double %60)
%63 = load float, float* %12
%64 = fadd float %63, %62
store float %64, float* %12
br label %65
65: ; preds = %57
%66 = load i32, i32* %14
%67 = add nsw i32 %66, 1
store i32 %67, i32* %14
%68 = load float, float* %13
%69 = load float, float* %10
%70 = fadd float %69, %68
store float %70, float* %10
br label %53
71: ; preds = %53
%72 = load i32, i32* @trapzd.it
%73 = mul nsw i32 %72, 2
store i32 %73, i32* @trapzd.it
%74 = load float, float* @trapzd.s
%75 = load float, float* %8
%76 = load float, float* %7
%77 = fsub float %75, %76
%78 = load float, float* %12
%79 = fmul float %77, %78
%80 = load float, float* %11
%81 = fdiv float %79, %80
%82 = fadd float %74, %81
%83 = fpext float %82 to double
%84 = fmul double 5.000000e-01, %83
%85 = fptrunc double %84 to float
store float %85, float* @trapzd.s
%86 = load float, float* @trapzd.s
store float %86, float* %5
br label %87
87: ; preds = %71, %19
%88 = load float, float* %5
ret float %88
}

LLVM IR (-O2):
@trapzd.s = internal unnamed_addr global float 0.000000e+00
@trapzd.it = internal unnamed_addr global i32 0
define float @trapzd(float (...)* nocapture %0, double %1, double %2, i32 %3) {
%5 = fptrunc double %1 to float
%6 = fptrunc double %2 to float
%7 = icmp eq i32 %3, 1
br i1 %7, label %8, label %21
8: ; preds = %4
store i32 1, i32* @trapzd.it
%9 = fsub float %6, %5
%10 = fpext float %9 to double
%11 = fmul double %10, 5.000000e-01
%12 = fpext float %5 to double
%13 = bitcast float (...)* %0 to float (double, ...)*
%14 = tail call float (double, ...) %13(double %12)
%15 = fpext float %6 to double
%16 = tail call float (double, ...) %13(double %15)
%17 = fadd float %14, %16
%18 = fpext float %17 to double
%19 = fmul double %11, %18
%20 = fptrunc double %19 to float
br label %53
21: ; preds = %4
%22 = load i32, i32* @trapzd.it
%23 = sitofp i32 %22 to float
%24 = fsub float %6, %5
%25 = fdiv float %24, %23
%26 = icmp slt i32 %22, 1
br i1 %26, label %44, label %27
27: ; preds = %21
%28 = fpext float %25 to double
%29 = fpext float %5 to double
%30 = tail call double @llvm.fmuladd.f64(double %28, double 5.000000e-01, double %29)
%31 = fptrunc double %30 to float
%32 = bitcast float (...)* %0 to float (double, ...)*
br label %33
33: ; preds = %27, %33
%34 = phi i32 [ 1, %27 ], [ %40, %33 ]
%35 = phi float [ 0.000000e+00, %27 ], [ %39, %33 ]
%36 = phi float [ %31, %27 ], [ %41, %33 ]
%37 = fpext float %36 to double
%38 = tail call float (double, ...) %32(double %37)
%39 = fadd float %35, %38
%40 = add nuw nsw i32 %34, 1
%41 = fadd float %25, %36
%42 = load i32, i32* @trapzd.it
%43 = icmp slt i32 %34, %42
br i1 %43, label %33, label %44
44: ; preds = %33, %21
%45 = phi float [ 0.000000e+00, %21 ], [ %39, %33 ]
%46 = phi i32 [ %22, %21 ], [ %42, %33 ]
%47 = shl nsw i32 %46, 1
store i32 %47, i32* @trapzd.it
%48 = load float, float* @trapzd.s
%49 = fmul float %24, %45
%50 = fdiv float %49, %23
%51 = fadd float %50, %48
%52 = fmul float %51, 5.000000e-01
br label %53
53: ; preds = %44, %8
%54 = phi float [ %52, %44 ], [ %20, %8 ]
store float %54, float* @trapzd.s
ret float %54
}