double my_modf(double x0, double *iptr) {
  int i;
  long l = 0;
  double x = x0;
  double f = 1.0;
  for (i = 0; i < 100; i++) {
    l = (long)x;
    if (l <= (x + 1) && l >= (x - 1))
      break;
    x *= 0.1;
    f *= 10.0;
  }
  if (i == 100) {
    (*iptr) = 0;
    return 0;
  }
  if (i != 0) {
    double i2;
    double ret;
    ret = my_modf(x0 - l * f, &i2);
    (*iptr) = l * f + i2;
    return ret;
  }
  (*iptr) = l;
  return x - (*iptr);
}


x86 assembly (clang, -O0):
<my_modf>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xec5(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x64,-0x1c(%rbp)
jge    11d0 <my_modf+0xc0>
cvttsd2si -0x30(%rbp),%rax
mov    %rax,-0x28(%rbp)
cvtsi2sdq -0x28(%rbp),%xmm1
movsd  0xe97(%rip),%xmm0
addsd  -0x30(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     119e <my_modf+0x8e>
cvtsi2sdq -0x28(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm1
movsd  0xe75(%rip),%xmm2
subsd  %xmm2,%xmm1
ucomisd %xmm1,%xmm0
jb     119e <my_modf+0x8e>
jmp    11d0 <my_modf+0xc0>
movsd  0xe6a(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xe50(%rip),%xmm0
mulsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1147 <my_modf+0x37>
cmpl   $0x64,-0x1c(%rbp)
jne    11f2 <my_modf+0xe2>
mov    -0x18(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1288 <my_modf+0x178>
cmpl   $0x0,-0x1c(%rbp)
je     1268 <my_modf+0x158>
movsd  -0x10(%rbp),%xmm1
cvtsi2sdq -0x28(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
lea    -0x40(%rbp),%rdi
call   1030 <my_modf@plt>
movsd  %xmm0,-0x48(%rbp)
cvtsi2sdq -0x28(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1288 <my_modf+0x178>
cvtsi2sdq -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
movsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rax
subsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<my_modf>:
push   %rbx
sub    $0x10,%rsp
mov    %rdi,%rbx
xor    %eax,%eax
movsd  0xede(%rip),%xmm3
movsd  0xede(%rip),%xmm4
movsd  0xedd(%rip),%xmm8
movsd  0xedd(%rip),%xmm6
movapd %xmm3,%xmm2
movapd %xmm0,%xmm1
jmp    1161 <my_modf+0x51>
cs nopw 0x0(%rax,%rax,1)
nop
mulsd  %xmm8,%xmm1
mulsd  %xmm6,%xmm2
add    $0x2,%eax
cmp    $0x64,%eax
je     11c8 <my_modf+0xb8>
cvttsd2si %xmm1,%rcx
xorps  %xmm5,%xmm5
cvtsi2sd %rcx,%xmm5
movapd %xmm1,%xmm7
addsd  %xmm3,%xmm7
ucomisd %xmm5,%xmm7
movapd %xmm1,%xmm7
addsd  %xmm4,%xmm7
jb     118a <my_modf+0x7a>
ucomisd %xmm7,%xmm5
jae    11bf <my_modf+0xaf>
mulsd  %xmm8,%xmm1
mulsd  %xmm6,%xmm2
cvttsd2si %xmm1,%rcx
xorps  %xmm5,%xmm5
cvtsi2sd %rcx,%xmm5
movapd %xmm1,%xmm7
addsd  %xmm3,%xmm7
ucomisd %xmm5,%xmm7
movapd %xmm1,%xmm7
addsd  %xmm4,%xmm7
jb     1150 <my_modf+0x40>
ucomisd %xmm7,%xmm5
jb     1150 <my_modf+0x40>
add    $0x1,%eax
test   %eax,%eax
je     11d5 <my_modf+0xc5>
cmp    $0x64,%eax
jne    11df <my_modf+0xcf>
movq   $0x0,(%rbx)
xorpd  %xmm1,%xmm1
jmp    1209 <my_modf+0xf9>
movsd  %xmm5,(%rbx)
subsd  %xmm5,%xmm1
jmp    1209 <my_modf+0xf9>
mulsd  %xmm2,%xmm5
movsd  %xmm5,(%rsp)
subsd  %xmm5,%xmm0
lea    0x8(%rsp),%rdi
call   1030 <my_modf@plt>
movapd %xmm0,%xmm1
movsd  (%rsp),%xmm0
addsd  0x8(%rsp),%xmm0
movsd  %xmm0,(%rbx)
movapd %xmm1,%xmm0
add    $0x10,%rsp
pop    %rbx
ret

LLVM IR (-O0):
define double @my_modf(double %0, double* %1) {
%3 = alloca double
%4 = alloca double
%5 = alloca double*
%6 = alloca i32
%7 = alloca i64
%8 = alloca double
%9 = alloca double
%10 = alloca double
%11 = alloca double
store double %0, double* %4
store double* %1, double** %5
store i64 0, i64* %7
%12 = load double, double* %4
store double %12, double* %8
store double 1.000000e+00, double* %9
store i32 0, i32* %6
br label %13
13: ; preds = %36, %2
%14 = load i32, i32* %6
%15 = icmp slt i32 %14, 100
br i1 %15, label %16, label %39
16: ; preds = %13
%17 = load double, double* %8
%18 = fptosi double %17 to i64
store i64 %18, i64* %7
%19 = load i64, i64* %7
%20 = sitofp i64 %19 to double
%21 = load double, double* %8
%22 = fadd double %21, 1.000000e+00
%23 = fcmp ole double %20, %22
br i1 %23, label %24, label %31
24: ; preds = %16
%25 = load i64, i64* %7
%26 = sitofp i64 %25 to double
%27 = load double, double* %8
%28 = fsub double %27, 1.000000e+00
%29 = fcmp oge double %26, %28
br i1 %29, label %30, label %31
30: ; preds = %24
br label %39
31: ; preds = %24, %16
%32 = load double, double* %8
%33 = fmul double %32, 1.000000e-01
store double %33, double* %8
%34 = load double, double* %9
%35 = fmul double %34, 1.000000e+01
store double %35, double* %9
br label %36
36: ; preds = %31
%37 = load i32, i32* %6
%38 = add nsw i32 %37, 1
store i32 %38, i32* %6
br label %13
39: ; preds = %30, %13
%40 = load i32, i32* %6
%41 = icmp eq i32 %40, 100
br i1 %41, label %42, label %44
42: ; preds = %39
%43 = load double*, double** %5
store double 0.000000e+00, double* %43
store double 0.000000e+00, double* %3
br label %70
44: ; preds = %39
%45 = load i32, i32* %6
%46 = icmp ne i32 %45, 0
br i1 %46, label %47, label %62
47: ; preds = %44
%48 = load double, double* %4
%49 = load i64, i64* %7
%50 = sitofp i64 %49 to double
%51 = load double, double* %9
%52 = fneg double %50
%53 = call double @llvm.fmuladd.f64(double %52, double %51, double %48)
%54 = call double @my_modf(double %53, double* %10)
store double %54, double* %11
%55 = load i64, i64* %7
%56 = sitofp i64 %55 to double
%57 = load double, double* %9
%58 = load double, double* %10
%59 = call double @llvm.fmuladd.f64(double %56, double %57, double %58)
%60 = load double*, double** %5
store double %59, double* %60
%61 = load double, double* %11
store double %61, double* %3
br label %70
62: ; preds = %44
%63 = load i64, i64* %7
%64 = sitofp i64 %63 to double
%65 = load double*, double** %5
store double %64, double* %65
%66 = load double, double* %8
%67 = load double*, double** %5
%68 = load double, double* %67
%69 = fsub double %66, %68
store double %69, double* %3
br label %70
70: ; preds = %62, %47, %42
%71 = load double, double* %3
ret double %71
}

LLVM IR (-O2):
define double @my_modf(double %0, double* nocapture writeonly %1) {
%3 = alloca double
br label %4
4: ; preds = %25, %2
%5 = phi double [ 1.000000e+00, %2 ], [ %27, %25 ]
%6 = phi double [ %0, %2 ], [ %26, %25 ]
%7 = phi i32 [ 0, %2 ], [ %28, %25 ]
%8 = fptosi double %6 to i64
%9 = sitofp i64 %8 to double
%10 = fadd double %6, 1.000000e+00
%11 = fcmp ult double %10, %9
%12 = fadd double %6, -1.000000e+00
%13 = fcmp ugt double %12, %9
%14 = or i1 %11, %13
br i1 %14, label %15, label %32
15: ; preds = %4
%16 = fmul double %6, 1.000000e-01
%17 = fmul double %5, 1.000000e+01
%18 = fptosi double %16 to i64
%19 = sitofp i64 %18 to double
%20 = fadd double %16, 1.000000e+00
%21 = fcmp ult double %20, %19
%22 = fadd double %16, -1.000000e+00
%23 = fcmp ugt double %22, %19
%24 = or i1 %21, %23
br i1 %24, label %25, label %30
25: ; preds = %15
%26 = fmul double %16, 1.000000e-01
%27 = fmul double %17, 1.000000e+01
%28 = add nuw nsw i32 %7, 2
%29 = icmp eq i32 %28, 100
br i1 %29, label %37, label %4
30: ; preds = %15
%31 = or i32 %7, 1
br label %32
32: ; preds = %4, %30
%33 = phi double [ %17, %30 ], [ %5, %4 ]
%34 = phi double [ %16, %30 ], [ %6, %4 ]
%35 = phi i32 [ %31, %30 ], [ %7, %4 ]
%36 = phi double [ %19, %30 ], [ %9, %4 ]
switch i32 %35, label %38 [
i32 100, label %37
i32 0, label %45
]
37: ; preds = %25, %32
store double 0.000000e+00, double* %1
br label %47
38: ; preds = %32
%39 = bitcast double* %3 to i8*
%40 = fneg double %36
%41 = tail call double @llvm.fmuladd.f64(double %40, double %33, double %0)
%42 = call double @my_modf(double %41, double* %3)
%43 = load double, double* %3
%44 = tail call double @llvm.fmuladd.f64(double %36, double %33, double %43)
store double %44, double* %1
br label %47
45: ; preds = %32
store double %36, double* %1
%46 = fsub double %34, %36
br label %47
47: ; preds = %45, %38, %37
%48 = phi double [ 0.000000e+00, %37 ], [ %42, %38 ], [ %46, %45 ]
ret double %48
}