void todate_(slen, sdate, ddate, oldfits) int *slen;
char *sdate;
double *ddate;
int *oldfits;
{
  static int days[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
  int first, last, len;
  int yr, mon, day, hr, min, mday, mjd, csize, tmp;
  float secs;
  yr = mon = day = hr = min = 0;
  secs = 0.0;
  *ddate = -1.0;
  first = last = -1;
  while (last < *slen && sdate[++last] != '\0')
    ;
  while (last >= 0 && sdate[--last] == ' ' && last >= 0)
    ;
  while (first <= last && sdate[++first] == ' ')
    ;
  len = last - first + 1;
  if ((len == 8 || (len == 7 && first == 1)) && sdate[2] == '/' &&
      sdate[5] == '/') {
    sscanf(sdate, "%d/%d/%d", &day, &mon, &yr);
    if (*oldfits) {
      tmp = day;
      day = mon;
      mon = tmp;
    }
    yr += 1900;
  } else if (len == 10 && sdate[4] == '-' && sdate[7] == '-') {
    sscanf(sdate, "%d-%d-%d", &yr, &mon, &day);
  } else if (len >= 19 && sdate[4] == '-' && sdate[7] == '-' &&
             sdate[10] == 'T' && sdate[13] == ':' && sdate[16] == ':') {
    sscanf(sdate, "%d-%d-%dT%d:%d:%f", &yr, &mon, &day, &hr, &min, &secs);
  } else {
    return;
  }
  if (secs >= 60.0 || min >= 60 || hr >= 24 || mon > 12)
    return;
  mday = days[mon - 1];
  if ((yr % 400 == 0) || ((yr % 4 == 0) && (yr % 100 != 0)))
    mday++;
  if (day > mday)
    return;
  mjd = (1461 * (yr + 4800 + (mon - 14) / 12)) / 4 +
        (367 * (mon - 2 - 12 * ((mon - 14) / 12))) / 12 -
        (3 * ((yr + 4900 + (mon - 14) / 12) / 100)) / 4 + day - 32075;
  mjd = mjd - 2400001;
  *ddate = mjd + (hr + (min + secs / 60.0) / 60.0) / 24.0;
}


x86 assembly (clang, -O0):
<todate_>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x40(%rbp)
movl   $0x0,-0x3c(%rbp)
movl   $0x0,-0x38(%rbp)
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x54(%rbp)
mov    -0x18(%rbp),%rax
movsd  0xe9e(%rip),%xmm0
movsd  %xmm0,(%rax)
movl   $0xffffffff,-0x28(%rbp)
movl   $0xffffffff,-0x24(%rbp)
mov    -0x28(%rbp),%ecx
mov    -0x8(%rbp),%rdx
xor    %eax,%eax
cmp    (%rdx),%ecx
mov    %al,-0x55(%rbp)
jge    11a5 <todate_+0x95>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
mov    %ecx,-0x28(%rbp)
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x55(%rbp)
mov    -0x55(%rbp),%al
test   $0x1,%al
jne    11b5 <todate_+0xa5>
jmp    11ba <todate_+0xaa>
jmp    1174 <todate_+0x64>
jmp    11bf <todate_+0xaf>
xor    %eax,%eax
cmpl   $0x0,-0x28(%rbp)
mov    %al,-0x56(%rbp)
jl     11fa <todate_+0xea>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x28(%rbp)
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%ecx
xor    %eax,%eax
cmp    $0x20,%ecx
mov    %al,-0x56(%rbp)
jne    11fa <todate_+0xea>
cmpl   $0x0,-0x28(%rbp)
setge  %al
mov    %al,-0x56(%rbp)
mov    -0x56(%rbp),%al
test   $0x1,%al
jne    120a <todate_+0xfa>
jmp    120f <todate_+0xff>
jmp    11bf <todate_+0xaf>
jmp    1214 <todate_+0x104>
mov    -0x24(%rbp),%ecx
xor    %eax,%eax
cmp    -0x28(%rbp),%ecx
mov    %al,-0x57(%rbp)
jg     1242 <todate_+0x132>
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
mov    %ecx,-0x24(%rbp)
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x20,%eax
sete   %al
mov    %al,-0x57(%rbp)
mov    -0x57(%rbp),%al
test   $0x1,%al
jne    1252 <todate_+0x142>
jmp    1257 <todate_+0x147>
jmp    1214 <todate_+0x104>
mov    -0x28(%rbp),%eax
sub    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x8,-0x2c(%rbp)
je     1281 <todate_+0x171>
cmpl   $0x7,-0x2c(%rbp)
jne    12f0 <todate_+0x1e0>
cmpl   $0x1,-0x24(%rbp)
jne    12f0 <todate_+0x1e0>
mov    -0x10(%rbp),%rax
movsbl 0x2(%rax),%eax
cmp    $0x2f,%eax
jne    12f0 <todate_+0x1e0>
mov    -0x10(%rbp),%rax
movsbl 0x5(%rax),%eax
cmp    $0x2f,%eax
jne    12f0 <todate_+0x1e0>
mov    -0x10(%rbp),%rdi
lea    0xd6a(%rip),%rsi
lea    -0x38(%rbp),%rdx
lea    -0x34(%rbp),%rcx
lea    -0x30(%rbp),%r8
mov    $0x0,%al
call   1030 <sscanf@plt>
mov    -0x20(%rbp),%rax
cmpl   $0x0,(%rax)
je     12e0 <todate_+0x1d0>
mov    -0x38(%rbp),%eax
mov    %eax,-0x50(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x50(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%eax
add    $0x76c,%eax
mov    %eax,-0x30(%rbp)
jmp    13e5 <todate_+0x2d5>
cmpl   $0xa,-0x2c(%rbp)
jne    133f <todate_+0x22f>
mov    -0x10(%rbp),%rax
movsbl 0x4(%rax),%eax
cmp    $0x2d,%eax
jne    133f <todate_+0x22f>
mov    -0x10(%rbp),%rax
movsbl 0x7(%rax),%eax
cmp    $0x2d,%eax
jne    133f <todate_+0x22f>
mov    -0x10(%rbp),%rdi
lea    0xcfa(%rip),%rsi
lea    -0x30(%rbp),%rdx
lea    -0x34(%rbp),%rcx
lea    -0x38(%rbp),%r8
mov    $0x0,%al
call   1030 <sscanf@plt>
jmp    13e0 <todate_+0x2d0>
cmpl   $0x13,-0x2c(%rbp)
jl     13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rax
movsbl 0x4(%rax),%eax
cmp    $0x2d,%eax
jne    13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rax
movsbl 0x7(%rax),%eax
cmp    $0x2d,%eax
jne    13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rax
movsbl 0xa(%rax),%eax
cmp    $0x54,%eax
jne    13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rax
movsbl 0xd(%rax),%eax
cmp    $0x3a,%eax
jne    13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rax
movsbl 0x10(%rax),%eax
cmp    $0x3a,%eax
jne    13d6 <todate_+0x2c6>
mov    -0x10(%rbp),%rdi
lea    0xc81(%rip),%rsi
lea    -0x30(%rbp),%rdx
lea    -0x34(%rbp),%rcx
lea    -0x38(%rbp),%r8
lea    -0x3c(%rbp),%r9
lea    -0x40(%rbp),%r10
lea    -0x54(%rbp),%rax
mov    %r10,(%rsp)
mov    %rax,0x8(%rsp)
mov    $0x0,%al
call   1030 <sscanf@plt>
jmp    13db <todate_+0x2cb>
jmp    1599 <todate_+0x489>
jmp    13e0 <todate_+0x2d0>
jmp    13e5 <todate_+0x2d5>
movss  -0x54(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xc12(%rip),%xmm1
ucomisd %xmm1,%xmm0
jae    141e <todate_+0x30e>
cmpl   $0x3c,-0x40(%rbp)
jge    141e <todate_+0x30e>
cmpl   $0x18,-0x3c(%rbp)
jge    141e <todate_+0x30e>
cmpl   $0xc,-0x34(%rbp)
jle    1423 <todate_+0x313>
jmp    1599 <todate_+0x489>
mov    -0x34(%rbp),%eax
sub    $0x1,%eax
movslq %eax,%rcx
lea    0x2bfd(%rip),%rax
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
mov    -0x30(%rbp),%eax
mov    $0x190,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     1475 <todate_+0x365>
mov    -0x30(%rbp),%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
jne    147e <todate_+0x36e>
mov    -0x30(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     147e <todate_+0x36e>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x44(%rbp),%eax
jle    148f <todate_+0x37f>
jmp    1599 <todate_+0x489>
mov    -0x30(%rbp),%eax
add    $0x12c0,%eax
mov    %eax,-0x6c(%rbp)
mov    -0x34(%rbp),%eax
sub    $0xe,%eax
mov    $0xc,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x6c(%rbp),%eax
add    %ecx,%eax
imul   $0x5b5,%eax,%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,-0x64(%rbp)
mov    -0x34(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x68(%rbp)
mov    -0x34(%rbp),%eax
sub    $0xe,%eax
mov    $0xc,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x68(%rbp),%eax
imul   $0xc,%ecx,%ecx
sub    %ecx,%eax
imul   $0x16f,%eax,%eax
mov    $0xc,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x64(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x5c(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1324,%eax
mov    %eax,-0x60(%rbp)
mov    -0x34(%rbp),%eax
sub    $0xe,%eax
mov    $0xc,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x60(%rbp),%eax
add    %ecx,%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
imul   $0x3,%eax,%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x5c(%rbp),%eax
sub    %ecx,%eax
add    -0x38(%rbp),%eax
sub    $0x7d4b,%eax
mov    %eax,-0x48(%rbp)
mov    -0x48(%rbp),%eax
sub    $0x249f01,%eax
mov    %eax,-0x48(%rbp)
cvtsi2sdl -0x48(%rbp),%xmm0
cvtsi2sdl -0x3c(%rbp),%xmm1
cvtsi2sdl -0x40(%rbp),%xmm2
movss  -0x54(%rbp),%xmm3
cvtss2sd %xmm3,%xmm3
movsd  0xa9f(%rip),%xmm4
divsd  %xmm4,%xmm3
addsd  %xmm3,%xmm2
movsd  0xa8f(%rip),%xmm3
divsd  %xmm3,%xmm2
addsd  %xmm2,%xmm1
movsd  0xa87(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<todate_>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x18,%rsp
mov    %rcx,%rbx
mov    %rdx,%r14
movl   $0x0,0x10(%rsp)
movl   $0x0,0x14(%rsp)
movl   $0x0,(%rsp)
movl   $0x0,0x4(%rsp)
movl   $0x0,0x8(%rsp)
movl   $0x0,0xc(%rsp)
movabs $0xbff0000000000000,%rax
mov    %rax,(%rdx)
mov    (%rdi),%ecx
test   %ecx,%ecx
mov    $0xffffffff,%eax
cmovns %ecx,%eax
movslq %eax,%rcx
mov    $0xffffffffffffffff,%rdx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
cmp    %rdx,%rcx
je     1195 <todate_+0x85>
lea    0x1(%rdx),%rdi
cmpb   $0x0,0x1(%rsi,%rdx,1)
mov    %rdi,%rdx
jne    1180 <todate_+0x70>
mov    %edi,%eax
test   %eax,%eax
js     11b5 <todate_+0xa5>
mov    %eax,%eax
nopl   0x0(%rax,%rax,1)
mov    %rax,%rdx
add    $0xffffffffffffffff,%rax
setb   %cl
cmpb   $0x20,-0x1(%rsi,%rdx,1)
jne    11b5 <todate_+0xa5>
test   %cl,%cl
jne    11a0 <todate_+0x90>
cmp    $0xffffffff,%eax
mov    $0xfffffffe,%ecx
cmovge %eax,%ecx
add    $0x1,%ecx
movslq %ecx,%rdx
mov    $0xffffffffffffffff,%rdi
nopl   (%rax)
cmp    %rdi,%rdx
je     11e5 <todate_+0xd5>
lea    0x1(%rdi),%rbp
cmpb   $0x20,0x1(%rsi,%rdi,1)
mov    %rbp,%rdi
je     11d0 <todate_+0xc0>
mov    %ebp,%ecx
sub    %ecx,%eax
lea    0x1(%rax),%edx
cmp    $0x8,%edx
je     1201 <todate_+0xf1>
cmp    $0x7,%edx
jne    13b6 <todate_+0x2a6>
cmp    $0x1,%ecx
jne    13b6 <todate_+0x2a6>
cmpb   $0x2f,0x2(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x2f,0x5(%rsi)
jne    146d <todate_+0x35d>
lea    0xe34(%rip),%rax
xor    %r15d,%r15d
mov    %rsp,%rdx
lea    0x4(%rsp),%rcx
lea    0x8(%rsp),%r8
mov    %rsi,%rdi
mov    %rax,%rsi
xor    %eax,%eax
call   1030 <sscanf@plt>
cmpl   $0x0,(%rbx)
je     124c <todate_+0x13c>
mov    (%rsp),%eax
mov    0x4(%rsp),%ecx
mov    %ecx,(%rsp)
mov    %eax,0x4(%rsp)
addl   $0x76c,0x8(%rsp)
xorps  %xmm0,%xmm0
xor    %eax,%eax
ucomiss 0xda0(%rip),%xmm0
jae    146d <todate_+0x35d>
cmp    $0x3b,%eax
jg     146d <todate_+0x35d>
cmp    $0x17,%r15d
jg     146d <todate_+0x35d>
mov    0x4(%rsp),%edx
cmp    $0xc,%edx
jg     146d <todate_+0x35d>
movslq %edx,%rcx
lea    0xd90(%rip),%rsi
mov    -0x4(%rsi,%rcx,4),%edi
mov    0x8(%rsp),%ebp
imul   $0xc28f5c29,%ebp,%esi
add    $0x51eb850,%esi
ror    $0x4,%esi
cmp    $0xa3d70b,%esi
jb     12d5 <todate_+0x1c5>
test   $0x3,%bpl
jne    12d8 <todate_+0x1c8>
movslq %ebp,%rsi
imul   $0x51eb851f,%rsi,%rsi
mov    %rsi,%rbx
shr    $0x3f,%rbx
sar    $0x25,%rsi
add    %ebx,%esi
imul   $0x64,%esi,%esi
mov    %ebp,%ecx
sub    %esi,%ecx
je     12d8 <todate_+0x1c8>
add    $0x1,%edi
mov    (%rsp),%esi
cmp    %edi,%esi
jg     146d <todate_+0x35d>
mov    $0xe,%ecx
sub    %edx,%ecx
mov    $0xaaaaaaab,%ebx
imul   %rcx,%rbx
shr    $0x23,%rbx
sub    %ebx,%ebp
imul   $0x5b5,%ebp,%edi
lea    0x6b01c0(%rdi),%ecx
add    $0x6b01c3,%edi
test   %ecx,%ecx
cmovns %ecx,%edi
sar    $0x2,%edi
lea    (%rbx,%rbx,2),%ecx
lea    (%rdx,%rcx,4),%ecx
imul   $0x16f,%ecx,%ecx
add    $0xfffffd22,%ecx
movslq %ecx,%rcx
imul   $0x2aaaaaab,%rcx,%rdx
mov    %rdx,%rcx
shr    $0x3f,%rcx
sar    $0x21,%rdx
add    %ecx,%edx
add    $0x1324,%ebp
movslq %ebp,%rcx
imul   $0x51eb851f,%rcx,%rcx
mov    %rcx,%rbp
shr    $0x3f,%rbp
sar    $0x25,%rcx
add    %ebp,%ecx
lea    (%rcx,%rcx,2),%ebp
lea    (%rcx,%rcx,2),%ecx
add    $0x3,%ecx
test   %ebp,%ebp
cmovns %ebp,%ecx
sar    $0x2,%ecx
add    %edi,%edx
sub    %ecx,%edx
lea    (%rdx,%rsi,1),%ecx
add    $0xffdae3b4,%ecx
cvtsi2sd %ecx,%xmm1
cvtsi2sd %r15d,%xmm2
cvtsi2sd %eax,%xmm3
cvtss2sd %xmm0,%xmm0
movsd  0xc78(%rip),%xmm4
divsd  %xmm4,%xmm0
addsd  %xmm3,%xmm0
divsd  %xmm4,%xmm0
addsd  %xmm2,%xmm0
divsd  0xc68(%rip),%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%r14)
jmp    146d <todate_+0x35d>
cmp    $0xa,%edx
jne    13f8 <todate_+0x2e8>
cmpb   $0x2d,0x4(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x2d,0x7(%rsi)
jne    146d <todate_+0x35d>
lea    0xc83(%rip),%rax
xor    %r15d,%r15d
lea    0x8(%rsp),%rdx
lea    0x4(%rsp),%rcx
mov    %rsp,%r8
mov    %rsi,%rdi
mov    %rax,%rsi
xor    %eax,%eax
call   1030 <sscanf@plt>
jmp    1254 <todate_+0x144>
cmp    $0x12,%eax
jl     146d <todate_+0x35d>
cmpb   $0x2d,0x4(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x2d,0x7(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x54,0xa(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x3a,0xd(%rsi)
jne    146d <todate_+0x35d>
cmpb   $0x3a,0x10(%rsi)
jne    146d <todate_+0x35d>
lea    0xc(%rsp),%rbp
lea    0x10(%rsp),%rbx
lea    0xc36(%rip),%rax
lea    0x8(%rsp),%rdx
lea    0x4(%rsp),%rcx
mov    %rsp,%r8
lea    0x14(%rsp),%r9
mov    %rsi,%rdi
mov    %rax,%rsi
xor    %eax,%eax
push   %rbp
push   %rbx
call   1030 <sscanf@plt>
add    $0x10,%rsp
movss  0xc(%rsp),%xmm0
mov    0x10(%rsp),%eax
mov    0x14(%rsp),%r15d
ucomiss 0xb99(%rip),%xmm0
jb     1266 <todate_+0x156>
add    $0x18,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@todate_.days = internal global [12 x i32] [i32 31, i32 28, i32 31, i32 30, i32 31, i32 30, i32 31, i32 31, i32 30, i32 31, i32 30, i32 31]
@.str = [9 x i8] c"%d/%d/%d\00"
@.str.1 = [9 x i8] c"%d-%d-%d\00"
@.str.2 = [18 x i8] c"%d-%d-%dT%d:%d:%f\00"
define void @todate_(i32* %0, i8* %1, double* %2, i32* %3) {
%5 = alloca i32*
%6 = alloca i8*
%7 = alloca double*
%8 = alloca i32*
%9 = alloca i32
%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 float
store i32* %0, i32** %5
store i8* %1, i8** %6
store double* %2, double** %7
store i32* %3, i32** %8
store i32 0, i32* %16
store i32 0, i32* %15
store i32 0, i32* %14
store i32 0, i32* %13
store i32 0, i32* %12
store float 0.000000e+00, float* %21
%22 = load double*, double** %7
store double -1.000000e+00, double* %22
store i32 -1, i32* %10
store i32 -1, i32* %9
br label %23
23: ; preds = %39, %4
%24 = load i32, i32* %10
%25 = load i32*, i32** %5
%26 = load i32, i32* %25
%27 = icmp slt i32 %24, %26
br i1 %27, label %28, label %37
28: ; preds = %23
%29 = load i8*, i8** %6
%30 = load i32, i32* %10
%31 = add nsw i32 %30, 1
store i32 %31, i32* %10
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp ne i32 %35, 0
br label %37
37: ; preds = %28, %23
%38 = phi i1 [ false, %23 ], [ %36, %28 ]
br i1 %38, label %39, label %40
39: ; preds = %37
br label %23
40: ; preds = %37
br label %41
41: ; preds = %58, %40
%42 = load i32, i32* %10
%43 = icmp sge i32 %42, 0
br i1 %43, label %44, label %56
44: ; preds = %41
%45 = load i8*, i8** %6
%46 = load i32, i32* %10
%47 = add nsw i32 %46, -1
store i32 %47, i32* %10
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds i8, i8* %45, i64 %48
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = icmp eq i32 %51, 32
br i1 %52, label %53, label %56
53: ; preds = %44
%54 = load i32, i32* %10
%55 = icmp sge i32 %54, 0
br label %56
56: ; preds = %53, %44, %41
%57 = phi i1 [ false, %44 ], [ false, %41 ], [ %55, %53 ]
br i1 %57, label %58, label %59
58: ; preds = %56
br label %41
59: ; preds = %56
br label %60
60: ; preds = %75, %59
%61 = load i32, i32* %9
%62 = load i32, i32* %10
%63 = icmp sle i32 %61, %62
br i1 %63, label %64, label %73
64: ; preds = %60
%65 = load i8*, i8** %6
%66 = load i32, i32* %9
%67 = add nsw i32 %66, 1
store i32 %67, i32* %9
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds i8, i8* %65, i64 %68
%70 = load i8, i8* %69
%71 = sext i8 %70 to i32
%72 = icmp eq i32 %71, 32
br label %73
73: ; preds = %64, %60
%74 = phi i1 [ false, %60 ], [ %72, %64 ]
br i1 %74, label %75, label %76
75: ; preds = %73
br label %60
76: ; preds = %73
%77 = load i32, i32* %10
%78 = load i32, i32* %9
%79 = sub nsw i32 %77, %78
%80 = add nsw i32 %79, 1
store i32 %80, i32* %11
%81 = load i32, i32* %11
%82 = icmp eq i32 %81, 8
br i1 %82, label %89, label %83
83: ; preds = %76
%84 = load i32, i32* %11
%85 = icmp eq i32 %84, 7
br i1 %85, label %86, label %114
86: ; preds = %83
%87 = load i32, i32* %9
%88 = icmp eq i32 %87, 1
br i1 %88, label %89, label %114
89: ; preds = %86, %76
%90 = load i8*, i8** %6
%91 = getelementptr inbounds i8, i8* %90, i64 2
%92 = load i8, i8* %91
%93 = sext i8 %92 to i32
%94 = icmp eq i32 %93, 47
br i1 %94, label %95, label %114
95: ; preds = %89
%96 = load i8*, i8** %6
%97 = getelementptr inbounds i8, i8* %96, i64 5
%98 = load i8, i8* %97
%99 = sext i8 %98 to i32
%100 = icmp eq i32 %99, 47
br i1 %100, label %101, label %114
101: ; preds = %95
%102 = load i8*, i8** %6
%103 = call i32 (i8*, i8*, ...) @sscanf(i8* %102, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32* %14, i32* %13, i32* %12)
%104 = load i32*, i32** %8
%105 = load i32, i32* %104
%106 = icmp ne i32 %105, 0
br i1 %106, label %107, label %111
107: ; preds = %101
%108 = load i32, i32* %14
store i32 %108, i32* %20
%109 = load i32, i32* %13
store i32 %109, i32* %14
%110 = load i32, i32* %20
store i32 %110, i32* %13
br label %111
111: ; preds = %107, %101
%112 = load i32, i32* %12
%113 = add nsw i32 %112, 1900
store i32 %113, i32* %12
br label %171
114: ; preds = %95, %89, %86, %83
%115 = load i32, i32* %11
%116 = icmp eq i32 %115, 10
br i1 %116, label %117, label %132
117: ; preds = %114
%118 = load i8*, i8** %6
%119 = getelementptr inbounds i8, i8* %118, i64 4
%120 = load i8, i8* %119
%121 = sext i8 %120 to i32
%122 = icmp eq i32 %121, 45
br i1 %122, label %123, label %132
123: ; preds = %117
%124 = load i8*, i8** %6
%125 = getelementptr inbounds i8, i8* %124, i64 7
%126 = load i8, i8* %125
%127 = sext i8 %126 to i32
%128 = icmp eq i32 %127, 45
br i1 %128, label %129, label %132
129: ; preds = %123
%130 = load i8*, i8** %6
%131 = call i32 (i8*, i8*, ...) @sscanf(i8* %130, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0), i32* %12, i32* %13, i32* %14)
br label %170
132: ; preds = %123, %117, %114
%133 = load i32, i32* %11
%134 = icmp sge i32 %133, 19
br i1 %134, label %135, label %168
135: ; preds = %132
%136 = load i8*, i8** %6
%137 = getelementptr inbounds i8, i8* %136, i64 4
%138 = load i8, i8* %137
%139 = sext i8 %138 to i32
%140 = icmp eq i32 %139, 45
br i1 %140, label %141, label %168
141: ; preds = %135
%142 = load i8*, i8** %6
%143 = getelementptr inbounds i8, i8* %142, i64 7
%144 = load i8, i8* %143
%145 = sext i8 %144 to i32
%146 = icmp eq i32 %145, 45
br i1 %146, label %147, label %168
147: ; preds = %141
%148 = load i8*, i8** %6
%149 = getelementptr inbounds i8, i8* %148, i64 10
%150 = load i8, i8* %149
%151 = sext i8 %150 to i32
%152 = icmp eq i32 %151, 84
br i1 %152, label %153, label %168
153: ; preds = %147
%154 = load i8*, i8** %6
%155 = getelementptr inbounds i8, i8* %154, i64 13
%156 = load i8, i8* %155
%157 = sext i8 %156 to i32
%158 = icmp eq i32 %157, 58
br i1 %158, label %159, label %168
159: ; preds = %153
%160 = load i8*, i8** %6
%161 = getelementptr inbounds i8, i8* %160, i64 16
%162 = load i8, i8* %161
%163 = sext i8 %162 to i32
%164 = icmp eq i32 %163, 58
br i1 %164, label %165, label %168
165: ; preds = %159
%166 = load i8*, i8** %6
%167 = call i32 (i8*, i8*, ...) @sscanf(i8* %166, i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), i32* %12, i32* %13, i32* %14, i32* %15, i32* %16, float* %21)
br label %169
168: ; preds = %159, %153, %147, %141, %135, %132
br label %259
169: ; preds = %165
br label %170
170: ; preds = %169, %129
br label %171
171: ; preds = %170, %111
%172 = load float, float* %21
%173 = fpext float %172 to double
%174 = fcmp oge double %173, 6.000000e+01
br i1 %174, label %184, label %175
175: ; preds = %171
%176 = load i32, i32* %16
%177 = icmp sge i32 %176, 60
br i1 %177, label %184, label %178
178: ; preds = %175
%179 = load i32, i32* %15
%180 = icmp sge i32 %179, 24
br i1 %180, label %184, label %181
181: ; preds = %178
%182 = load i32, i32* %13
%183 = icmp sgt i32 %182, 12
br i1 %183, label %184, label %185
184: ; preds = %181, %178, %175, %171
br label %259
185: ; preds = %181
%186 = load i32, i32* %13
%187 = sub nsw i32 %186, 1
%188 = sext i32 %187 to i64
%189 = getelementptr inbounds [12 x i32], [12 x i32]* @todate_.days, i64 0, i64 %188
%190 = load i32, i32* %189
store i32 %190, i32* %17
%191 = load i32, i32* %12
%192 = srem i32 %191, 400
%193 = icmp eq i32 %192, 0
br i1 %193, label %202, label %194
194: ; preds = %185
%195 = load i32, i32* %12
%196 = srem i32 %195, 4
%197 = icmp eq i32 %196, 0
br i1 %197, label %198, label %205
198: ; preds = %194
%199 = load i32, i32* %12
%200 = srem i32 %199, 100
%201 = icmp ne i32 %200, 0
br i1 %201, label %202, label %205
202: ; preds = %198, %185
%203 = load i32, i32* %17
%204 = add nsw i32 %203, 1
store i32 %204, i32* %17
br label %205
205: ; preds = %202, %198, %194
%206 = load i32, i32* %14
%207 = load i32, i32* %17
%208 = icmp sgt i32 %206, %207
br i1 %208, label %209, label %210
209: ; preds = %205
br label %259
210: ; preds = %205
%211 = load i32, i32* %12
%212 = add nsw i32 %211, 4800
%213 = load i32, i32* %13
%214 = sub nsw i32 %213, 14
%215 = sdiv i32 %214, 12
%216 = add nsw i32 %212, %215
%217 = mul nsw i32 1461, %216
%218 = sdiv i32 %217, 4
%219 = load i32, i32* %13
%220 = sub nsw i32 %219, 2
%221 = load i32, i32* %13
%222 = sub nsw i32 %221, 14
%223 = sdiv i32 %222, 12
%224 = mul nsw i32 12, %223
%225 = sub nsw i32 %220, %224
%226 = mul nsw i32 367, %225
%227 = sdiv i32 %226, 12
%228 = add nsw i32 %218, %227
%229 = load i32, i32* %12
%230 = add nsw i32 %229, 4900
%231 = load i32, i32* %13
%232 = sub nsw i32 %231, 14
%233 = sdiv i32 %232, 12
%234 = add nsw i32 %230, %233
%235 = sdiv i32 %234, 100
%236 = mul nsw i32 3, %235
%237 = sdiv i32 %236, 4
%238 = sub nsw i32 %228, %237
%239 = load i32, i32* %14
%240 = add nsw i32 %238, %239
%241 = sub nsw i32 %240, 32075
store i32 %241, i32* %18
%242 = load i32, i32* %18
%243 = sub nsw i32 %242, 2400001
store i32 %243, i32* %18
%244 = load i32, i32* %18
%245 = sitofp i32 %244 to double
%246 = load i32, i32* %15
%247 = sitofp i32 %246 to double
%248 = load i32, i32* %16
%249 = sitofp i32 %248 to double
%250 = load float, float* %21
%251 = fpext float %250 to double
%252 = fdiv double %251, 6.000000e+01
%253 = fadd double %249, %252
%254 = fdiv double %253, 6.000000e+01
%255 = fadd double %247, %254
%256 = fdiv double %255, 2.400000e+01
%257 = fadd double %245, %256
%258 = load double*, double** %7
store double %257, double* %258
br label %259
259: ; preds = %210, %209, %184, %168
ret void
}

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