int string_to_fortchar(f, flen, buf)
int flen;
char *buf;
char *f;
{
  int len = strlen(buf), i;
  if (len > flen)
    return 0;
  for (i = 0; i < len; i++)
    f[i] = buf[i];
  for (i = len; i < flen; i++)
    f[i] = ' ';
  return 1;
}


x86 assembly (clang, -O0):
<string_to_fortchar>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x20(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jle    1147 <string_to_fortchar+0x37>
movl   $0x0,-0x4(%rbp)
jmp    11b1 <string_to_fortchar+0xa1>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    117e <string_to_fortchar+0x6e>
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    114e <string_to_fortchar+0x3e>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11aa <string_to_fortchar+0x9a>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movb   $0x20,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1184 <string_to_fortchar+0x74>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<string_to_fortchar>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %rdx,%rbp
mov    %esi,%r14d
mov    %rdi,%rbx
mov    %rdx,%rdi
call   1030 <strlen@plt>
xor    %r15d,%r15d
cmp    %r14d,%eax
jg     1206 <string_to_fortchar+0xe6>
test   %eax,%eax
jle    11dc <string_to_fortchar+0xbc>
mov    %eax,%r9d
cmp    $0x8,%r9
jb     116f <string_to_fortchar+0x4f>
lea    (%r9,%rbp,1),%rdx
cmp    %rbx,%rdx
jbe    1214 <string_to_fortchar+0xf4>
lea    (%rbx,%r9,1),%rdx
cmp    %rbp,%rdx
jbe    1214 <string_to_fortchar+0xf4>
xor    %edx,%edx
mov    %eax,%edi
sub    %edx,%edi
mov    %rdx,%rsi
not    %rsi
add    %r9,%rsi
and    $0x3,%rdi
je     11a2 <string_to_fortchar+0x82>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movzbl 0x0(%rbp,%rdx,1),%ecx
mov    %cl,(%rbx,%rdx,1)
add    $0x1,%rdx
add    $0xffffffffffffffff,%rdi
jne    1190 <string_to_fortchar+0x70>
cmp    $0x3,%rsi
jb     11dc <string_to_fortchar+0xbc>
nopl   0x0(%rax,%rax,1)
movzbl 0x0(%rbp,%rdx,1),%ecx
mov    %cl,(%rbx,%rdx,1)
movzbl 0x1(%rbp,%rdx,1),%ecx
mov    %cl,0x1(%rbx,%rdx,1)
movzbl 0x2(%rbp,%rdx,1),%ecx
mov    %cl,0x2(%rbx,%rdx,1)
movzbl 0x3(%rbp,%rdx,1),%ecx
mov    %cl,0x3(%rbx,%rdx,1)
add    $0x4,%rdx
cmp    %rdx,%r9
jne    11b0 <string_to_fortchar+0x90>
mov    $0x1,%r15d
cmp    %r14d,%eax
jge    1206 <string_to_fortchar+0xe6>
movslq %eax,%rcx
add    %rcx,%rbx
not    %eax
add    %r14d,%eax
add    $0x1,%rax
mov    %rbx,%rdi
mov    $0x20,%esi
mov    %rax,%rdx
call   1040 <memset@plt>
mov    %r15d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret
cmp    $0x20,%r9d
jae    121e <string_to_fortchar+0xfe>
xor    %edx,%edx
jmp    125a <string_to_fortchar+0x13a>
mov    %eax,%esi
and    $0x1f,%esi
mov    %r9,%rdx
sub    %rsi,%rdx
xor    %edi,%edi
nopl   0x0(%rax,%rax,1)
movups 0x0(%rbp,%rdi,1),%xmm0
movups 0x10(%rbp,%rdi,1),%xmm1
movups %xmm0,(%rbx,%rdi,1)
movups %xmm1,0x10(%rbx,%rdi,1)
add    $0x20,%rdi
cmp    %rdi,%rdx
jne    1230 <string_to_fortchar+0x110>
test   %rsi,%rsi
je     11dc <string_to_fortchar+0xbc>
cmp    $0x8,%esi
jb     1171 <string_to_fortchar+0x51>
mov    %rdx,%rsi
mov    %eax,%r8d
and    $0x7,%r8d
mov    %r9,%rdx
sub    %r8,%rdx
nopw   0x0(%rax,%rax,1)
mov    0x0(%rbp,%rsi,1),%rdi
mov    %rdi,(%rbx,%rsi,1)
add    $0x8,%rsi
cmp    %rsi,%rdx
jne    1270 <string_to_fortchar+0x150>
test   %r8,%r8
jne    1171 <string_to_fortchar+0x51>
jmp    11dc <string_to_fortchar+0xbc>

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

LLVM IR (-O2):
define i32 @string_to_fortchar(i8* nocapture writeonly %0, i32 %1, i8* nocapture %2) {
%4 = tail call i64 @strlen(i8* dereferenceable(1) %2)
%5 = trunc i64 %4 to i32
%6 = icmp sgt i32 %5, %1
br i1 %6, label %104, label %7
7: ; preds = %3
%8 = icmp sgt i32 %5, 0
br i1 %8, label %9, label %75
9: ; preds = %7
%10 = and i64 %4, 4294967295
%11 = icmp ult i64 %10, 8
br i1 %11, label %56, label %12
12: ; preds = %9
%13 = getelementptr i8, i8* %0, i64 %10
%14 = getelementptr i8, i8* %2, i64 %10
%15 = icmp ugt i8* %14, %0
%16 = icmp ugt i8* %13, %2
%17 = and i1 %15, %16
br i1 %17, label %56, label %18
18: ; preds = %12
%19 = icmp ult i64 %10, 32
br i1 %19, label %41, label %20
20: ; preds = %18
%21 = and i64 %4, 31
%22 = sub nsw i64 %10, %21
br label %23
23: ; preds = %23, %20
%24 = phi i64 [ 0, %20 ], [ %35, %23 ]
%25 = getelementptr inbounds i8, i8* %2, i64 %24
%26 = bitcast i8* %25 to <16 x i8>*
%27 = load <16 x i8>, <16 x i8>* %26
%28 = getelementptr inbounds i8, i8* %25, i64 16
%29 = bitcast i8* %28 to <16 x i8>*
%30 = load <16 x i8>, <16 x i8>* %29
%31 = getelementptr inbounds i8, i8* %0, i64 %24
%32 = bitcast i8* %31 to <16 x i8>*
store <16 x i8> %27, <16 x i8>* %32
%33 = getelementptr inbounds i8, i8* %31, i64 16
%34 = bitcast i8* %33 to <16 x i8>*
store <16 x i8> %30, <16 x i8>* %34
%35 = add nuw i64 %24, 32
%36 = icmp eq i64 %35, %22
br i1 %36, label %37, label %23
37: ; preds = %23
%38 = icmp eq i64 %21, 0
br i1 %38, label %75, label %39
39: ; preds = %37
%40 = icmp ult i64 %21, 8
br i1 %40, label %56, label %41
41: ; preds = %18, %39
%42 = phi i64 [ %22, %39 ], [ 0, %18 ]
%43 = and i64 %4, 7
%44 = sub nsw i64 %10, %43
br label %45
45: ; preds = %45, %41
%46 = phi i64 [ %42, %41 ], [ %52, %45 ]
%47 = getelementptr inbounds i8, i8* %2, i64 %46
%48 = bitcast i8* %47 to <8 x i8>*
%49 = load <8 x i8>, <8 x i8>* %48
%50 = getelementptr inbounds i8, i8* %0, i64 %46
%51 = bitcast i8* %50 to <8 x i8>*
store <8 x i8> %49, <8 x i8>* %51
%52 = add nuw i64 %46, 8
%53 = icmp eq i64 %52, %44
br i1 %53, label %54, label %45
54: ; preds = %45
%55 = icmp eq i64 %43, 0
br i1 %55, label %75, label %56
56: ; preds = %12, %9, %39, %54
%57 = phi i64 [ 0, %9 ], [ 0, %12 ], [ %22, %39 ], [ %44, %54 ]
%58 = sub i64 %4, %57
%59 = xor i64 %57, -1
%60 = add nsw i64 %10, %59
%61 = and i64 %58, 3
%62 = icmp eq i64 %61, 0
br i1 %62, label %72, label %63
63: ; preds = %56, %63
%64 = phi i64 [ %69, %63 ], [ %57, %56 ]
%65 = phi i64 [ %70, %63 ], [ 0, %56 ]
%66 = getelementptr inbounds i8, i8* %2, i64 %64
%67 = load i8, i8* %66
%68 = getelementptr inbounds i8, i8* %0, i64 %64
store i8 %67, i8* %68
%69 = add nuw nsw i64 %64, 1
%70 = add i64 %65, 1
%71 = icmp eq i64 %70, %61
br i1 %71, label %72, label %63
72: ; preds = %63, %56
%73 = phi i64 [ %57, %56 ], [ %69, %63 ]
%74 = icmp ult i64 %60, 3
br i1 %74, label %75, label %85
75: ; preds = %72, %85, %37, %54, %7
%76 = icmp slt i32 %5, %1
br i1 %76, label %77, label %104
77: ; preds = %75
%78 = shl i64 %4, 32
%79 = ashr exact i64 %78, 32
%80 = getelementptr i8, i8* %0, i64 %79
%81 = xor i32 %5, -1
%82 = add i32 %81, %1
%83 = zext i32 %82 to i64
%84 = add nuw nsw i64 %83, 1
br label %104
85: ; preds = %72, %85
%86 = phi i64 [ %102, %85 ], [ %73, %72 ]
%87 = getelementptr inbounds i8, i8* %2, i64 %86
%88 = load i8, i8* %87
%89 = getelementptr inbounds i8, i8* %0, i64 %86
store i8 %88, i8* %89
%90 = add nuw nsw i64 %86, 1
%91 = getelementptr inbounds i8, i8* %2, i64 %90
%92 = load i8, i8* %91
%93 = getelementptr inbounds i8, i8* %0, i64 %90
store i8 %92, i8* %93
%94 = add nuw nsw i64 %86, 2
%95 = getelementptr inbounds i8, i8* %2, i64 %94
%96 = load i8, i8* %95
%97 = getelementptr inbounds i8, i8* %0, i64 %94
store i8 %96, i8* %97
%98 = add nuw nsw i64 %86, 3
%99 = getelementptr inbounds i8, i8* %2, i64 %98
%100 = load i8, i8* %99
%101 = getelementptr inbounds i8, i8* %0, i64 %98
store i8 %100, i8* %101
%102 = add nuw nsw i64 %86, 4
%103 = icmp eq i64 %102, %10
br i1 %103, label %75, label %85
104: ; preds = %77, %75, %3
%105 = phi i32 [ 0, %3 ], [ 1, %75 ], [ 1, %77 ]
ret i32 %105
}