void fromdate_(slen, sset, ddate, sdate) int *slen, *sset;
double *ddate;
char *sdate;
{
  double jdf;
  int jd, l, n, i, j, day, mon, yr, hr, min, nchars, tchars;
  float secs;
  *sset = 0;
  if (*ddate >= 0.0) {
    double mindayfract = .0005 / 60.0 / 60.0 / 24.0;
    jdf = *ddate - (int)(*ddate);
    jd = *ddate - jdf + 2400001;
    l = jd + 68569;
    n = (4 * l) / 146097;
    l = l - (146097 * n + 3) / 4;
    i = (4000 * (l + 1)) / 1461001;
    l = l - (1461 * i) / 4 + 31;
    j = (80 * l) / 2447;
    day = l - (2447 * j) / 80;
    l = j / 11;
    mon = j + 2 - 12 * l;
    yr = 100 * (n - 49) + i + l;
    if (jdf > mindayfract) {
      if (*slen < 24)
        *sset = 0;
      else {
        jdf *= 24.0;
        hr = jdf;
        jdf = (jdf - hr) * 60.0;
        min = jdf;
        secs = (jdf - min) * 60.0;
        if (secs >= 59.999) {
          min += 1;
          secs -= 60.0;
        }
        if (min >= 60) {
          hr += 1;
          min -= 60;
        }
        if (secs < mindayfract)
          secs = 0.0;
        sprintf(sdate, "%04d-%02d-%02dT%02d:%02d:%06.3f", yr, mon, day, hr, min,
                secs);
        *sset = 23;
      }
    } else {
      if (*slen < 10)
        *sset = 0;
      else {
        if (datestyle_(0) || yr >= 2000) {
          sprintf(sdate, "%04d-%02d-%02d", yr, mon, day);
          *sset = 10;
        } else {
          sprintf(sdate, "%02d/%02d/%02d", day, mon, (yr - 1900));
          *sset = 8;
        }
      }
    }
  }
  for (i = *sset; i < *slen; i++)
    sdate[i] = ' ';
}


