#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 */
int memcmp(char *, char *, unsigned int);
int _F90_FCD_CMP_LT(char *str1, char *str2, int len1, int len2) {
  char *str3;
  unsigned int len3, len;
  int sign, stat;
  sign = (len1 < len2);
  if (sign) {
    len = len1;
    len3 = len2 - len1;
    str3 = str2 + len;
  } else {
    len = len2;
    len3 = len1 - len2;
    str3 = str1 + len;
  }
  stat = memcmp(str1, str2, len);
  while (len3 > 0 && stat == 0) {
    register char ch;
    ch = *str3;
    str3 = str3 + 1;
    stat = sign ? ((int)' ') - (int)ch : ((int)ch) - ((int)' ');
    len3 = len3 - 1;
  }
  return (stat < 0);
}


x86 assembly (clang, -O0):
<_F90_FCD_CMP_LT>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x18(%rbp),%eax
setl   %al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
je     1163 <_F90_FCD_CMP_LT+0x53>
mov    -0x14(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x18(%rbp),%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
jmp    1180 <_F90_FCD_CMP_LT+0x70>
mov    -0x18(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x28(%rbp),%edx
call   1030 <memcmp@plt>
mov    %eax,-0x30(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x24(%rbp)
mov    %al,-0x32(%rbp)
jbe    11ac <_F90_FCD_CMP_LT+0x9c>
cmpl   $0x0,-0x30(%rbp)
sete   %al
mov    %al,-0x32(%rbp)
mov    -0x32(%rbp),%al
test   $0x1,%al
jne    11bc <_F90_FCD_CMP_LT+0xac>
jmp    120c <_F90_FCD_CMP_LT+0xfc>
mov    -0x20(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x31(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
cmpl   $0x0,-0x2c(%rbp)
je     11ee <_F90_FCD_CMP_LT+0xde>
movsbl -0x31(%rbp),%ecx
mov    $0x20,%eax
sub    %ecx,%eax
mov    %eax,-0x38(%rbp)
jmp    11f8 <_F90_FCD_CMP_LT+0xe8>
movsbl -0x31(%rbp),%eax
sub    $0x20,%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1193 <_F90_FCD_CMP_LT+0x83>
cmpl   $0x0,-0x30(%rbp)
setl   %al
and    $0x1,%al
movzbl %al,%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_F90_FCD_CMP_LT>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %ecx,%r12d
mov    %edx,%ebp
mov    %rsi,%r15
mov    %rdi,%r14
mov    %edx,%eax
sub    %ecx,%eax
neg    %eax
mov    %edx,%ebx
sub    %ecx,%ebx
mov    %ecx,%edx
cmovl  %ebp,%edx
cmovl  %eax,%ebx
call   1030 <memcmp@plt>
test   %ebx,%ebx
je     1181 <_F90_FCD_CMP_LT+0x71>
test   %eax,%eax
jne    1181 <_F90_FCD_CMP_LT+0x71>
mov    %ebp,%eax
add    %rax,%r15
mov    %r12d,%eax
add    %rax,%r14
cmp    %r12d,%ebp
cmovl  %r15,%r14
add    $0xffffffff,%ebx
xor    %ecx,%ecx
nopl   0x0(%rax)
movsbl (%r14,%rcx,1),%eax
mov    $0x20,%edx
sub    %eax,%edx
add    $0xffffffe0,%eax
cmp    %r12d,%ebp
cmovl  %edx,%eax
cmp    %ecx,%ebx
je     1181 <_F90_FCD_CMP_LT+0x71>
add    $0x1,%rcx
test   %eax,%eax
je     1160 <_F90_FCD_CMP_LT+0x50>
shr    $0x1f,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @_F90_FCD_CMP_LT(i8* %0, i8* %1, i32 %2, i32 %3) {
%5 = icmp slt i32 %2, %3
%6 = sub nsw i32 %3, %2
%7 = sub nsw i32 %2, %3
%8 = select i1 %5, i32 %2, i32 %3
%9 = select i1 %5, i32 %6, i32 %7
%10 = tail call i32 @memcmp(i8* %0, i8* %1, i32 %8)
%11 = icmp ne i32 %9, 0
%12 = icmp eq i32 %10, 0
%13 = select i1 %11, i1 %12, i1 false
br i1 %13, label %14, label %33
14: ; preds = %4
%15 = zext i32 %2 to i64
%16 = getelementptr inbounds i8, i8* %1, i64 %15
%17 = zext i32 %3 to i64
%18 = getelementptr inbounds i8, i8* %0, i64 %17
%19 = select i1 %5, i8* %16, i8* %18
br label %20
20: ; preds = %14, %20
%21 = phi i8* [ %24, %20 ], [ %19, %14 ]
%22 = phi i32 [ %29, %20 ], [ %9, %14 ]
%23 = load i8, i8* %21
%24 = getelementptr inbounds i8, i8* %21, i64 1
%25 = sext i8 %23 to i32
%26 = sub nsw i32 32, %25
%27 = add nsw i32 %25, -32
%28 = select i1 %5, i32 %26, i32 %27
%29 = add i32 %22, -1
%30 = icmp ne i32 %29, 0
%31 = icmp eq i32 %28, 0
%32 = select i1 %30, i1 %31, i1 false
br i1 %32, label %20, label %33
33: ; preds = %20, %4
%34 = phi i32 [ %10, %4 ], [ %28, %20 ]
%35 = lshr i32 %34, 31
ret i32 %35
}