#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_EQ(char *str1, char *str2, int len1, int len2) {
  char *str3;
  unsigned int len3, len;
  int stat;
  if (len1 < len2) {
    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 = ((int)ch) ^ ((int)' ');
    len3 = len3 - 1;
  }
  return (stat == 0);
}


x86 assembly (clang, -O0):
<_F90_FCD_CMP_EQ>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%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
jge    1154 <_F90_FCD_CMP_EQ+0x44>
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    1171 <_F90_FCD_CMP_EQ+0x61>
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,-0x2c(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x24(%rbp)
mov    %al,-0x2e(%rbp)
jbe    119d <_F90_FCD_CMP_EQ+0x8d>
cmpl   $0x0,-0x2c(%rbp)
sete   %al
mov    %al,-0x2e(%rbp)
mov    -0x2e(%rbp),%al
test   $0x1,%al
jne    11ad <_F90_FCD_CMP_EQ+0x9d>
jmp    11da <_F90_FCD_CMP_EQ+0xca>
mov    -0x20(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x2d(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
movsbl -0x2d(%rbp),%eax
xor    $0x20,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1184 <_F90_FCD_CMP_EQ+0x74>
cmpl   $0x0,-0x2c(%rbp)
sete   %al
and    $0x1,%al
movzbl %al,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_F90_FCD_CMP_EQ>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %ecx,%r15d
mov    %edx,%r12d
mov    %rsi,%r14
mov    %rdi,%rbx
mov    %edx,%eax
sub    %ecx,%eax
mov    %ecx,%edx
cmovl  %r12d,%edx
neg    %eax
mov    %r12d,%ebp
sub    %ecx,%ebp
cmovl  %eax,%ebp
call   1030 <memcmp@plt>
test   %eax,%eax
sete   %cl
test   %ebp,%ebp
je     1187 <_F90_FCD_CMP_EQ+0x77>
test   %eax,%eax
jne    1187 <_F90_FCD_CMP_EQ+0x77>
mov    %r12d,%eax
add    %rax,%r14
mov    %r15d,%eax
add    %rax,%rbx
cmp    %r15d,%r12d
cmovl  %r14,%rbx
add    $0xffffffff,%ebp
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl (%rbx,%rax,1),%edx
cmp    $0x20,%dl
sete   %cl
cmp    %eax,%ebp
je     1187 <_F90_FCD_CMP_EQ+0x77>
add    $0x1,%rax
cmp    $0x20,%dl
je     1170 <_F90_FCD_CMP_EQ+0x60>
movzbl %cl,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @_F90_FCD_CMP_EQ(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 %6, i32 %7
%9 = select i1 %5, i32 %2, i32 %3
%10 = tail call i32 @memcmp(i8* %0, i8* %1, i32 %9)
%11 = icmp ne i32 %8, 0
%12 = icmp eq i32 %10, 0
%13 = select i1 %11, i1 %12, i1 false
br i1 %13, label %14, label %29
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 [ %25, %20 ], [ %8, %14 ]
%23 = load i8, i8* %21
%24 = getelementptr inbounds i8, i8* %21, i64 1
%25 = add i32 %22, -1
%26 = icmp ne i32 %25, 0
%27 = icmp eq i8 %23, 32
%28 = select i1 %26, i1 %27, i1 false
br i1 %28, label %20, label %29
29: ; preds = %20, %4
%30 = phi i1 [ %12, %4 ], [ %27, %20 ]
%31 = zext i1 %30 to i32
ret i32 %31
}