double my_modf(double x0, double *iptr) {
  int i;
  long l;
  double x = x0;
  double f = 1.0;
  for (i = 0; i < 100; i++) {
    l = (long)x;
    if (l <= (x + 1) && l >= (x - 1)) {
      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);
    }
    x *= 0.1;
    f *= 10.0;
  }
  (*iptr) = 0;
  return 0;
}


x86 assembly (clang, -O0):
<my_modf>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xecd(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x64,-0x1c(%rbp)
jge    125e <my_modf+0x14e>
cvttsd2si -0x30(%rbp),%rax
mov    %rax,-0x28(%rbp)
cvtsi2sdq -0x28(%rbp),%xmm1
movsd  0xe9f(%rip),%xmm0
addsd  -0x30(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     122c <my_modf+0x11c>
cvtsi2sdq -0x28(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm1
movsd  0xe7d(%rip),%xmm2
subsd  %xmm2,%xmm1
ucomisd %xmm1,%xmm0
jb     122c <my_modf+0x11c>
cmpl   $0x0,-0x1c(%rbp)
je     1207 <my_modf+0xf7>
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    1271 <my_modf+0x161>
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)
jmp    1271 <my_modf+0x161>
movsd  0xddc(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xdc2(%rip),%xmm0
mulsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    113f <my_modf+0x2f>
mov    -0x18(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
xorps  %xmm0,%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
movapd %xmm0,%xmm8
xor    %eax,%eax
movsd  0xed9(%rip),%xmm3
movsd  0xed9(%rip),%xmm4
movsd  0xed9(%rip),%xmm5
movsd  0xed9(%rip),%xmm6
movapd %xmm3,%xmm2
jmp    1164 <my_modf+0x54>
cs nopw 0x0(%rax,%rax,1)
nop
mulsd  %xmm5,%xmm0
mulsd  %xmm6,%xmm2
add    $0x2,%eax
cmp    $0x64,%eax
je     11f5 <my_modf+0xe5>
cvttsd2si %xmm0,%rcx
xorps  %xmm1,%xmm1
cvtsi2sd %rcx,%xmm1
movapd %xmm0,%xmm7
addsd  %xmm3,%xmm7
ucomisd %xmm1,%xmm7
movapd %xmm0,%xmm7
addsd  %xmm4,%xmm7
jb     118d <my_modf+0x7d>
ucomisd %xmm7,%xmm1
jae    11c3 <my_modf+0xb3>
mulsd  %xmm5,%xmm0
mulsd  %xmm6,%xmm2
cvttsd2si %xmm0,%rcx
xorps  %xmm1,%xmm1
cvtsi2sd %rcx,%xmm1
movapd %xmm0,%xmm7
addsd  %xmm3,%xmm7
ucomisd %xmm1,%xmm7
movapd %xmm0,%xmm7
addsd  %xmm4,%xmm7
jb     1150 <my_modf+0x40>
ucomisd %xmm7,%xmm1
jb     1150 <my_modf+0x40>
mov    $0x1,%eax
test   %eax,%eax
je     1202 <my_modf+0xf2>
mulsd  %xmm2,%xmm1
movsd  %xmm1,(%rsp)
subsd  %xmm1,%xmm8
lea    0x8(%rsp),%rdi
movapd %xmm8,%xmm0
call   1030 <my_modf@plt>
movsd  (%rsp),%xmm1
addsd  0x8(%rsp),%xmm1
movsd  %xmm1,(%rbx)
jmp    120a <my_modf+0xfa>
movq   $0x0,(%rbx)
xorpd  %xmm0,%xmm0
jmp    120a <my_modf+0xfa>
movsd  %xmm1,(%rbx)
subsd  %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
%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 = %61, %2
%14 = load i32, i32* %6
%15 = icmp slt i32 %14, 100
br i1 %15, label %16, label %64
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 %56
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 %56
30: ; preds = %24
%31 = load i32, i32* %6
%32 = icmp ne i32 %31, 0
br i1 %32, label %33, label %48
33: ; preds = %30
%34 = load double, double* %4
%35 = load i64, i64* %7
%36 = sitofp i64 %35 to double
%37 = load double, double* %9
%38 = fneg double %36
%39 = call double @llvm.fmuladd.f64(double %38, double %37, double %34)
%40 = call double @my_modf(double %39, double* %10)
store double %40, double* %11
%41 = load i64, i64* %7
%42 = sitofp i64 %41 to double
%43 = load double, double* %9
%44 = load double, double* %10
%45 = call double @llvm.fmuladd.f64(double %42, double %43, double %44)
%46 = load double*, double** %5
store double %45, double* %46
%47 = load double, double* %11
store double %47, double* %3
br label %66
48: ; preds = %30
%49 = load i64, i64* %7
%50 = sitofp i64 %49 to double
%51 = load double*, double** %5
store double %50, double* %51
%52 = load double, double* %8
%53 = load double*, double** %5
%54 = load double, double* %53
%55 = fsub double %52, %54
store double %55, double* %3
br label %66
56: ; preds = %24, %16
%57 = load double, double* %8
%58 = fmul double %57, 1.000000e-01
store double %58, double* %8
%59 = load double, double* %9
%60 = fmul double %59, 1.000000e+01
store double %60, double* %9
br label %61
61: ; preds = %56
%62 = load i32, i32* %6
%63 = add nsw i32 %62, 1
store i32 %63, i32* %6
br label %13
64: ; preds = %13
%65 = load double*, double** %5
store double 0.000000e+00, double* %65
store double 0.000000e+00, double* %3
br label %66
66: ; preds = %64, %48, %33
%67 = load double, double* %3
ret double %67
}

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