x86 assembly (clang, -O0):
<fromdate_>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1466 <fromdate_+0x346>
movsd  0xea6(%rip),%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
cvttsd2si (%rax),%eax
cvtsi2sd %eax,%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
subsd  -0x28(%rbp),%xmm0
movsd  0xe67(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x10bd9,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
shl    $0x2,%eax
mov    $0x23ab1,%ecx
cltd
idiv   %ecx
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x74(%rbp)
imul   $0x23ab1,-0x34(%rbp),%eax
add    $0x3,%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x74(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
imul   $0xfa0,%eax,%eax
mov    $0x164b09,%ecx
cltd
idiv   %ecx
mov    %eax,-0x38(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x70(%rbp)
imul   $0x5b5,-0x38(%rbp),%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x70(%rbp),%eax
sub    %ecx,%eax
add    $0x1f,%eax
mov    %eax,-0x30(%rbp)
imul   $0x50,-0x30(%rbp),%eax
mov    $0x98f,%ecx
cltd
idiv   %ecx
mov    %eax,-0x3c(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x6c(%rbp)
imul   $0x98f,-0x3c(%rbp),%eax
mov    $0x50,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x6c(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x40(%rbp)
mov    -0x3c(%rbp),%eax
mov    $0xb,%ecx
cltd
idiv   %ecx
mov    %eax,-0x30(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x2,%eax
imul   $0xc,-0x30(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x44(%rbp)
mov    -0x34(%rbp),%eax
sub    $0x31,%eax
imul   $0x64,%eax,%eax
add    -0x38(%rbp),%eax
add    -0x30(%rbp),%eax
mov    %eax,-0x48(%rbp)
movsd  -0x28(%rbp),%xmm0
ucomisd -0x68(%rbp),%xmm0
jbe    13c4 <fromdate_+0x2a4>
mov    -0x8(%rbp),%rax
cmpl   $0x18,(%rax)
jge    12a4 <fromdate_+0x184>
mov    -0x10(%rbp),%rax
movl   $0x0,(%rax)
jmp    13bf <fromdate_+0x29f>
movsd  0xd74(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
cvttsd2si -0x28(%rbp),%eax
mov    %eax,-0x4c(%rbp)
movsd  -0x28(%rbp),%xmm0
cvtsi2sdl -0x4c(%rbp),%xmm1
subsd  %xmm1,%xmm0
movsd  0xd44(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
cvttsd2si -0x28(%rbp),%eax
mov    %eax,-0x50(%rbp)
movsd  -0x28(%rbp),%xmm0
cvtsi2sdl -0x50(%rbp),%xmm1
subsd  %xmm1,%xmm0
movsd  0xd1d(%rip),%xmm1
mulsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x5c(%rbp)
movss  -0x5c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xcf7(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     134a <fromdate_+0x22a>
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
movss  -0x5c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xcdb(%rip),%xmm1
subsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x5c(%rbp)
cmpl   $0x3c,-0x50(%rbp)
jl     1366 <fromdate_+0x246>
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
mov    -0x50(%rbp),%eax
sub    $0x3c,%eax
mov    %eax,-0x50(%rbp)
movss  -0x5c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movsd  -0x68(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    1386 <fromdate_+0x266>
xorps  %xmm0,%xmm0
movss  %xmm0,-0x5c(%rbp)
mov    -0x20(%rbp),%rdi
mov    -0x48(%rbp),%edx
mov    -0x44(%rbp),%ecx
mov    -0x40(%rbp),%r8d
mov    -0x4c(%rbp),%r9d
mov    -0x50(%rbp),%eax
movss  -0x5c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
lea    0xc7d(%rip),%rsi
mov    %eax,(%rsp)
mov    $0x1,%al
call   1040 <sprintf@plt>
mov    -0x10(%rbp),%rax
movl   $0x17,(%rax)
jmp    1461 <fromdate_+0x341>
mov    -0x8(%rbp),%rax
cmpl   $0xa,(%rax)
jge    13e0 <fromdate_+0x2c0>
mov    -0x10(%rbp),%rax
movl   $0x0,(%rax)
jmp    145c <fromdate_+0x33c>
xor    %edi,%edi
mov    $0x0,%al
call   1030 <datestyle_@plt>
cmp    $0x0,%eax
jne    13ff <fromdate_+0x2df>
cmpl   $0x7d0,-0x48(%rbp)
jl     142a <fromdate_+0x30a>
mov    -0x20(%rbp),%rdi
mov    -0x48(%rbp),%edx
mov    -0x44(%rbp),%ecx
mov    -0x40(%rbp),%r8d
lea    0xc34(%rip),%rsi
mov    $0x0,%al
call   1040 <sprintf@plt>
mov    -0x10(%rbp),%rax
movl   $0xa,(%rax)
jmp    1457 <fromdate_+0x337>
mov    -0x20(%rbp),%rdi
mov    -0x40(%rbp),%edx
mov    -0x44(%rbp),%ecx
mov    -0x48(%rbp),%r8d
sub    $0x76c,%r8d
lea    0xc11(%rip),%rsi
mov    $0x0,%al
call   1040 <sprintf@plt>
mov    -0x10(%rbp),%rax
movl   $0x8,(%rax)
jmp    145c <fromdate_+0x33c>
jmp    1461 <fromdate_+0x341>
jmp    1466 <fromdate_+0x346>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%rcx
cmp    (%rcx),%eax
jge    1498 <fromdate_+0x378>
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movb   $0x20,(%rax,%rcx,1)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    146f <fromdate_+0x34f>
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<fromdate_>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rcx,%r14
mov    %rdi,%rbx
movl   $0x0,(%rsi)
movsd  (%rdx),%xmm1
xor    %eax,%eax
xorpd  %xmm0,%xmm0
ucomisd %xmm0,%xmm1
jb     139e <fromdate_+0x27e>
mov    %rsi,%r15
cvttpd2dq %xmm1,%xmm0
cvtdq2pd %xmm0,%xmm2
movapd %xmm1,%xmm0
subsd  %xmm2,%xmm0
subsd  %xmm0,%xmm1
addsd  0xe96(%rip),%xmm1
cvttsd2si %xmm1,%esi
lea    0x42f64(,%rsi,4),%ecx
add    $0x10bd9,%esi
movslq %ecx,%rcx
imul   $0x396b06bd,%rcx,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
shr    $0x20,%rcx
sar    $0xf,%ecx
add    %edx,%ecx
imul   $0x23ab1,%ecx,%edx
lea    0x3(%rdx),%edi
add    $0x6,%edx
test   %edi,%edi
cmovns %edi,%edx
sar    $0x2,%edx
sub    %edx,%esi
imul   $0xfa0,%esi,%edx
mov    %edx,%edi
add    $0xfa0,%edi
movslq %edi,%rdi
imul   $0xffffffffb7bbe2dd,%rdi,%rdi
shr    $0x20,%rdi
add    %edi,%edx
add    $0xfa0,%edx
mov    %edx,%edi
shr    $0x1f,%edi
sar    $0x14,%edx
add    %edi,%edx
imul   $0x5b5,%edx,%edi
lea    0x3(%rdi),%ebp
test   %edi,%edi
cmovns %edi,%ebp
sar    $0x2,%ebp
neg    %ebp
lea    (%rsi,%rbp,1),%edi
add    $0x1f,%edi
mov    %edi,%esi
shl    $0x4,%esi
lea    (%rsi,%rsi,4),%esi
movslq %esi,%rsi
imul   $0x1ac83d19,%rsi,%r12
mov    %r12,%rbp
shr    $0x3f,%rbp
shr    $0x20,%r12
sar    $0x8,%r12d
add    %ebp,%r12d
imul   $0x98f,%r12d,%ebp
movslq %ebp,%rbp
imul   $0xffffffff99999999,%rbp,%r13
mov    %r13,%rbp
shr    $0x3f,%rbp
shr    $0x20,%r13
sar    $0x5,%r13d
add    %ebp,%r13d
add    %edi,%r13d
imul   $0xffffffff9bd2d7d7,%rsi,%rdi
shr    $0x20,%rdi
add    %edi,%esi
mov    %esi,%edi
shr    $0x1f,%edi
sar    $0xe,%esi
add    %edi,%esi
lea    0x0(,%rsi,4),%edi
lea    (%rdi,%rdi,2),%edi
sub    %edi,%r12d
add    $0x2,%r12d
imul   $0x64,%ecx,%ecx
add    %edx,%ecx
lea    (%rcx,%rsi,1),%ebp
add    $0xffffecdc,%ebp
ucomisd 0xd8e(%rip),%xmm0
mov    (%rbx),%ecx
jbe    133c <fromdate_+0x21c>
cmp    $0x18,%ecx
jl     139e <fromdate_+0x27e>
mulsd  0xd7d(%rip),%xmm0
cvttpd2dq %xmm0,%xmm1
cvtdq2pd %xmm1,%xmm1
movapd %xmm0,%xmm2
subsd  %xmm1,%xmm2
movsd  0xd6d(%rip),%xmm1
mulsd  %xmm1,%xmm2
cvttsd2si %xmm2,%eax
cvttpd2dq %xmm2,%xmm3
cvtdq2pd %xmm3,%xmm3
subsd  %xmm3,%xmm2
mulsd  %xmm1,%xmm2
xorps  %xmm1,%xmm1
cvtsd2ss %xmm2,%xmm1
xorps  %xmm2,%xmm2
cvtss2sd %xmm1,%xmm2
movsd  0xd47(%rip),%xmm3
ucomisd %xmm3,%xmm2
sbb    $0xffffffff,%eax
ucomisd %xmm3,%xmm2
cvttsd2si %xmm0,%ecx
jb     12f2 <fromdate_+0x1d2>
addss  0xd36(%rip),%xmm1
lea    -0x3c(%rax),%edx
xor    %r9d,%r9d
cmp    $0x3c,%eax
setge  %r9b
cmovl  %eax,%edx
add    %ecx,%r9d
cvtss2sd %xmm1,%xmm1
movaps %xmm1,%xmm0
cmpltsd 0xcf3(%rip),%xmm0
andnpd %xmm1,%xmm0
mov    %edx,(%rsp)
lea    0xd09(%rip),%rsi
mov    %r14,%rdi
mov    %ebp,%edx
mov    %r12d,%ecx
mov    %r13d,%r8d
mov    $0x1,%al
call   1040 <sprintf@plt>
mov    $0x17,%eax
jmp    139b <fromdate_+0x27b>
cmp    $0xa,%ecx
jl     139e <fromdate_+0x27e>
xor    %edi,%edi
xor    %eax,%eax
call   1030 <datestyle_@plt>
test   %eax,%eax
jne    137d <fromdate_+0x25d>
cmp    $0x7d0,%ebp
jge    137d <fromdate_+0x25d>
add    $0xfffff894,%ebp
lea    0xcf8(%rip),%rsi
mov    %r14,%rdi
mov    %r13d,%edx
mov    %r12d,%ecx
mov    %ebp,%r8d
xor    %eax,%eax
call   1040 <sprintf@plt>
mov    $0x8,%eax
jmp    139b <fromdate_+0x27b>
lea    0xcc8(%rip),%rsi
mov    %r14,%rdi
mov    %ebp,%edx
mov    %r12d,%ecx
mov    %r13d,%r8d
xor    %eax,%eax
call   1040 <sprintf@plt>
mov    $0xa,%eax
mov    %eax,(%r15)
cmp    (%rbx),%eax
jge    13c1 <fromdate_+0x2a1>
mov    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movb   $0x20,(%r14,%rax,1)
add    $0x1,%rax
movslq (%rbx),%rcx
cmp    %rcx,%rax
jl     13b0 <fromdate_+0x290>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [32 x i8] c"%04d-%02d-%02dT%02d:%02d:%06.3f\00"
@.str.1 = [15 x i8] c"%04d-%02d-%02d\00"
@.str.2 = [15 x i8] c"%02d/%02d/%02d\00"
define void @fromdate_(i32* %0, i32* %1, double* %2, i8* %3) {
%5 = alloca i32*
%6 = alloca i32*
%7 = alloca double*
%8 = alloca i8*
%9 = alloca double
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
%21 = alloca i32
%22 = alloca float
%23 = alloca double
store i32* %0, i32** %5
store i32* %1, i32** %6
store double* %2, double** %7
store i8* %3, i8** %8
%24 = load i32*, i32** %6
store i32 0, i32* %24
%25 = load double*, double** %7
%26 = load double, double* %25
%27 = fcmp oge double %26, 0.000000e+00
br i1 %27, label %28, label %178
28: ; preds = %4
store double 0x3E38DAEA1D7F4CF8, double* %23
%29 = load double*, double** %7
%30 = load double, double* %29
%31 = load double*, double** %7
%32 = load double, double* %31
%33 = fptosi double %32 to i32
%34 = sitofp i32 %33 to double
%35 = fsub double %30, %34
store double %35, double* %9
%36 = load double*, double** %7
%37 = load double, double* %36
%38 = load double, double* %9
%39 = fsub double %37, %38
%40 = fadd double %39, 0x41424F8080000000
%41 = fptosi double %40 to i32
store i32 %41, i32* %10
%42 = load i32, i32* %10
%43 = add nsw i32 %42, 68569
store i32 %43, i32* %11
%44 = load i32, i32* %11
%45 = mul nsw i32 4, %44
%46 = sdiv i32 %45, 146097
store i32 %46, i32* %12
%47 = load i32, i32* %11
%48 = load i32, i32* %12
%49 = mul nsw i32 146097, %48
%50 = add nsw i32 %49, 3
%51 = sdiv i32 %50, 4
%52 = sub nsw i32 %47, %51
store i32 %52, i32* %11
%53 = load i32, i32* %11
%54 = add nsw i32 %53, 1
%55 = mul nsw i32 4000, %54
%56 = sdiv i32 %55, 1461001
store i32 %56, i32* %13
%57 = load i32, i32* %11
%58 = load i32, i32* %13
%59 = mul nsw i32 1461, %58
%60 = sdiv i32 %59, 4
%61 = sub nsw i32 %57, %60
%62 = add nsw i32 %61, 31
store i32 %62, i32* %11
%63 = load i32, i32* %11
%64 = mul nsw i32 80, %63
%65 = sdiv i32 %64, 2447
store i32 %65, i32* %14
%66 = load i32, i32* %11
%67 = load i32, i32* %14
%68 = mul nsw i32 2447, %67
%69 = sdiv i32 %68, 80
%70 = sub nsw i32 %66, %69
store i32 %70, i32* %15
%71 = load i32, i32* %14
%72 = sdiv i32 %71, 11
store i32 %72, i32* %11
%73 = load i32, i32* %14
%74 = add nsw i32 %73, 2
%75 = load i32, i32* %11
%76 = mul nsw i32 12, %75
%77 = sub nsw i32 %74, %76
store i32 %77, i32* %16
%78 = load i32, i32* %12
%79 = sub nsw i32 %78, 49
%80 = mul nsw i32 100, %79
%81 = load i32, i32* %13
%82 = add nsw i32 %80, %81
%83 = load i32, i32* %11
%84 = add nsw i32 %82, %83
store i32 %84, i32* %17
%85 = load double, double* %9
%86 = load double, double* %23
%87 = fcmp ogt double %85, %86
br i1 %87, label %88, label %148
88: ; preds = %28
%89 = load i32*, i32** %5
%90 = load i32, i32* %89
%91 = icmp slt i32 %90, 24
br i1 %91, label %92, label %94
92: ; preds = %88
%93 = load i32*, i32** %6
store i32 0, i32* %93
br label %147
94: ; preds = %88
%95 = load double, double* %9
%96 = fmul double %95, 2.400000e+01
store double %96, double* %9
%97 = load double, double* %9
%98 = fptosi double %97 to i32
store i32 %98, i32* %18
%99 = load double, double* %9
%100 = load i32, i32* %18
%101 = sitofp i32 %100 to double
%102 = fsub double %99, %101
%103 = fmul double %102, 6.000000e+01
store double %103, double* %9
%104 = load double, double* %9
%105 = fptosi double %104 to i32
store i32 %105, i32* %19
%106 = load double, double* %9
%107 = load i32, i32* %19
%108 = sitofp i32 %107 to double
%109 = fsub double %106, %108
%110 = fmul double %109, 6.000000e+01
%111 = fptrunc double %110 to float
store float %111, float* %22
%112 = load float, float* %22
%113 = fpext float %112 to double
%114 = fcmp oge double %113, 5.999900e+01
br i1 %114, label %115, label %122
115: ; preds = %94
%116 = load i32, i32* %19
%117 = add nsw i32 %116, 1
store i32 %117, i32* %19
%118 = load float, float* %22
%119 = fpext float %118 to double
%120 = fsub double %119, 6.000000e+01
%121 = fptrunc double %120 to float
store float %121, float* %22
br label %122
122: ; preds = %115, %94
%123 = load i32, i32* %19
%124 = icmp sge i32 %123, 60
br i1 %124, label %125, label %130
125: ; preds = %122
%126 = load i32, i32* %18
%127 = add nsw i32 %126, 1
store i32 %127, i32* %18
%128 = load i32, i32* %19
%129 = sub nsw i32 %128, 60
store i32 %129, i32* %19
br label %130
130: ; preds = %125, %122
%131 = load float, float* %22
%132 = fpext float %131 to double
%133 = load double, double* %23
%134 = fcmp olt double %132, %133
br i1 %134, label %135, label %136
135: ; preds = %130
store float 0.000000e+00, float* %22
br label %136
136: ; preds = %135, %130
%137 = load i8*, i8** %8
%138 = load i32, i32* %17
%139 = load i32, i32* %16
%140 = load i32, i32* %15
%141 = load i32, i32* %18
%142 = load i32, i32* %19
%143 = load float, float* %22
%144 = fpext float %143 to double
%145 = call i32 (i8*, i8*, ...) @sprintf(i8* %137, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str, i64 0, i64 0), i32 %138, i32 %139, i32 %140, i32 %141, i32 %142, double %144)
%146 = load i32*, i32** %6
store i32 23, i32* %146
br label %147
147: ; preds = %136, %92
br label %177
148: ; preds = %28
%149 = load i32*, i32** %5
%150 = load i32, i32* %149
%151 = icmp slt i32 %150, 10
br i1 %151, label %152, label %154
152: ; preds = %148
%153 = load i32*, i32** %6
store i32 0, i32* %153
br label %176
154: ; preds = %148
%155 = call i32 (i32, ...) bitcast (i32 (...)* @datestyle_ to i32 (i32, ...)*)(i32 0)
%156 = icmp ne i32 %155, 0
br i1 %156, label %160, label %157
157: ; preds = %154
%158 = load i32, i32* %17
%159 = icmp sge i32 %158, 2000
br i1 %159, label %160, label %167
160: ; preds = %157, %154
%161 = load i8*, i8** %8
%162 = load i32, i32* %17
%163 = load i32, i32* %16
%164 = load i32, i32* %15
%165 = call i32 (i8*, i8*, ...) @sprintf(i8* %161, i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.1, i64 0, i64 0), i32 %162, i32 %163, i32 %164)
%166 = load i32*, i32** %6
store i32 10, i32* %166
br label %175
167: ; preds = %157
%168 = load i8*, i8** %8
%169 = load i32, i32* %15
%170 = load i32, i32* %16
%171 = load i32, i32* %17
%172 = sub nsw i32 %171, 1900
%173 = call i32 (i8*, i8*, ...) @sprintf(i8* %168, i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.2, i64 0, i64 0), i32 %169, i32 %170, i32 %172)
%174 = load i32*, i32** %6
store i32 8, i32* %174
br label %175
175: ; preds = %167, %160
br label %176
176: ; preds = %175, %152
br label %177
177: ; preds = %176, %147
br label %178
178: ; preds = %177, %4
%179 = load i32*, i32** %6
%180 = load i32, i32* %179
store i32 %180, i32* %13
br label %181
181: ; preds = %191, %178
%182 = load i32, i32* %13
%183 = load i32*, i32** %5
%184 = load i32, i32* %183
%185 = icmp slt i32 %182, %184
br i1 %185, label %186, label %194
186: ; preds = %181
%187 = load i8*, i8** %8
%188 = load i32, i32* %13
%189 = sext i32 %188 to i64
%190 = getelementptr inbounds i8, i8* %187, i64 %189
store i8 32, i8* %190
br label %191
191: ; preds = %186
%192 = load i32, i32* %13
%193 = add nsw i32 %192, 1
store i32 %193, i32* %13
br label %181
194: ; preds = %181
ret void
}

LLVM IR (-O2):
@.str = [32 x i8] c"%04d-%02d-%02dT%02d:%02d:%06.3f\00"
@.str.1 = [15 x i8] c"%04d-%02d-%02d\00"
@.str.2 = [15 x i8] c"%02d/%02d/%02d\00"
define void @fromdate_(i32* nocapture %0, i32* nocapture %1, double* nocapture %2, i8* nocapture writeonly %3) {
store i32 0, i32* %1
%5 = load double, double* %2
%6 = fcmp ult double %5, 0.000000e+00
br i1 %6, label %86, label %7
7: ; preds = %4
%8 = fptosi double %5 to i32
%9 = sitofp i32 %8 to double
%10 = fsub double %5, %9
%11 = fsub double %5, %10
%12 = fadd double %11, 0x41424F8080000000
%13 = fptosi double %12 to i32
%14 = add nsw i32 %13, 68569
%15 = shl nsw i32 %14, 2
%16 = sdiv i32 %15, 146097
%17 = mul nsw i32 %16, 146097
%18 = add nsw i32 %17, 3
%19 = sdiv i32 %18, -4
%20 = add i32 %19, %14
%21 = mul i32 %20, 4000
%22 = add i32 %21, 4000
%23 = sdiv i32 %22, 1461001
%24 = mul nsw i32 %23, 1461
%25 = sdiv i32 %24, -4
%26 = add i32 %20, 31
%27 = add i32 %26, %25
%28 = mul nsw i32 %27, 80
%29 = sdiv i32 %28, 2447
%30 = mul nsw i32 %29, 2447
%31 = sdiv i32 %30, -80
%32 = add i32 %31, %27
%33 = sdiv i32 %28, 26917
%34 = add nsw i32 %29, 2
%35 = mul nsw i32 %33, -12
%36 = add nsw i32 %34, %35
%37 = mul nsw i32 %16, 100
%38 = add nsw i32 %37, -4900
%39 = add nsw i32 %38, %23
%40 = add nsw i32 %39, %33
%41 = fcmp ogt double %10, 0x3E38DAEA1D7F4CF8
%42 = load i32, i32* %0
br i1 %41, label %43, label %72
43: ; preds = %7
%44 = icmp slt i32 %42, 24
br i1 %44, label %86, label %45
45: ; preds = %43
%46 = fmul double %10, 2.400000e+01
%47 = fptosi double %46 to i32
%48 = sitofp i32 %47 to double
%49 = fsub double %46, %48
%50 = fmul double %49, 6.000000e+01
%51 = fptosi double %50 to i32
%52 = sitofp i32 %51 to double
%53 = fsub double %50, %52
%54 = fmul double %53, 6.000000e+01
%55 = fptrunc double %54 to float
%56 = fpext float %55 to double
%57 = fcmp ult double %56, 5.999900e+01
%58 = fadd float %55, -6.000000e+01
%59 = xor i1 %57, true
%60 = zext i1 %59 to i32
%61 = add nsw i32 %60, %51
%62 = select i1 %57, float %55, float %58
%63 = icmp sgt i32 %61, 59
%64 = add nsw i32 %61, -60
%65 = select i1 %63, i32 %64, i32 %61
%66 = zext i1 %63 to i32
%67 = add nsw i32 %66, %47
%68 = fpext float %62 to double
%69 = fcmp olt double %68, 0x3E38DAEA1D7F4CF8
%70 = select i1 %69, double 0.000000e+00, double %68
%71 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %3, i8* dereferenceable(1) getelementptr inbounds ([32 x i8], [32 x i8]* @.str, i64 0, i64 0), i32 %40, i32 %36, i32 %32, i32 %67, i32 %65, double %70)
br label %84
72: ; preds = %7
%73 = icmp slt i32 %42, 10
br i1 %73, label %86, label %74
74: ; preds = %72
%75 = tail call i32 (i32, ...) bitcast (i32 (...)* @datestyle_ to i32 (i32, ...)*)(i32 0)
%76 = icmp ne i32 %75, 0
%77 = icmp sgt i32 %40, 1999
%78 = select i1 %76, i1 true, i1 %77
br i1 %78, label %79, label %81
79: ; preds = %74
%80 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %3, i8* dereferenceable(1) getelementptr inbounds ([15 x i8], [15 x i8]* @.str.1, i64 0, i64 0), i32 %40, i32 %36, i32 %32)
br label %84
81: ; preds = %74
%82 = add nsw i32 %40, -1900
%83 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %3, i8* dereferenceable(1) getelementptr inbounds ([15 x i8], [15 x i8]* @.str.2, i64 0, i64 0), i32 %32, i32 %36, i32 %82)
br label %84
84: ; preds = %81, %79, %45
%85 = phi i32 [ 23, %45 ], [ 10, %79 ], [ 8, %81 ]
store i32 %85, i32* %1
br label %86
86: ; preds = %84, %72, %43, %4
%87 = phi i32 [ 0, %4 ], [ 0, %43 ], [ 0, %72 ], [ %85, %84 ]
%88 = load i32, i32* %0
%89 = icmp slt i32 %87, %88
br i1 %89, label %90, label %99
90: ; preds = %86
%91 = zext i32 %87 to i64
br label %92
92: ; preds = %90, %92
%93 = phi i64 [ %91, %90 ], [ %95, %92 ]
%94 = getelementptr inbounds i8, i8* %3, i64 %93
store i8 32, i8* %94
%95 = add nuw nsw i64 %93, 1
%96 = load i32, i32* %0
%97 = sext i32 %96 to i64
%98 = icmp slt i64 %95, %97
br i1 %98, label %92, label %99
99: ; preds = %92, %86
ret void
}