int fortchar_to_string(const char *f, int flen, char *buf, const int buflen) {
  while (flen-- && f[flen] == ' ')
    ;
  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>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
cmp    -0x24(%rbp),%eax
jl     1170 <fortchar_to_string+0x70>
movl   $0x0,-0x4(%rbp)
jmp    11bb <fortchar_to_string+0xbb>
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     11b4 <fortchar_to_string+0xb4>
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    1185 <fortchar_to_string+0x85>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<fortchar_to_string>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
movabs $0xffffffff00000000,%r13
ff ff ff
movabs $0x100000000,%r10
movslq %esi,%r14
mov    %r14,%r8
shl    $0x20,%r8
add    %r10,%r8
mov    %r14,%rax
neg    %rax
lea    (%r14,%rdi,1),%rbp
add    $0xffffffffffffffff,%rbp
xor    %ebx,%ebx
nopl   0x0(%rax,%rax,1)
cmp    %rbx,%rax
je     11e0 <fortchar_to_string+0xe0>
lea    -0x1(%rbx),%r9
add    %r13,%r8
cmpb   $0x20,0x0(%rbp,%rbx,1)
mov    %r9,%rbx
je     1140 <fortchar_to_string+0x40>
mov    %esi,%r11d
lea    (%r11,%r9,1),%r12
add    $0x1,%r12
xor    %eax,%eax
cmp    %ecx,%r12d
jge    13cf <fortchar_to_string+0x2cf>
add    %r9,%r11
sar    $0x20,%r8
movb   $0x0,(%rdx,%r8,1)
mov    $0x1,%eax
cmp    $0xffffffff,%r11d
je     13cf <fortchar_to_string+0x2cf>
lea    (%rsi,%r10,1),%ecx
lea    (%r9,%rcx,1),%r15d
cmp    $0x3,%r15d
jb     136b <fortchar_to_string+0x26b>
mov    %r9,%rcx
not    %rcx
sub    %r14,%rcx
or     %r13,%rcx
add    %r8,%rcx
lea    (%rdx,%rcx,1),%rbx
lea    (%rdi,%r8,1),%rbp
cmp    %rbp,%rbx
jae    11c9 <fortchar_to_string+0xc9>
lea    (%rdx,%r8,1),%rbx
add    %rdi,%rcx
cmp    %rbx,%rcx
jb     136b <fortchar_to_string+0x26b>
movabs $0x1fffffff0,%r14
cmp    $0xf,%r15d
jae    11f8 <fortchar_to_string+0xf8>
xor    %ecx,%ecx
jmp    1314 <fortchar_to_string+0x214>
test   %ecx,%ecx
jle    11f1 <fortchar_to_string+0xf1>
movb   $0x0,(%rdx)
mov    $0x1,%eax
jmp    13cf <fortchar_to_string+0x2cf>
xor    %eax,%eax
jmp    13cf <fortchar_to_string+0x2cf>
add    $0x1,%r15
mov    %r15,%rcx
and    %r14,%rcx
lea    -0x10(%rcx),%rbp
mov    %rbp,%rbx
shr    $0x4,%rbx
add    $0x1,%rbx
cmp    $0x30,%rbp
mov    %r15,-0x8(%rsp)
jae    1220 <fortchar_to_string+0x120>
xor    %ebp,%ebp
jmp    129c <fortchar_to_string+0x19c>
mov    %rbx,-0x10(%rsp)
movslq %r12d,%rbp
lea    (%rdx,%rbp,1),%rbx
add    $0xfffffffffffffff0,%rbx
lea    (%rdi,%rbp,1),%r14
add    $0xfffffffffffffff0,%r14
mov    %r11d,%r13d
add    $0x1,%r13
and    $0xfffffffffffffff0,%r13
add    $0xfffffffffffffff0,%r13
shr    $0x4,%r13
add    $0x1,%r13
and    $0xfffffffffffffffc,%r13
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nop
movups (%r14,%rbp,1),%xmm0
movups %xmm0,(%rbx,%rbp,1)
movups -0x10(%r14,%rbp,1),%xmm0
movups %xmm0,-0x10(%rbx,%rbp,1)
movups -0x20(%r14,%rbp,1),%xmm0
movups %xmm0,-0x20(%rbx,%rbp,1)
movups -0x30(%r14,%rbp,1),%xmm0
movups %xmm0,-0x30(%rbx,%rbp,1)
add    $0xffffffffffffffc0,%rbp
add    $0xfffffffffffffffc,%r13
jne    1260 <fortchar_to_string+0x160>
neg    %rbp
mov    -0x10(%rsp),%rbx
test   $0x3,%bl
je     12f7 <fortchar_to_string+0x1f7>
mov    $0xfffffffffffffff0,%r14
sub    %rbp,%r14
lea    (%rdx,%r14,1),%r13
movslq %r12d,%rbx
add    %rbx,%r13
add    %rdi,%r14
add    %rbx,%r14
lea    0x1(%r11),%ebx
and    $0x30,%bl
add    $0xf0,%bl
shr    $0x4,%bl
add    $0x1,%bl
movzbl %bl,%r15d
and    $0x3,%r15d
shl    $0x4,%r15
xor    %ebx,%ebx
nopl   0x0(%rax)
movups (%r14,%rbx,1),%xmm0
movups %xmm0,0x0(%r13,%rbx,1)
add    $0xfffffffffffffff0,%rbx
mov    %r15,%rbp
add    %rbx,%rbp
jne    12e0 <fortchar_to_string+0x1e0>
mov    -0x8(%rsp),%rbx
cmp    %rcx,%rbx
je     13cf <fortchar_to_string+0x2cf>
test   $0xc,%bl
je     1368 <fortchar_to_string+0x268>
movabs $0x1fffffff0,%r14
add    %r10d,%esi
add    %esi,%r9d
add    $0x1,%r9
add    $0xc,%r14
and    %r9,%r14
sub    %r14,%r8
movslq %r12d,%rbp
lea    (%rdx,%rbp,1),%r10
add    $0xfffffffffffffffc,%r10
neg    %rcx
add    %rdi,%rbp
add    $0xfffffffffffffffc,%rbp
mov    %r11d,%ebx
add    $0x1,%rbx
and    $0xfffffffffffffffc,%rbx
neg    %rbx
nopl   0x0(%rax,%rax,1)
mov    0x0(%rbp,%rcx,1),%esi
mov    %esi,(%r10,%rcx,1)
add    $0xfffffffffffffffc,%rcx
cmp    %rcx,%rbx
jne    1350 <fortchar_to_string+0x250>
cmp    %r14,%r9
jne    136b <fortchar_to_string+0x26b>
jmp    13cf <fortchar_to_string+0x2cf>
sub    %rcx,%r8
lea    -0x1(%r8),%esi
mov    %r8d,%ebp
and    $0x3,%ebp
je     13da <fortchar_to_string+0x2da>
nopw   0x0(%rax,%rax,1)
lea    -0x1(%r8),%rcx
movzbl -0x1(%rdi,%r8,1),%ebx
mov    %bl,-0x1(%rdx,%r8,1)
mov    %rcx,%r8
add    $0xffffffff,%ebp
jne    1380 <fortchar_to_string+0x280>
cmp    $0x3,%esi
jb     13cf <fortchar_to_string+0x2cf>
nopl   0x0(%rax)
movzbl -0x1(%rdi,%rcx,1),%ebx
mov    %bl,-0x1(%rdx,%rcx,1)
movzbl -0x2(%rdi,%rcx,1),%ebx
mov    %bl,-0x2(%rdx,%rcx,1)
movzbl -0x3(%rdi,%rcx,1),%ebx
mov    %bl,-0x3(%rdx,%rcx,1)
movzbl -0x4(%rdi,%rcx,1),%ebx
mov    %bl,-0x4(%rdx,%rcx,1)
lea    -0x4(%rcx),%rsi
mov    %rsi,%rcx
test   %esi,%esi
jne    13a0 <fortchar_to_string+0x2a0>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %r8,%rcx
cmp    $0x3,%esi
jae    13a0 <fortchar_to_string+0x2a0>
jmp    13cf <fortchar_to_string+0x2cf>

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 = add nsw i32 %26, 1
%28 = load i32, i32* %9
%29 = icmp sge i32 %27, %28
br i1 %29, label %30, label %31
30: ; preds = %25
store i32 0, i32* %5
br label %53
31: ; preds = %25
%32 = load i32, i32* %7
%33 = add nsw i32 %32, 1
store i32 %33, i32* %7
%34 = load i8*, i8** %8
%35 = load i32, i32* %7
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds i8, i8* %34, i64 %36
store i8 0, i8* %37
br label %38
38: ; preds = %42, %31
%39 = load i32, i32* %7
%40 = add nsw i32 %39, -1
store i32 %40, i32* %7
%41 = icmp ne i32 %39, 0
br i1 %41, label %42, label %52
42: ; preds = %38
%43 = load i8*, i8** %6
%44 = load i32, i32* %7
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %43, i64 %45
%47 = load i8, i8* %46
%48 = load i8*, i8** %8
%49 = load i32, i32* %7
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds i8, i8* %48, i64 %50
store i8 %47, i8* %51
br label %38
52: ; preds = %38
store i32 1, i32* %5
br label %53
53: ; preds = %52, %30
%54 = load i32, i32* %5
ret i32 %54
}

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