#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 */
char *BUF_strdup(char *);
int /*<<< orphan*/ OPENSSL_free(char *);
char *OPENSSL_malloc(int);
scalar_t__ islower(unsigned char);
int /*<<< orphan*/ printf(char *, char *);
char *strchr(char *, char);
int strlen(char *);
int /*<<< orphan*/ strncpy(char *, char *, int);
char *strrchr(char *, char);
char *strstr(char *, char *);
char toupper(unsigned char);
int main(int argc, char *argv[]) {
  char *p, *q = 0, *program;
  p = strrchr(argv[0], '/');
  if (!p)
    p = strrchr(argv[0], '\\');
  if (p)
    p++;
  if (!p)
    p = argv[0];
  if (p)
    q = strchr(p, '.');
  if (p && !q)
    q = p + strlen(p);
  if (!p)
    program = BUF_strdup("(unknown)");
  else {
    program = OPENSSL_malloc((q - p) + 1);
    strncpy(program, p, q - p);
    program[q - p] = '\0';
  }
  for (p = program; *p; p++)
    if (islower((unsigned char)(*p)))
      *p = toupper((unsigned char)(*p));
  q = strstr(program, "TEST");
  if (q > p && q[-1] == '_')
    q--;
  *q = '\0';
  printf("No %s support\n", program);
  OPENSSL_free(program);
  return (0);
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movl   $0x0,-0x4(%rbp)
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
mov    $0x2f,%esi
call   1090 <strrchr@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jne    1203 <main+0x53>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
mov    $0x5c,%esi
call   1090 <strrchr@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     121a <main+0x6a>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jne    1230 <main+0x80>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     124d <main+0x9d>
mov    -0x18(%rbp),%rdi
mov    $0x2e,%esi
call   1070 <strchr@plt>
mov    %rax,-0x20(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     1284 <main+0xd4>
cmpq   $0x0,-0x20(%rbp)
jne    1284 <main+0xd4>
mov    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rdi
call   1060 <strlen@plt>
mov    %eax,%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
cmpq   $0x0,-0x18(%rbp)
jne    12a4 <main+0xf4>
lea    0xd6a(%rip),%rdi
call   10b0 <BUF_strdup@plt>
mov    %rax,-0x28(%rbp)
jmp    12eb <main+0x13b>
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    %rcx,%rax
add    $0x1,%rax
mov    %eax,%edi
call   10a0 <OPENSSL_malloc@plt>
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,%edx
call   1030 <strncpy@plt>
mov    -0x28(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    -0x18(%rbp),%rdx
sub    %rdx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x28(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
je     1340 <main+0x190>
mov    -0x18(%rbp),%rax
movzbl (%rax),%edi
call   1040 <islower@plt>
cmp    $0x0,%rax
je     132a <main+0x17a>
mov    -0x18(%rbp),%rax
movzbl (%rax),%edi
call   1050 <toupper@plt>
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %cl,(%rax)
jmp    132f <main+0x17f>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    12f3 <main+0x143>
mov    -0x28(%rbp),%rdi
lea    0xcbf(%rip),%rsi
call   10d0 <strstr@plt>
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jbe    137f <main+0x1cf>
mov    -0x20(%rbp),%rax
movsbl -0x1(%rax),%eax
cmp    $0x5f,%eax
jne    137f <main+0x1cf>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x28(%rbp),%rsi
lea    0xc7e(%rip),%rdi
call   1080 <printf@plt>
mov    -0x28(%rbp),%rdi
call   10c0 <OPENSSL_free@plt>
xor    %eax,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %rbx
mov    (%rsi),%rbx
mov    %rbx,%rdi
mov    $0x2f,%esi
call   1090 <strrchr@plt>
test   %rax,%rax
je     11d3 <main+0x23>
mov    %rax,%r15
add    $0x1,%r15
jmp    11f4 <main+0x44>
mov    %rbx,%rdi
mov    $0x5c,%esi
call   1090 <strrchr@plt>
lea    0x1(%rax),%r15
test   %rax,%rax
cmove  %rbx,%r15
test   %r15,%r15
je     12b7 <main+0x107>
mov    %r15,%rdi
mov    $0x2e,%esi
call   1070 <strchr@plt>
mov    %rax,%rbx
test   %rax,%rax
jne    1217 <main+0x67>
mov    %r15,%rdi
call   1060 <strlen@plt>
movslq %eax,%rbx
add    %r15,%rbx
sub    %r15,%rbx
lea    0x1(%rbx),%edi
call   10a0 <OPENSSL_malloc@plt>
mov    %rax,%r14
mov    %rax,%rdi
mov    %r15,%rsi
mov    %ebx,%edx
call   1030 <strncpy@plt>
movb   $0x0,(%r14,%rbx,1)
mov    (%r14),%al
mov    %r14,%rbx
test   %al,%al
je     1275 <main+0xc5>
mov    %r14,%rbx
jmp    125c <main+0xac>
cs nopw 0x0(%rax,%rax,1)
movzbl 0x1(%rbx),%eax
add    $0x1,%rbx
test   %al,%al
je     1275 <main+0xc5>
movzbl %al,%edi
call   1040 <islower@plt>
test   %rax,%rax
je     1250 <main+0xa0>
movzbl (%rbx),%edi
call   1050 <toupper@plt>
mov    %al,(%rbx)
jmp    1250 <main+0xa0>
lea    0xd8e(%rip),%rsi
mov    %r14,%rdi
call   10d0 <strstr@plt>
cmp    %rbx,%rax
jbe    1295 <main+0xe5>
lea    -0x1(%rax),%rcx
cmpb   $0x5f,-0x1(%rax)
cmove  %rcx,%rax
movb   $0x0,(%rax)
lea    0xd70(%rip),%rdi
mov    %r14,%rsi
call   1080 <printf@plt>
mov    %r14,%rdi
call   10c0 <OPENSSL_free@plt>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
ret
lea    0xd42(%rip),%rdi
call   10b0 <BUF_strdup@plt>
mov    %rax,%r14
jmp    1237 <main+0x87>

LLVM IR (-O0):
@.str = [10 x i8] c"(unknown)\00"
@.str.1 = [5 x i8] c"TEST\00"
@.str.2 = [15 x i8] c"No %s support\0A\00"
define i32 @main(i32 %0, i8** %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8**
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i8*
store i32 0, i32* %3
store i32 %0, i32* %4
store i8** %1, i8*** %5
store i8* null, i8** %7
%9 = load i8**, i8*** %5
%10 = getelementptr inbounds i8*, i8** %9, i64 0
%11 = load i8*, i8** %10
%12 = call i8* @strrchr(i8* %11, i8 signext 47)
store i8* %12, i8** %6
%13 = load i8*, i8** %6
%14 = icmp ne i8* %13, null
br i1 %14, label %20, label %15
15: ; preds = %2
%16 = load i8**, i8*** %5
%17 = getelementptr inbounds i8*, i8** %16, i64 0
%18 = load i8*, i8** %17
%19 = call i8* @strrchr(i8* %18, i8 signext 92)
store i8* %19, i8** %6
br label %20
20: ; preds = %15, %2
%21 = load i8*, i8** %6
%22 = icmp ne i8* %21, null
br i1 %22, label %23, label %26
23: ; preds = %20
%24 = load i8*, i8** %6
%25 = getelementptr inbounds i8, i8* %24, i32 1
store i8* %25, i8** %6
br label %26
26: ; preds = %23, %20
%27 = load i8*, i8** %6
%28 = icmp ne i8* %27, null
br i1 %28, label %33, label %29
29: ; preds = %26
%30 = load i8**, i8*** %5
%31 = getelementptr inbounds i8*, i8** %30, i64 0
%32 = load i8*, i8** %31
store i8* %32, i8** %6
br label %33
33: ; preds = %29, %26
%34 = load i8*, i8** %6
%35 = icmp ne i8* %34, null
br i1 %35, label %36, label %39
36: ; preds = %33
%37 = load i8*, i8** %6
%38 = call i8* @strchr(i8* %37, i8 signext 46)
store i8* %38, i8** %7
br label %39
39: ; preds = %36, %33
%40 = load i8*, i8** %6
%41 = icmp ne i8* %40, null
br i1 %41, label %42, label %51
42: ; preds = %39
%43 = load i8*, i8** %7
%44 = icmp ne i8* %43, null
br i1 %44, label %51, label %45
45: ; preds = %42
%46 = load i8*, i8** %6
%47 = load i8*, i8** %6
%48 = call i32 @strlen(i8* %47)
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds i8, i8* %46, i64 %49
store i8* %50, i8** %7
br label %51
51: ; preds = %45, %42, %39
%52 = load i8*, i8** %6
%53 = icmp ne i8* %52, null
br i1 %53, label %56, label %54
54: ; preds = %51
%55 = call i8* @BUF_strdup(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0))
store i8* %55, i8** %8
br label %81
56: ; preds = %51
%57 = load i8*, i8** %7
%58 = load i8*, i8** %6
%59 = ptrtoint i8* %57 to i64
%60 = ptrtoint i8* %58 to i64
%61 = sub i64 %59, %60
%62 = add nsw i64 %61, 1
%63 = trunc i64 %62 to i32
%64 = call i8* @OPENSSL_malloc(i32 %63)
store i8* %64, i8** %8
%65 = load i8*, i8** %8
%66 = load i8*, i8** %6
%67 = load i8*, i8** %7
%68 = load i8*, i8** %6
%69 = ptrtoint i8* %67 to i64
%70 = ptrtoint i8* %68 to i64
%71 = sub i64 %69, %70
%72 = trunc i64 %71 to i32
%73 = call i32 @strncpy(i8* %65, i8* %66, i32 %72)
%74 = load i8*, i8** %8
%75 = load i8*, i8** %7
%76 = load i8*, i8** %6
%77 = ptrtoint i8* %75 to i64
%78 = ptrtoint i8* %76 to i64
%79 = sub i64 %77, %78
%80 = getelementptr inbounds i8, i8* %74, i64 %79
store i8 0, i8* %80
br label %81
81: ; preds = %56, %54
%82 = load i8*, i8** %8
store i8* %82, i8** %6
br label %83
83: ; preds = %98, %81
%84 = load i8*, i8** %6
%85 = load i8, i8* %84
%86 = icmp ne i8 %85, 0
br i1 %86, label %87, label %101
87: ; preds = %83
%88 = load i8*, i8** %6
%89 = load i8, i8* %88
%90 = call i64 @islower(i8 zeroext %89)
%91 = icmp ne i64 %90, 0
br i1 %91, label %92, label %97
92: ; preds = %87
%93 = load i8*, i8** %6
%94 = load i8, i8* %93
%95 = call signext i8 @toupper(i8 zeroext %94)
%96 = load i8*, i8** %6
store i8 %95, i8* %96
br label %97
97: ; preds = %92, %87
br label %98
98: ; preds = %97
%99 = load i8*, i8** %6
%100 = getelementptr inbounds i8, i8* %99, i32 1
store i8* %100, i8** %6
br label %83
101: ; preds = %83
%102 = load i8*, i8** %8
%103 = call i8* @strstr(i8* %102, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0))
store i8* %103, i8** %7
%104 = load i8*, i8** %7
%105 = load i8*, i8** %6
%106 = icmp ugt i8* %104, %105
br i1 %106, label %107, label %116
107: ; preds = %101
%108 = load i8*, i8** %7
%109 = getelementptr inbounds i8, i8* %108, i64 -1
%110 = load i8, i8* %109
%111 = sext i8 %110 to i32
%112 = icmp eq i32 %111, 95
br i1 %112, label %113, label %116
113: ; preds = %107
%114 = load i8*, i8** %7
%115 = getelementptr inbounds i8, i8* %114, i32 -1
store i8* %115, i8** %7
br label %116
116: ; preds = %113, %107, %101
%117 = load i8*, i8** %7
store i8 0, i8* %117
%118 = load i8*, i8** %8
%119 = call i32 @printf(i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.2, i64 0, i64 0), i8* %118)
%120 = load i8*, i8** %8
%121 = call i32 @OPENSSL_free(i8* %120)
ret i32 0
}

LLVM IR (-O2):
@.str = [10 x i8] c"(unknown)\00"
@.str.1 = [5 x i8] c"TEST\00"
@.str.2 = [15 x i8] c"No %s support\0A\00"
define i32 @main(i32 %0, i8** nocapture %1) {
%3 = load i8*, i8** %1
%4 = tail call i8* @strrchr(i8* dereferenceable(1) %3, i8 signext 47)
%5 = icmp eq i8* %4, null
br i1 %5, label %8, label %6
6: ; preds = %2
%7 = getelementptr inbounds i8, i8* %4, i64 1
br label %14
8: ; preds = %2
%9 = tail call i8* @strrchr(i8* dereferenceable(1) %3, i8 signext 92)
%10 = icmp eq i8* %9, null
%11 = getelementptr inbounds i8, i8* %9, i64 1
%12 = select i1 %10, i8* %3, i8* %11
%13 = icmp eq i8* %12, null
br i1 %13, label %22, label %14
14: ; preds = %8, %6
%15 = phi i8* [ %7, %6 ], [ %12, %8 ]
%16 = tail call i8* @strchr(i8* %15, i8 signext 46)
%17 = icmp eq i8* %16, null
br i1 %17, label %18, label %24
18: ; preds = %14
%19 = tail call i32 @strlen(i8* %15)
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds i8, i8* %15, i64 %20
br label %24
22: ; preds = %8
%23 = tail call i8* @BUF_strdup(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0))
br label %34
24: ; preds = %14, %18
%25 = phi i8* [ %21, %18 ], [ %16, %14 ]
%26 = ptrtoint i8* %25 to i64
%27 = ptrtoint i8* %15 to i64
%28 = sub i64 %26, %27
%29 = trunc i64 %28 to i32
%30 = add i32 %29, 1
%31 = tail call i8* @OPENSSL_malloc(i32 %30)
%32 = tail call i32 @strncpy(i8* %31, i8* %15, i32 %29)
%33 = getelementptr inbounds i8, i8* %31, i64 %28
store i8 0, i8* %33
br label %34
34: ; preds = %24, %22
%35 = phi i8* [ %31, %24 ], [ %23, %22 ]
%36 = load i8, i8* %35
%37 = icmp eq i8 %36, 0
br i1 %37, label %50, label %38
38: ; preds = %34, %46
%39 = phi i8 [ %48, %46 ], [ %36, %34 ]
%40 = phi i8* [ %47, %46 ], [ %35, %34 ]
%41 = tail call i64 @islower(i8 zeroext %39)
%42 = icmp eq i64 %41, 0
br i1 %42, label %46, label %43
43: ; preds = %38
%44 = load i8, i8* %40
%45 = tail call signext i8 @toupper(i8 zeroext %44)
store i8 %45, i8* %40
br label %46
46: ; preds = %38, %43
%47 = getelementptr inbounds i8, i8* %40, i64 1
%48 = load i8, i8* %47
%49 = icmp eq i8 %48, 0
br i1 %49, label %50, label %38
50: ; preds = %46, %34
%51 = phi i8* [ %35, %34 ], [ %47, %46 ]
%52 = tail call i8* @strstr(i8* dereferenceable(1) %35, i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0))
%53 = icmp ugt i8* %52, %51
br i1 %53, label %54, label %59
54: ; preds = %50
%55 = getelementptr inbounds i8, i8* %52, i64 -1
%56 = load i8, i8* %55
%57 = icmp eq i8 %56, 95
%58 = select i1 %57, i8* %55, i8* %52
br label %59
59: ; preds = %54, %50
%60 = phi i8* [ %52, %50 ], [ %58, %54 ]
store i8 0, i8* %60
%61 = tail call i32 @printf(i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.2, i64 0, i64 0), i8* %35)
%62 = tail call i32 @OPENSSL_free(i8* %35)
ret i32 0
}