#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__ strchr(char *, char);
void cleanFortranString(char *string, int length) {
  static char validChars[] =
      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890/"
      "~!@#$%^&*()_+=-`\"\'?><,.\\[]{}:; \t";
  char *inPtr, *outPtr;
  int i;
  inPtr = outPtr = string;
  for (i = 1; i <= length; i++) {
    if (strchr(validChars, *inPtr))
      *outPtr++ = *inPtr++;
    else
      inPtr++;
  }
  for (outPtr--; outPtr >= string; outPtr--)
    if (*outPtr != ' ' && *outPtr != '\0')
      break;
  ++outPtr;
  *outPtr = '\0';
}


x86 assembly (clang, -O0):
<cleanFortranString>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    %rax,-0x18(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     11a1 <cleanFortranString+0x91>
mov    -0x18(%rbp),%rax
lea    0x2ee7(%rip),%rdi
movsbl (%rax),%esi
call   1030 <strchr@plt>
cmp    $0x0,%rax
je     1182 <cleanFortranString+0x72>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%cl
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cl,(%rax)
jmp    118e <cleanFortranString+0x7e>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1193 <cleanFortranString+0x83>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1132 <cleanFortranString+0x22>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x8(%rbp),%rax
jb     11f6 <cleanFortranString+0xe6>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
je     11e0 <cleanFortranString+0xd0>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     11e0 <cleanFortranString+0xd0>
jmp    11f6 <cleanFortranString+0xe6>
jmp    11e5 <cleanFortranString+0xd5>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    11ad <cleanFortranString+0x9d>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movb   $0x0,(%rax)
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cleanFortranString>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdi,%r15
mov    %rdi,%r13
test   %esi,%esi
jle    116a <cleanFortranString+0x5a>
mov    %esi,%r12d
xor    %ebx,%ebx
lea    0x2f01(%rip),%r14
mov    %r15,%r13
jmp    1149 <cleanFortranString+0x39>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%rbx
cmp    %ebx,%r12d
je     116a <cleanFortranString+0x5a>
movsbl (%r15,%rbx,1),%esi
mov    %r14,%rdi
call   1030 <strchr@plt>
test   %rax,%rax
je     1140 <cleanFortranString+0x30>
movzbl (%r15,%rbx,1),%eax
mov    %al,0x0(%r13)
add    $0x1,%r13
jmp    1140 <cleanFortranString+0x30>
lea    -0x1(%r13),%rax
cmp    %r15,%rax
jb     1195 <cleanFortranString+0x85>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
testb  $0xdf,(%rax)
jne    118e <cleanFortranString+0x7e>
add    $0xffffffffffffffff,%rax
cmp    %r15,%rax
jae    1180 <cleanFortranString+0x70>
add    $0x1,%rax
mov    %rax,%r13
movb   $0x0,0x0(%r13)
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@cleanFortranString.validChars = internal global [96 x i8] c"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890/~!@#$%^&*()_+=-`\22'?><,.\\[]{}:; \09\00"
define void @cleanFortranString(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
store i8* %0, i8** %3
store i32 %1, i32* %4
%8 = load i8*, i8** %3
store i8* %8, i8** %6
store i8* %8, i8** %5
store i32 1, i32* %7
br label %9
9: ; preds = %28, %2
%10 = load i32, i32* %7
%11 = load i32, i32* %4
%12 = icmp sle i32 %10, %11
br i1 %12, label %13, label %31
13: ; preds = %9
%14 = load i8*, i8** %5
%15 = load i8, i8* %14
%16 = call i64 @strchr(i8* getelementptr inbounds ([96 x i8], [96 x i8]* @cleanFortranString.validChars, i64 0, i64 0), i8 signext %15)
%17 = icmp ne i64 %16, 0
br i1 %17, label %18, label %24
18: ; preds = %13
%19 = load i8*, i8** %5
%20 = getelementptr inbounds i8, i8* %19, i32 1
store i8* %20, i8** %5
%21 = load i8, i8* %19
%22 = load i8*, i8** %6
%23 = getelementptr inbounds i8, i8* %22, i32 1
store i8* %23, i8** %6
store i8 %21, i8* %22
br label %27
24: ; preds = %13
%25 = load i8*, i8** %5
%26 = getelementptr inbounds i8, i8* %25, i32 1
store i8* %26, i8** %5
br label %27
27: ; preds = %24, %18
br label %28
28: ; preds = %27
%29 = load i32, i32* %7
%30 = add nsw i32 %29, 1
store i32 %30, i32* %7
br label %9
31: ; preds = %9
%32 = load i8*, i8** %6
%33 = getelementptr inbounds i8, i8* %32, i32 -1
store i8* %33, i8** %6
br label %34
34: ; preds = %50, %31
%35 = load i8*, i8** %6
%36 = load i8*, i8** %3
%37 = icmp uge i8* %35, %36
br i1 %37, label %38, label %53
38: ; preds = %34
%39 = load i8*, i8** %6
%40 = load i8, i8* %39
%41 = sext i8 %40 to i32
%42 = icmp ne i32 %41, 32
br i1 %42, label %43, label %49
43: ; preds = %38
%44 = load i8*, i8** %6
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = icmp ne i32 %46, 0
br i1 %47, label %48, label %49
48: ; preds = %43
br label %53
49: ; preds = %43, %38
br label %50
50: ; preds = %49
%51 = load i8*, i8** %6
%52 = getelementptr inbounds i8, i8* %51, i32 -1
store i8* %52, i8** %6
br label %34
53: ; preds = %48, %34
%54 = load i8*, i8** %6
%55 = getelementptr inbounds i8, i8* %54, i32 1
store i8* %55, i8** %6
%56 = load i8*, i8** %6
store i8 0, i8* %56
ret void
}

LLVM IR (-O2):
@cleanFortranString.validChars = internal global [96 x i8] c"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890/~!@#$%^&*()_+=-`\22'?><,.\\[]{}:; \09\00"
define void @cleanFortranString(i8* %0, i32 %1) {
%3 = icmp slt i32 %1, 1
br i1 %3, label %4, label %8
4: ; preds = %18, %2
%5 = phi i8* [ %0, %2 ], [ %19, %18 ]
%6 = getelementptr inbounds i8, i8* %5, i64 -1
%7 = icmp ult i8* %6, %0
br i1 %7, label %30, label %23
8: ; preds = %2, %18
%9 = phi i32 [ %21, %18 ], [ 1, %2 ]
%10 = phi i8* [ %19, %18 ], [ %0, %2 ]
%11 = phi i8* [ %20, %18 ], [ %0, %2 ]
%12 = load i8, i8* %11
%13 = tail call i64 @strchr(i8* getelementptr inbounds ([96 x i8], [96 x i8]* @cleanFortranString.validChars, i64 0, i64 0), i8 signext %12)
%14 = icmp eq i64 %13, 0
br i1 %14, label %18, label %15
15: ; preds = %8
%16 = load i8, i8* %11
%17 = getelementptr inbounds i8, i8* %10, i64 1
store i8 %16, i8* %10
br label %18
18: ; preds = %8, %15
%19 = phi i8* [ %17, %15 ], [ %10, %8 ]
%20 = getelementptr inbounds i8, i8* %11, i64 1
%21 = add nuw i32 %9, 1
%22 = icmp eq i32 %9, %1
br i1 %22, label %4, label %8
23: ; preds = %4, %27
%24 = phi i8* [ %28, %27 ], [ %6, %4 ]
%25 = phi i8* [ %24, %27 ], [ %5, %4 ]
%26 = load i8, i8* %24
switch i8 %26, label %30 [
i8 32, label %27
i8 0, label %27
]
27: ; preds = %23, %23
%28 = getelementptr inbounds i8, i8* %24, i64 -1
%29 = icmp ult i8* %28, %0
br i1 %29, label %30, label %23
30: ; preds = %27, %23, %4
%31 = phi i8* [ %5, %4 ], [ %25, %23 ], [ %24, %27 ]
store i8 0, i8* %31
ret void
}