#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int atoi(char *);
scalar_t__ sprintf(char *, char *, int);
int format_double_old(char *dest, double a) {
  char ptr[32];
  int ND, k, exp, index;
  int pos_coma, pos_e;
  char sgn, first;
  sprintf(ptr, "%+20.12e", a);
  k = 0;
  while (ptr[k] != '.')
    k++;
  pos_coma = k;
  while (ptr[k] != 'e')
    k++;
  pos_e = k + 1;
  exp = atoi(ptr + pos_e);
  first = ptr[pos_coma - 1];
  sgn = ptr[pos_coma - 2];
  if (sgn == '+')
    sgn = ' ';
  index = 0;
  dest[index++] = ' ';
  dest[index++] = sgn;
  dest[index++] = '.';
  if (first == '0')
    ND = 12;
  else {
    dest[index++] = first;
    ND = 11;
    exp++;
  }
  for (k = 1; k <= ND; k++)
    dest[index++] = ptr[pos_coma + k];
  index += sprintf(dest + index, "D%+03d", exp);
  return index;
}


x86 assembly (clang, -O0):
<format_double_old>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
lea    -0x30(%rbp),%rdi
cvttsd2si -0x10(%rbp),%edx
lea    0xebf(%rip),%rsi
call   1040 <sprintf@plt>
movl   $0x0,-0x38(%rbp)
movslq -0x38(%rbp),%rax
movsbl -0x30(%rbp,%rax,1),%eax
cmp    $0x2e,%eax
je     116d <format_double_old+0x4d>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    114d <format_double_old+0x2d>
mov    -0x38(%rbp),%eax
mov    %eax,-0x44(%rbp)
movslq -0x38(%rbp),%rax
movsbl -0x30(%rbp,%rax,1),%eax
cmp    $0x65,%eax
je     1193 <format_double_old+0x73>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1173 <format_double_old+0x53>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x48(%rbp)
lea    -0x30(%rbp),%rdi
movslq -0x48(%rbp),%rax
add    %rax,%rdi
call   1030 <atoi@plt>
mov    %eax,-0x3c(%rbp)
mov    -0x44(%rbp),%eax
sub    $0x1,%eax
cltq
mov    -0x30(%rbp,%rax,1),%al
mov    %al,-0x4a(%rbp)
mov    -0x44(%rbp),%eax
sub    $0x2,%eax
cltq
mov    -0x30(%rbp,%rax,1),%al
mov    %al,-0x49(%rbp)
movsbl -0x49(%rbp),%eax
cmp    $0x2b,%eax
jne    11de <format_double_old+0xbe>
movb   $0x20,-0x49(%rbp)
movl   $0x0,-0x40(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x40(%rbp)
movslq %ecx,%rcx
movb   $0x20,(%rax,%rcx,1)
mov    -0x49(%rbp),%dl
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x40(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x40(%rbp)
movslq %ecx,%rcx
movb   $0x2e,(%rax,%rcx,1)
movsbl -0x4a(%rbp),%eax
cmp    $0x30,%eax
jne    1242 <format_double_old+0x122>
movl   $0xc,-0x34(%rbp)
jmp    126a <format_double_old+0x14a>
mov    -0x4a(%rbp),%dl
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x40(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
movl   $0xb,-0x34(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
movl   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     12ac <format_double_old+0x18c>
mov    -0x44(%rbp),%eax
add    -0x38(%rbp),%eax
cltq
mov    -0x30(%rbp,%rax,1),%dl
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x40(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1271 <format_double_old+0x151>
mov    -0x8(%rbp),%rdi
movslq -0x40(%rbp),%rax
add    %rax,%rdi
mov    -0x3c(%rbp),%edx
lea    0xd48(%rip),%rsi
call   1040 <sprintf@plt>
mov    %rax,%rcx
movslq -0x40(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x40(%rbp)
mov    -0x40(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<format_double_old>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x20,%rsp
mov    %rdi,%r15
movabs $0x100000000,%r14
cvttsd2si %xmm0,%edx
lea    0xeac(%rip),%rsi
mov    %rsp,%rdi
call   1050 <sprintf@plt>
movabs $0xfffffffd00000000,%rbx
ff ff ff
movabs $0xfffffffe00000000,%rbp
ff ff ff
xor    %r12d,%r12d
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    %r14,%rbx
add    %r14,%rbp
cmpb   $0x2e,(%rsp,%r12,1)
lea    0x1(%r12),%r12
jne    1180 <format_double_old+0x50>
lea    -0x1(%r12),%eax
nopw   0x0(%rax,%rax,1)
cmpb   $0x65,(%rsp,%rax,1)
lea    0x1(%rax),%rax
jne    11a0 <format_double_old+0x70>
mov    %eax,%eax
lea    (%rsp,%rax,1),%rdi
call   1040 <atoi@plt>
mov    %eax,%r14d
sar    $0x20,%rbp
mov    (%rsp,%rbp,1),%al
sar    $0x20,%rbx
movzbl (%rsp,%rbx,1),%ecx
cmp    $0x2b,%cl
mov    $0x20,%edx
cmovne %ecx,%edx
movb   $0x20,(%r15)
mov    %dl,0x1(%r15)
movb   $0x2e,0x2(%r15)
cmp    $0x30,%al
jne    11ef <format_double_old+0xbf>
mov    $0xc,%ebp
mov    $0x3,%ebx
jmp    1201 <format_double_old+0xd1>
mov    %al,0x3(%r15)
add    $0x1,%r14d
mov    $0xb,%ebp
mov    $0x4,%ebx
lea    (%r15,%rbx,1),%rdi
mov    %r12d,%eax
lea    (%rsp,%rax,1),%rsi
mov    %ebp,%edx
call   1030 <memcpy@plt>
add    %ebp,%ebx
lea    (%rbx,%r15,1),%rdi
lea    0xde9(%rip),%rsi
mov    %r14d,%edx
call   1050 <sprintf@plt>
add    %ebx,%eax
add    $0x20,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [9 x i8] c"%+20.12e\00"
@.str.1 = [7 x i8] c"D%+03d\00"
define i32 @format_double_old(i8* %0, double %1) {
%3 = alloca i8*
%4 = alloca double
%5 = alloca [32 x i8]
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i8
%13 = alloca i8
store i8* %0, i8** %3
store double %1, double* %4
%14 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 0
%15 = load double, double* %4
%16 = fptosi double %15 to i32
%17 = call i64 @sprintf(i8* %14, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32 %16)
store i32 0, i32* %7
br label %18
18: ; preds = %25, %2
%19 = load i32, i32* %7
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 %20
%22 = load i8, i8* %21
%23 = sext i8 %22 to i32
%24 = icmp ne i32 %23, 46
br i1 %24, label %25, label %28
25: ; preds = %18
%26 = load i32, i32* %7
%27 = add nsw i32 %26, 1
store i32 %27, i32* %7
br label %18
28: ; preds = %18
%29 = load i32, i32* %7
store i32 %29, i32* %10
br label %30
30: ; preds = %37, %28
%31 = load i32, i32* %7
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 %32
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp ne i32 %35, 101
br i1 %36, label %37, label %40
37: ; preds = %30
%38 = load i32, i32* %7
%39 = add nsw i32 %38, 1
store i32 %39, i32* %7
br label %30
40: ; preds = %30
%41 = load i32, i32* %7
%42 = add nsw i32 %41, 1
store i32 %42, i32* %11
%43 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 0
%44 = load i32, i32* %11
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %43, i64 %45
%47 = call i32 @atoi(i8* %46)
store i32 %47, i32* %8
%48 = load i32, i32* %10
%49 = sub nsw i32 %48, 1
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 %50
%52 = load i8, i8* %51
store i8 %52, i8* %13
%53 = load i32, i32* %10
%54 = sub nsw i32 %53, 2
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 %55
%57 = load i8, i8* %56
store i8 %57, i8* %12
%58 = load i8, i8* %12
%59 = sext i8 %58 to i32
%60 = icmp eq i32 %59, 43
br i1 %60, label %61, label %62
61: ; preds = %40
store i8 32, i8* %12
br label %62
62: ; preds = %61, %40
store i32 0, i32* %9
%63 = load i8*, i8** %3
%64 = load i32, i32* %9
%65 = add nsw i32 %64, 1
store i32 %65, i32* %9
%66 = sext i32 %64 to i64
%67 = getelementptr inbounds i8, i8* %63, i64 %66
store i8 32, i8* %67
%68 = load i8, i8* %12
%69 = load i8*, i8** %3
%70 = load i32, i32* %9
%71 = add nsw i32 %70, 1
store i32 %71, i32* %9
%72 = sext i32 %70 to i64
%73 = getelementptr inbounds i8, i8* %69, i64 %72
store i8 %68, i8* %73
%74 = load i8*, i8** %3
%75 = load i32, i32* %9
%76 = add nsw i32 %75, 1
store i32 %76, i32* %9
%77 = sext i32 %75 to i64
%78 = getelementptr inbounds i8, i8* %74, i64 %77
store i8 46, i8* %78
%79 = load i8, i8* %13
%80 = sext i8 %79 to i32
%81 = icmp eq i32 %80, 48
br i1 %81, label %82, label %83
82: ; preds = %62
store i32 12, i32* %6
br label %92
83: ; preds = %62
%84 = load i8, i8* %13
%85 = load i8*, i8** %3
%86 = load i32, i32* %9
%87 = add nsw i32 %86, 1
store i32 %87, i32* %9
%88 = sext i32 %86 to i64
%89 = getelementptr inbounds i8, i8* %85, i64 %88
store i8 %84, i8* %89
store i32 11, i32* %6
%90 = load i32, i32* %8
%91 = add nsw i32 %90, 1
store i32 %91, i32* %8
br label %92
92: ; preds = %83, %82
store i32 1, i32* %7
br label %93
93: ; preds = %109, %92
%94 = load i32, i32* %7
%95 = load i32, i32* %6
%96 = icmp sle i32 %94, %95
br i1 %96, label %97, label %112
97: ; preds = %93
%98 = load i32, i32* %10
%99 = load i32, i32* %7
%100 = add nsw i32 %98, %99
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds [32 x i8], [32 x i8]* %5, i64 0, i64 %101
%103 = load i8, i8* %102
%104 = load i8*, i8** %3
%105 = load i32, i32* %9
%106 = add nsw i32 %105, 1
store i32 %106, i32* %9
%107 = sext i32 %105 to i64
%108 = getelementptr inbounds i8, i8* %104, i64 %107
store i8 %103, i8* %108
br label %109
109: ; preds = %97
%110 = load i32, i32* %7
%111 = add nsw i32 %110, 1
store i32 %111, i32* %7
br label %93
112: ; preds = %93
%113 = load i8*, i8** %3
%114 = load i32, i32* %9
%115 = sext i32 %114 to i64
%116 = getelementptr inbounds i8, i8* %113, i64 %115
%117 = load i32, i32* %8
%118 = call i64 @sprintf(i8* %116, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %117)
%119 = load i32, i32* %9
%120 = sext i32 %119 to i64
%121 = add nsw i64 %120, %118
%122 = trunc i64 %121 to i32
store i32 %122, i32* %9
%123 = load i32, i32* %9
ret i32 %123
}

LLVM IR (-O2):
@.str = [9 x i8] c"%+20.12e\00"
@.str.1 = [7 x i8] c"D%+03d\00"
define i32 @format_double_old(i8* %0, double %1) {
%3 = alloca [32 x i8]
%4 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 0
%5 = fptosi double %1 to i32
%6 = call i64 @sprintf(i8* %4, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32 %5)
br label %7
7: ; preds = %7, %2
%8 = phi i64 [ %12, %7 ], [ 0, %2 ]
%9 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 %8
%10 = load i8, i8* %9
%11 = icmp eq i8 %10, 46
%12 = add nuw i64 %8, 1
br i1 %11, label %13, label %7
13: ; preds = %7
%14 = and i64 %8, 4294967295
br label %15
15: ; preds = %15, %13
%16 = phi i64 [ %20, %15 ], [ %14, %13 ]
%17 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 %16
%18 = load i8, i8* %17
%19 = icmp eq i8 %18, 101
%20 = add nuw i64 %16, 1
br i1 %19, label %21, label %15
21: ; preds = %15
%22 = add i64 %16, 1
%23 = and i64 %22, 4294967295
%24 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 %23
%25 = call i32 @atoi(i8* %24)
%26 = shl i64 %8, 32
%27 = add i64 %26, -4294967296
%28 = ashr exact i64 %27, 32
%29 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 %28
%30 = load i8, i8* %29
%31 = shl i64 %8, 32
%32 = add i64 %31, -8589934592
%33 = ashr exact i64 %32, 32
%34 = getelementptr inbounds [32 x i8], [32 x i8]* %3, i64 0, i64 %33
%35 = load i8, i8* %34
%36 = icmp eq i8 %35, 43
%37 = select i1 %36, i8 32, i8 %35
store i8 32, i8* %0
%38 = getelementptr inbounds i8, i8* %0, i64 1
store i8 %37, i8* %38
%39 = getelementptr inbounds i8, i8* %0, i64 2
store i8 46, i8* %39
%40 = icmp eq i8 %30, 48
br i1 %40, label %44, label %41
41: ; preds = %21
%42 = getelementptr inbounds i8, i8* %0, i64 3
store i8 %30, i8* %42
%43 = add nsw i32 %25, 1
br label %44
44: ; preds = %21, %41
%45 = phi i64 [ 4, %41 ], [ 3, %21 ]
%46 = phi i32 [ %43, %41 ], [ %25, %21 ]
%47 = phi i32 [ 11, %41 ], [ 12, %21 ]
%48 = getelementptr i8, i8* %0, i64 %45
%49 = add i64 %8, 1
%50 = and i64 %49, 4294967295
%51 = getelementptr [32 x i8], [32 x i8]* %3, i64 0, i64 %50
%52 = zext i32 %47 to i64
%53 = trunc i64 %45 to i32
%54 = add nuw nsw i32 %47, %53
%55 = zext i32 %54 to i64
%56 = getelementptr inbounds i8, i8* %0, i64 %55
%57 = call i64 @sprintf(i8* %56, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %46)
%58 = trunc i64 %57 to i32
%59 = add i32 %54, %58
ret i32 %59
}