int fortchar_to_string(const char *f, int flen, char *buf, const int buflen) {
  while (flen-- && f[flen] == ' ')
    ;
  if (flen < 0)
    flen = 0;
  if ((flen + 1) >= buflen)
    return 0;
  flen++;
  buf[flen] = 0;
  while (flen--)
    buf[flen] = f[flen];
  return 1;
}


x86 assembly (clang, -O0):
<fortchar_to_string>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
mov    -0x14(%rbp),%ecx
mov    %ecx,%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x25(%rbp)
je     1140 <fortchar_to_string+0x40>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x20,%eax
sete   %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    1150 <fortchar_to_string+0x50>
jmp    1155 <fortchar_to_string+0x55>
jmp    1112 <fortchar_to_string+0x12>
cmpl   $0x0,-0x14(%rbp)
jge    1166 <fortchar_to_string+0x66>
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
cmp    -0x24(%rbp),%eax
jl     1181 <fortchar_to_string+0x81>
movl   $0x0,-0x4(%rbp)
jmp    11cc <fortchar_to_string+0xcc>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x14(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x14(%rbp)
cmp    $0x0,%eax
je     11c5 <fortchar_to_string+0xc5>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x20(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    1196 <fortchar_to_string+0x96>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<fortchar_to_string>:
push   %rbx
movslq %esi,%r8
lea    0x1(%r8),%eax
mov    %r8,%rsi
nopl   0x0(%rax,%rax,1)
sub    $0x1,%rsi
jb     1130 <fortchar_to_string+0x30>
add    $0xffffffff,%eax
cmpb   $0x20,-0x1(%rdi,%r8,1)
mov    %rsi,%r8
je     1110 <fortchar_to_string+0x10>
test   %eax,%eax
mov    $0x1,%esi
cmovg  %eax,%esi
jmp    1135 <fortchar_to_string+0x35>
mov    $0x1,%esi
xor    %eax,%eax
cmp    %ecx,%esi
jge    11cd <fortchar_to_string+0xcd>
mov    %esi,%r8d
movb   $0x0,(%rdx,%r8,1)
cmp    $0x4,%esi
jb     115e <fortchar_to_string+0x5e>
lea    (%rdi,%r8,1),%rax
cmp    %rdx,%rax
jbe    11cf <fortchar_to_string+0xcf>
lea    (%rdx,%r8,1),%rax
cmp    %rdi,%rax
jbe    11cf <fortchar_to_string+0xcf>
mov    %r8,%rcx
lea    -0x1(%rcx),%r8
mov    %rcx,%rax
and    $0x3,%rax
je     1188 <fortchar_to_string+0x88>
xchg   %ax,%ax
lea    -0x1(%rcx),%rsi
movzbl -0x1(%rdi,%rcx,1),%ebx
mov    %bl,-0x1(%rdx,%rcx,1)
mov    %rsi,%rcx
add    $0xffffffffffffffff,%rax
jne    1170 <fortchar_to_string+0x70>
jmp    118b <fortchar_to_string+0x8b>
mov    %rcx,%rsi
mov    $0x1,%eax
cmp    $0x3,%r8
jb     11cd <fortchar_to_string+0xcd>
mov    %rsi,%rcx
nopl   0x0(%rax)
movzbl -0x1(%rdi,%rsi,1),%ebx
mov    %bl,-0x1(%rdx,%rsi,1)
movzbl -0x2(%rdi,%rsi,1),%ebx
mov    %bl,-0x2(%rdx,%rsi,1)
movzbl -0x3(%rdi,%rsi,1),%ebx
mov    %bl,-0x3(%rdx,%rsi,1)
movzbl -0x4(%rdi,%rsi,1),%ebx
mov    %bl,-0x4(%rdx,%rsi,1)
add    $0xfffffffffffffffc,%rcx
mov    %rcx,%rsi
jne    11a0 <fortchar_to_string+0xa0>
pop    %rbx
ret
cmp    $0x10,%esi
jae    11db <fortchar_to_string+0xdb>
xor    %esi,%esi
jmp    12aa <fortchar_to_string+0x1aa>
mov    %r8d,%esi
and    $0x7ffffff0,%esi
lea    -0x10(%rsi),%rax
mov    %rax,%rcx
shr    $0x4,%rcx
add    $0x1,%rcx
mov    %ecx,%r9d
and    $0x3,%r9d
cmp    $0x30,%rax
jae    1204 <fortchar_to_string+0x104>
xor    %eax,%eax
jmp    125b <fortchar_to_string+0x15b>
and    $0xfffffffffffffffc,%rcx
lea    (%rdx,%r8,1),%r10
add    $0xfffffffffffffff0,%r10
lea    (%rdi,%r8,1),%r11
add    $0xfffffffffffffff0,%r11
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movups (%r11,%rax,1),%xmm0
movups %xmm0,(%r10,%rax,1)
movups -0x10(%r11,%rax,1),%xmm0
movups %xmm0,-0x10(%r10,%rax,1)
movups -0x20(%r11,%rax,1),%xmm0
movups %xmm0,-0x20(%r10,%rax,1)
movups -0x30(%r11,%rax,1),%xmm0
movups %xmm0,-0x30(%r10,%rax,1)
add    $0xffffffffffffffc0,%rax
add    $0xfffffffffffffffc,%rcx
jne    1220 <fortchar_to_string+0x120>
neg    %rax
test   %r9,%r9
je     1296 <fortchar_to_string+0x196>
mov    %r8,%rcx
sub    %rax,%rcx
lea    (%rdx,%rcx,1),%r10
add    $0xfffffffffffffff0,%r10
lea    (%rdi,%rcx,1),%r11
add    $0xfffffffffffffff0,%r11
shl    $0x4,%r9
xor    %eax,%eax
nopl   0x0(%rax)
movups (%r11,%rax,1),%xmm0
movups %xmm0,(%r10,%rax,1)
add    $0xfffffffffffffff0,%rax
mov    %r9,%rcx
add    %rax,%rcx
jne    1280 <fortchar_to_string+0x180>
mov    $0x1,%eax
cmp    %r8,%rsi
je     11cd <fortchar_to_string+0xcd>
test   $0xc,%r8b
je     1304 <fortchar_to_string+0x204>
mov    %r8d,%r9d
and    $0x7ffffffc,%r9d
mov    %r8d,%ecx
and    $0x3,%ecx
lea    (%rdx,%r8,1),%r10
add    $0xfffffffffffffffc,%r10
neg    %rsi
lea    (%rdi,%r8,1),%r11
add    $0xfffffffffffffffc,%r11
mov    %r8d,%eax
and    $0xfffffffc,%eax
neg    %rax
cs nopw 0x0(%rax,%rax,1)
mov    (%r11,%rsi,1),%ebx
mov    %ebx,(%r10,%rsi,1)
add    $0xfffffffffffffffc,%rsi
cmp    %rsi,%rax
jne    12e0 <fortchar_to_string+0x1e0>
mov    $0x1,%eax
cmp    %r8,%r9
jne    1161 <fortchar_to_string+0x61>
jmp    11cd <fortchar_to_string+0xcd>
and    $0xf,%r8d
jmp    115e <fortchar_to_string+0x5e>

LLVM IR (-O0):
define i32 @fortchar_to_string(i8* %0, i32 %1, i8* %2, i32 %3) {
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i8*
%9 = alloca i32
store i8* %0, i8** %6
store i32 %1, i32* %7
store i8* %2, i8** %8
store i32 %3, i32* %9
br label %10
10: ; preds = %24, %4
%11 = load i32, i32* %7
%12 = add nsw i32 %11, -1
store i32 %12, i32* %7
%13 = icmp ne i32 %11, 0
br i1 %13, label %14, label %22
14: ; preds = %10
%15 = load i8*, i8** %6
%16 = load i32, i32* %7
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 32
br label %22
22: ; preds = %14, %10
%23 = phi i1 [ false, %10 ], [ %21, %14 ]
br i1 %23, label %24, label %25
24: ; preds = %22
br label %10
25: ; preds = %22
%26 = load i32, i32* %7
%27 = icmp slt i32 %26, 0
br i1 %27, label %28, label %29
28: ; preds = %25
store i32 0, i32* %7
br label %29
29: ; preds = %28, %25
%30 = load i32, i32* %7
%31 = add nsw i32 %30, 1
%32 = load i32, i32* %9
%33 = icmp sge i32 %31, %32
br i1 %33, label %34, label %35
34: ; preds = %29
store i32 0, i32* %5
br label %57
35: ; preds = %29
%36 = load i32, i32* %7
%37 = add nsw i32 %36, 1
store i32 %37, i32* %7
%38 = load i8*, i8** %8
%39 = load i32, i32* %7
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i8, i8* %38, i64 %40
store i8 0, i8* %41
br label %42
42: ; preds = %46, %35
%43 = load i32, i32* %7
%44 = add nsw i32 %43, -1
store i32 %44, i32* %7
%45 = icmp ne i32 %43, 0
br i1 %45, label %46, label %56
46: ; preds = %42
%47 = load i8*, i8** %6
%48 = load i32, i32* %7
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds i8, i8* %47, i64 %49
%51 = load i8, i8* %50
%52 = load i8*, i8** %8
%53 = load i32, i32* %7
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i8, i8* %52, i64 %54
store i8 %51, i8* %55
br label %42
56: ; preds = %42
store i32 1, i32* %5
br label %57
57: ; preds = %56, %34
%58 = load i32, i32* %5
ret i32 %58
}

LLVM IR (-O2):
define i32 @fortchar_to_string(i8* nocapture %0, i32 %1, i8* nocapture writeonly %2, i32 %3) {
%5 = sext i32 %1 to i64
br label %6
6: ; preds = %10, %4
%7 = phi i64 [ %8, %10 ], [ %5, %4 ]
%8 = add nsw i64 %7, -1
%9 = icmp eq i64 %7, 0
br i1 %9, label %18, label %10
10: ; preds = %6
%11 = getelementptr inbounds i8, i8* %0, i64 %8
%12 = load i8, i8* %11
%13 = icmp eq i8 %12, 32
br i1 %13, label %6, label %14
14: ; preds = %10
%15 = trunc i64 %7 to i32
%16 = icmp sgt i32 %15, 1
%17 = select i1 %16, i32 %15, i32 1
br label %18
18: ; preds = %6, %14
%19 = phi i32 [ %17, %14 ], [ 1, %6 ]
%20 = icmp slt i32 %19, %3
br i1 %20, label %21, label %164
21: ; preds = %18
%22 = zext i32 %19 to i64
%23 = getelementptr inbounds i8, i8* %2, i64 %22
store i8 0, i8* %23
%24 = icmp ult i32 %19, 4
br i1 %24, label %128, label %25
25: ; preds = %21
%26 = getelementptr i8, i8* %2, i64 %22
%27 = getelementptr i8, i8* %0, i64 %22
%28 = icmp ugt i8* %27, %2
%29 = icmp ugt i8* %26, %0
%30 = and i1 %28, %29
br i1 %30, label %128, label %31
31: ; preds = %25
%32 = icmp ult i32 %19, 16
br i1 %32, label %109, label %33
33: ; preds = %31
%34 = and i64 %22, 2147483632
%35 = add nsw i64 %34, -16
%36 = lshr exact i64 %35, 4
%37 = add nuw nsw i64 %36, 1
%38 = and i64 %37, 3
%39 = icmp ult i64 %35, 48
br i1 %39, label %84, label %40
40: ; preds = %33
%41 = and i64 %37, 2305843009213693948
%42 = getelementptr inbounds i8, i8* %0, i64 -15
%43 = getelementptr inbounds i8, i8* %2, i64 -15
%44 = getelementptr inbounds i8, i8* %0, i64 -15
%45 = getelementptr inbounds i8, i8* %2, i64 -15
%46 = getelementptr inbounds i8, i8* %0, i64 -15
%47 = getelementptr inbounds i8, i8* %2, i64 -15
%48 = getelementptr inbounds i8, i8* %0, i64 -15
%49 = getelementptr inbounds i8, i8* %2, i64 -15
br label %50
50: ; preds = %50, %40
%51 = phi i64 [ 0, %40 ], [ %81, %50 ]
%52 = phi i64 [ 0, %40 ], [ %82, %50 ]
%53 = xor i64 %51, -1
%54 = add i64 %53, %22
%55 = getelementptr inbounds i8, i8* %42, i64 %54
%56 = bitcast i8* %55 to <16 x i8>*
%57 = load <16 x i8>, <16 x i8>* %56
%58 = getelementptr inbounds i8, i8* %43, i64 %54
%59 = bitcast i8* %58 to <16 x i8>*
store <16 x i8> %57, <16 x i8>* %59
%60 = sub nuw nsw i64 -17, %51
%61 = add i64 %60, %22
%62 = getelementptr inbounds i8, i8* %44, i64 %61
%63 = bitcast i8* %62 to <16 x i8>*
%64 = load <16 x i8>, <16 x i8>* %63
%65 = getelementptr inbounds i8, i8* %45, i64 %61
%66 = bitcast i8* %65 to <16 x i8>*
store <16 x i8> %64, <16 x i8>* %66
%67 = sub nuw nsw i64 -33, %51
%68 = add i64 %67, %22
%69 = getelementptr inbounds i8, i8* %46, i64 %68
%70 = bitcast i8* %69 to <16 x i8>*
%71 = load <16 x i8>, <16 x i8>* %70
%72 = getelementptr inbounds i8, i8* %47, i64 %68
%73 = bitcast i8* %72 to <16 x i8>*
store <16 x i8> %71, <16 x i8>* %73
%74 = sub nuw nsw i64 -49, %51
%75 = add i64 %74, %22
%76 = getelementptr inbounds i8, i8* %48, i64 %75
%77 = bitcast i8* %76 to <16 x i8>*
%78 = load <16 x i8>, <16 x i8>* %77
%79 = getelementptr inbounds i8, i8* %49, i64 %75
%80 = bitcast i8* %79 to <16 x i8>*
store <16 x i8> %78, <16 x i8>* %80
%81 = add nuw i64 %51, 64
%82 = add i64 %52, 4
%83 = icmp eq i64 %82, %41
br i1 %83, label %84, label %50
84: ; preds = %50, %33
%85 = phi i64 [ 0, %33 ], [ %81, %50 ]
%86 = icmp eq i64 %38, 0
br i1 %86, label %103, label %87
87: ; preds = %84
%88 = getelementptr inbounds i8, i8* %0, i64 -15
%89 = getelementptr inbounds i8, i8* %2, i64 -15
br label %90
90: ; preds = %90, %87
%91 = phi i64 [ %85, %87 ], [ %100, %90 ]
%92 = phi i64 [ 0, %87 ], [ %101, %90 ]
%93 = xor i64 %91, -1
%94 = add i64 %93, %22
%95 = getelementptr inbounds i8, i8* %88, i64 %94
%96 = bitcast i8* %95 to <16 x i8>*
%97 = load <16 x i8>, <16 x i8>* %96
%98 = getelementptr inbounds i8, i8* %89, i64 %94
%99 = bitcast i8* %98 to <16 x i8>*
store <16 x i8> %97, <16 x i8>* %99
%100 = add nuw i64 %91, 16
%101 = add i64 %92, 1
%102 = icmp eq i64 %101, %38
br i1 %102, label %103, label %90
103: ; preds = %90, %84
%104 = icmp eq i64 %34, %22
br i1 %104, label %164, label %105
105: ; preds = %103
%106 = and i64 %22, 15
%107 = and i64 %22, 12
%108 = icmp eq i64 %107, 0
br i1 %108, label %128, label %109
109: ; preds = %31, %105
%110 = phi i64 [ %34, %105 ], [ 0, %31 ]
%111 = and i64 %22, 2147483644
%112 = and i64 %22, 3
%113 = getelementptr inbounds i8, i8* %0, i64 -3
%114 = getelementptr inbounds i8, i8* %2, i64 -3
br label %115
115: ; preds = %115, %109
%116 = phi i64 [ %110, %109 ], [ %124, %115 ]
%117 = xor i64 %116, -1
%118 = add i64 %117, %22
%119 = getelementptr inbounds i8, i8* %113, i64 %118
%120 = bitcast i8* %119 to <4 x i8>*
%121 = load <4 x i8>, <4 x i8>* %120
%122 = getelementptr inbounds i8, i8* %114, i64 %118
%123 = bitcast i8* %122 to <4 x i8>*
store <4 x i8> %121, <4 x i8>* %123
%124 = add nuw i64 %116, 4
%125 = icmp eq i64 %124, %111
br i1 %125, label %126, label %115
126: ; preds = %115
%127 = icmp eq i64 %111, %22
br i1 %127, label %164, label %128
128: ; preds = %25, %21, %105, %126
%129 = phi i64 [ %22, %21 ], [ %22, %25 ], [ %106, %105 ], [ %112, %126 ]
%130 = add nsw i64 %129, -1
%131 = and i64 %129, 3
%132 = icmp eq i64 %131, 0
br i1 %132, label %142, label %133
133: ; preds = %128, %133
%134 = phi i64 [ %136, %133 ], [ %129, %128 ]
%135 = phi i64 [ %140, %133 ], [ 0, %128 ]
%136 = add nsw i64 %134, -1
%137 = getelementptr inbounds i8, i8* %0, i64 %136
%138 = load i8, i8* %137
%139 = getelementptr inbounds i8, i8* %2, i64 %136
store i8 %138, i8* %139
%140 = add i64 %135, 1
%141 = icmp eq i64 %140, %131
br i1 %141, label %142, label %133
142: ; preds = %133, %128
%143 = phi i64 [ %129, %128 ], [ %136, %133 ]
%144 = icmp ult i64 %130, 3
br i1 %144, label %164, label %145
145: ; preds = %142, %145
%146 = phi i64 [ %159, %145 ], [ %143, %142 ]
%147 = add nsw i64 %146, -1
%148 = getelementptr inbounds i8, i8* %0, i64 %147
%149 = load i8, i8* %148
%150 = getelementptr inbounds i8, i8* %2, i64 %147
store i8 %149, i8* %150
%151 = add nsw i64 %146, -2
%152 = getelementptr inbounds i8, i8* %0, i64 %151
%153 = load i8, i8* %152
%154 = getelementptr inbounds i8, i8* %2, i64 %151
store i8 %153, i8* %154
%155 = add nsw i64 %146, -3
%156 = getelementptr inbounds i8, i8* %0, i64 %155
%157 = load i8, i8* %156
%158 = getelementptr inbounds i8, i8* %2, i64 %155
store i8 %157, i8* %158
%159 = add nsw i64 %146, -4
%160 = getelementptr inbounds i8, i8* %0, i64 %159
%161 = load i8, i8* %160
%162 = getelementptr inbounds i8, i8* %2, i64 %159
store i8 %161, i8* %162
%163 = icmp eq i64 %159, 0
br i1 %163, label %164, label %145
164: ; preds = %142, %145, %103, %126, %18
%165 = phi i32 [ 0, %18 ], [ 1, %126 ], [ 1, %103 ], [ 1, %145 ], [ 1, %142 ]
ret i32 %165
}