#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 */
scalar_t__ isdigit(char);
int strlen(char *);
void rrnx_replace_fortran_exponent(char *s) {
  int i = strlen(s);
  while ((i > 0) && (isdigit(s[i - 1]))) {
    i--;
  }
  if ((i > 0) && ((s[i - 1] == '+') || (s[i - 1] == '-'))) {
    i--;
  }
  if ((i > 0) && ((s[i - 1] == 'd') || (s[i - 1] == 'D'))) {
    s[i - 1] = 'e';
  }
}


x86 assembly (clang, -O0):
<rrnx_replace_fortran_exponent>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0xc(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0xc(%rbp)
mov    %al,-0xd(%rbp)
jle    1167 <rrnx_replace_fortran_exponent+0x47>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
setne  %al
mov    %al,-0xd(%rbp)
mov    -0xd(%rbp),%al
test   $0x1,%al
jne    1177 <rrnx_replace_fortran_exponent+0x57>
jmp    1185 <rrnx_replace_fortran_exponent+0x65>
mov    -0xc(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0xc(%rbp)
jmp    1138 <rrnx_replace_fortran_exponent+0x18>
cmpl   $0x0,-0xc(%rbp)
jle    11cc <rrnx_replace_fortran_exponent+0xac>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2b,%eax
je     11c3 <rrnx_replace_fortran_exponent+0xa3>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2d,%eax
jne    11cc <rrnx_replace_fortran_exponent+0xac>
mov    -0xc(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x0,-0xc(%rbp)
jle    121b <rrnx_replace_fortran_exponent+0xfb>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x64,%eax
je     120a <rrnx_replace_fortran_exponent+0xea>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x44,%eax
jne    121b <rrnx_replace_fortran_exponent+0xfb>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movb   $0x65,(%rax,%rcx,1)
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<rrnx_replace_fortran_exponent>:
push   %r14
push   %rbx
push   %rax
mov    %rdi,%r14
call   1040 <strlen@plt>
mov    %eax,%ebx
xchg   %ax,%ax
test   %ebx,%ebx
jle    1172 <rrnx_replace_fortran_exponent+0x52>
movsbl -0x1(%r14,%rbx,1),%edi
add    $0xffffffffffffffff,%rbx
call   1030 <isdigit@plt>
test   %rax,%rax
jne    1130 <rrnx_replace_fortran_exponent+0x10>
mov    %ebx,%eax
mov    (%r14,%rax,1),%al
cmp    $0x2b,%al
je     1156 <rrnx_replace_fortran_exponent+0x36>
cmp    $0x2d,%al
jne    115c <rrnx_replace_fortran_exponent+0x3c>
test   %ebx,%ebx
jne    1160 <rrnx_replace_fortran_exponent+0x40>
jmp    1172 <rrnx_replace_fortran_exponent+0x52>
add    $0x1,%rbx
add    $0xffffffff,%ebx
mov    (%r14,%rbx,1),%al
or     $0x20,%al
cmp    $0x64,%al
jne    1172 <rrnx_replace_fortran_exponent+0x52>
movb   $0x65,(%r14,%rbx,1)
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @rrnx_replace_fortran_exponent(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
store i8* %0, i8** %2
%4 = load i8*, i8** %2
%5 = call i32 @strlen(i8* %4)
store i32 %5, i32* %3
br label %6
6: ; preds = %20, %1
%7 = load i32, i32* %3
%8 = icmp sgt i32 %7, 0
br i1 %8, label %9, label %18
9: ; preds = %6
%10 = load i8*, i8** %2
%11 = load i32, i32* %3
%12 = sub nsw i32 %11, 1
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds i8, i8* %10, i64 %13
%15 = load i8, i8* %14
%16 = call i64 @isdigit(i8 signext %15)
%17 = icmp ne i64 %16, 0
br label %18
18: ; preds = %9, %6
%19 = phi i1 [ false, %6 ], [ %17, %9 ]
br i1 %19, label %20, label %23
20: ; preds = %18
%21 = load i32, i32* %3
%22 = add nsw i32 %21, -1
store i32 %22, i32* %3
br label %6
23: ; preds = %18
%24 = load i32, i32* %3
%25 = icmp sgt i32 %24, 0
br i1 %25, label %26, label %47
26: ; preds = %23
%27 = load i8*, i8** %2
%28 = load i32, i32* %3
%29 = sub nsw i32 %28, 1
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds i8, i8* %27, i64 %30
%32 = load i8, i8* %31
%33 = sext i8 %32 to i32
%34 = icmp eq i32 %33, 43
br i1 %34, label %44, label %35
35: ; preds = %26
%36 = load i8*, i8** %2
%37 = load i32, i32* %3
%38 = sub nsw i32 %37, 1
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds i8, i8* %36, i64 %39
%41 = load i8, i8* %40
%42 = sext i8 %41 to i32
%43 = icmp eq i32 %42, 45
br i1 %43, label %44, label %47
44: ; preds = %35, %26
%45 = load i32, i32* %3
%46 = add nsw i32 %45, -1
store i32 %46, i32* %3
br label %47
47: ; preds = %44, %35, %23
%48 = load i32, i32* %3
%49 = icmp sgt i32 %48, 0
br i1 %49, label %50, label %74
50: ; preds = %47
%51 = load i8*, i8** %2
%52 = load i32, i32* %3
%53 = sub nsw i32 %52, 1
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i8, i8* %51, i64 %54
%56 = load i8, i8* %55
%57 = sext i8 %56 to i32
%58 = icmp eq i32 %57, 100
br i1 %58, label %68, label %59
59: ; preds = %50
%60 = load i8*, i8** %2
%61 = load i32, i32* %3
%62 = sub nsw i32 %61, 1
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds i8, i8* %60, i64 %63
%65 = load i8, i8* %64
%66 = sext i8 %65 to i32
%67 = icmp eq i32 %66, 68
br i1 %67, label %68, label %74
68: ; preds = %59, %50
%69 = load i8*, i8** %2
%70 = load i32, i32* %3
%71 = sub nsw i32 %70, 1
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds i8, i8* %69, i64 %72
store i8 101, i8* %73
br label %74
74: ; preds = %68, %59, %47
ret void
}

LLVM IR (-O2):
define void @rrnx_replace_fortran_exponent(i8* %0) {
%2 = tail call i32 @strlen(i8* %0)
%3 = zext i32 %2 to i64
br label %4
4: ; preds = %8, %1
%5 = phi i64 [ %9, %8 ], [ %3, %1 ]
%6 = trunc i64 %5 to i32
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %28
8: ; preds = %4
%9 = add nsw i64 %5, -1
%10 = getelementptr inbounds i8, i8* %0, i64 %9
%11 = load i8, i8* %10
%12 = tail call i64 @isdigit(i8 signext %11)
%13 = icmp eq i64 %12, 0
br i1 %13, label %14, label %4
14: ; preds = %8
%15 = and i64 %9, 4294967295
%16 = getelementptr inbounds i8, i8* %0, i64 %15
%17 = load i8, i8* %16
switch i8 %17, label %21 [
i8 43, label %18
i8 45, label %18
]
18: ; preds = %14, %14
%19 = trunc i64 %9 to i32
%20 = icmp eq i32 %19, 0
br i1 %20, label %28, label %21
21: ; preds = %14, %18
%22 = phi i64 [ %9, %18 ], [ %5, %14 ]
%23 = add i64 %22, 4294967295
%24 = and i64 %23, 4294967295
%25 = getelementptr inbounds i8, i8* %0, i64 %24
%26 = load i8, i8* %25
switch i8 %26, label %28 [
i8 100, label %27
i8 68, label %27
]
27: ; preds = %21, %21
store i8 101, i8* %25
br label %28
28: ; preds = %4, %21, %27, %18
ret void
}