#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 */
typedef int /*<<< orphan*/ type;
typedef int /*<<< orphan*/ FILE;

/* Variables and functions */
int EOF;
scalar_t__ fclose(int /*<<< orphan*/ *);
int /*<<< orphan*/ *fopen(char *, char *);
int /*<<< orphan*/ fprintf(int /*<<< orphan*/ *, char *, ...);
int getc(int /*<<< orphan*/ *);
scalar_t__ isalpha(int);
scalar_t__ isdigit(int);
scalar_t__ isspace(int);
int /*<<< orphan*/ printf(char *, char *, char *);
int /*<<< orphan*/ putc(int, int /*<<< orphan*/ *);
int /*<<< orphan*/ *stderr;
scalar_t__ strcmp(char *, char *);
int /*<<< orphan*/ strcpy(char *, char *);
int strlen(char *);
scalar_t__ strncmp(char *, char *, int);
int /*<<< orphan*/ tolower(int);
main(int argc, char **argv) {
  char *objectname;
  char *type[] = {"program",           "function",
                  "blockdata",         "subroutine",
                  "realfunction",      "doublefunction",
                  "integerfunction",   "logicalfunction",
                  "characterfunction", "doubleprecisionfunction"};
  int tlen[sizeof(type) / sizeof(char *)];
  char keyword[73], *pkeyword = keyword;
  char chsaved[73], *pchsaved = chsaved;
  char lastfile[73];
  char nscode[] = "NOSPLIT";
  int c, collecting, column = 0, comment, cvs = 3, chrspast72 = 0,
                     errorflag = 0, found, i, match, nosplit = 0, tabs = 0;
  FILE *psrc, *pdst;
  for (i = 0; i < sizeof(type) / sizeof(char *); i++)
    tlen[i] = strlen(type[i]);
  lastfile[1] = '\0';
  objectname = *argv;
  if (argc < 2 || argc > 3) {
    fprintf(stderr, "%s: Wrong number of arguments.\n", objectname);
    fprintf(stderr, "Use \"%s [-cvs|-copyright|-both] source_file_name\".\n",
            objectname);
    return errorflag = 1;
  } else if (argc == 3) {
    if (strcmp(*++argv, "-cvs") == 0) {
      cvs = 1;
    } else if (strcmp(*argv, "-copyright") == 0) {
      cvs = 2;
    } else if (strcmp(*argv, "-both") == 0) {
      cvs = 0;
    } else {
      fprintf(stderr, "%s: Bad argument \"%s\".\n", objectname, *argv);
      fprintf(stderr, "Use \"%s [-cvs|-copyright|-both] source_file_name\".\n",
              objectname);
      return errorflag = 2;
    }
  }
  if ((psrc = fopen(*++argv, "r")) == (FILE *)NULL) {
    fprintf(stderr, "%s: Can't open \"%s\".\n", objectname, *argv);
    return errorflag = 3;
  }
  pdst = (FILE *)NULL;
  while ((c = getc(psrc)) != EOF) {
    ++column;
    if (column == 1) {
      collecting = !(comment = (c == 'c' || c == 'C')) && isspace(c);
      pchsaved = chsaved;
    } else if (column < 7) {
      if (!isspace(c))
        collecting = 0;
    } else if (column > 72 && c != '\n') {
      collecting = 0;
      chrspast72 = 1;
    } else {
      if (collecting && c != ' ' && c != '\t') {
        if (isalpha(c))
          *pkeyword++ = tolower(c), *pkeyword = '\0';
        else if (pkeyword != keyword)
          if (pkeyword - keyword == 9 && strcmp(keyword, "character") == 0 &&
              (c == '*' || isdigit(c)))
            ;
          else if (isdigit(c))
            *pkeyword++ = c, *pkeyword = '\0';
          else
            collecting = 0;
        else if (c != '\n')
          collecting = 0;
      }
    }
    if (pdst == (FILE *)NULL) {
      if (!comment) {
        if (collecting)
          *pchsaved++ = c, *pchsaved = '\0';
        else {
          *pkeyword++ = '.', *pkeyword++ = 'f', *pkeyword = '\0';
          for (i = 0, found = 0; i < sizeof(type) / sizeof(char *); i++) {
            if (pkeyword - keyword <= tlen[i])
              break;
            if (strncmp(keyword, type[i], tlen[i]) == 0) {
              found = 1;
              pkeyword = keyword + tlen[i];
              break;
            }
          }
          if (!found) {
            fprintf(stderr, "%s: Can't find output file name.\n", objectname);
            return errorflag = 4;
          } else if (!nosplit &&
                     (pdst = fopen(pkeyword, "w")) == (FILE *)NULL) {
            fprintf(stderr, "%s: Can't open file \"%s\".\n", objectname,
                    pkeyword);
            return errorflag = 5;
          } else if (nosplit &&
                     (pdst = fopen(pkeyword = lastfile, "a")) == (FILE *)NULL) {
            fprintf(stderr, "%s: Can't reopen file \"%s\".\n", objectname,
                    pkeyword);
            return errorflag = 6;
          } else
            printf("%s: Opening file \"%s\".\n", objectname, pkeyword);
          if (lastfile != pkeyword)
            strcpy(lastfile, pkeyword);
          if (!nosplit) {
            if (cvs == 2 || cvs == 3) {
              fprintf(pdst, "C\nC $I");
              fprintf(pdst, "d$\nC\n");
            }
            if (cvs == 1 || cvs == 3) {
              fprintf(pdst, "C                Copyright (C)  2000\n");
              fprintf(
                  pdst,
                  "C        University Corporation for Atmospheric Research\n");
              fprintf(pdst, "C                All Rights Reserved\n");
              fprintf(pdst, "C\n");
              fprintf(pdst, "C The use of this Software is governed by a "
                            "License Agreement.\n");
              fprintf(pdst, "C\n");
            }
          }
          fprintf(pdst, "%s", chsaved);
          pchsaved = chsaved;
          putc(c, pdst);
        }
      } else if (lastfile[1] != '\0') {
        if (column == 1)
          match = 0;
        else if (column <= 8 && c == nscode[column - 2])
          if (++match == 7)
            nosplit = 1;
      }
    } else {
      putc(c, pdst);
      if (c == '\n' && pkeyword - keyword == 3 && strcmp(keyword, "end") == 0) {
        if (fclose(pdst) != 0) {
          fprintf(stderr, "%s: Can't close output file.\n", objectname);
          return errorflag = 7;
        }
        pdst = (FILE *)NULL;
        nosplit = 0;
      }
    }
    if (c == '\t')
      column = ((column + 7) / 8) * 8, tabs = 1;
    else if (c == '\n')
      column = 0, *(pkeyword = keyword) = '\0';
  }
  if (pdst != (FILE *)NULL) {
    fprintf(stderr, "%s: No \"END\" statement in final routine.\n", objectname);
    errorflag = 8;
    if (fclose(pdst) != 0) {
      fprintf(stderr, "%s: Can't close output file.\n", objectname);
      errorflag = 9;
    }
  }
  if (fclose(psrc) != 0) {
    fprintf(stderr, "%s: Can't close source file.\n", objectname);
    errorflag = 10;
  }
  if (tabs != 0) {
    fprintf(stderr, "%s: There were tabs in the source file.\n", objectname);
    errorflag = 11;
  }
  if (chrspast72 != 0) {
    fprintf(stderr, "%s: There were non-blank", objectname);
    fprintf(stderr, " characters past column 72 in the source file.\n");
    errorflag = 12;
  }
  return errorflag;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x200,%rsp
movl   $0x0,-0x4(%rbp)
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
lea    -0x70(%rbp),%rdi
lea    0x2bac(%rip),%rsi
mov    $0x50,%edx
call   10d0 <memcpy@plt>
lea    -0xf0(%rbp),%rax
mov    %rax,-0xf8(%rbp)
lea    -0x150(%rbp),%rax
mov    %rax,-0x158(%rbp)
mov    0xe42(%rip),%rax
mov    %rax,-0x1b8(%rbp)
movl   $0x0,-0x1c4(%rbp)
movl   $0x3,-0x1cc(%rbp)
movl   $0x0,-0x1d0(%rbp)
movl   $0x0,-0x1d4(%rbp)
movl   $0x0,-0x1e4(%rbp)
movl   $0x0,-0x1e8(%rbp)
movl   $0x0,-0x1dc(%rbp)
movslq -0x1dc(%rbp),%rax
cmp    $0xa,%rax
jae    12d4 <main+0xe4>
movslq -0x1dc(%rbp),%rax
mov    -0x70(%rbp,%rax,8),%rdi
call   1070 <strlen@plt>
mov    %eax,%ecx
movslq -0x1dc(%rbp),%rax
mov    %ecx,-0xa0(%rbp,%rax,4)
mov    -0x1dc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1dc(%rbp)
jmp    128e <main+0x9e>
movb   $0x0,-0x1af(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
cmpl   $0x2,-0x8(%rbp)
jl     12fa <main+0x10a>
cmpl   $0x3,-0x8(%rbp)
jle    1348 <main+0x158>
mov    0x2cd7(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0xd7c(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    0x2cbb(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0xd80(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x1,-0x1d4(%rbp)
movl   $0x1,-0x4(%rbp)
jmp    1e35 <main+0xc45>
cmpl   $0x3,-0x8(%rbp)
jne    1446 <main+0x256>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x10(%rbp)
mov    0x8(%rax),%rdi
lea    0xd73(%rip),%rsi
call   10a0 <strcmp@plt>
cmp    $0x0,%rax
jne    138a <main+0x19a>
movl   $0x1,-0x1cc(%rbp)
jmp    1441 <main+0x251>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
lea    0xd4c(%rip),%rsi
call   10a0 <strcmp@plt>
cmp    $0x0,%rax
jne    13b6 <main+0x1c6>
movl   $0x2,-0x1cc(%rbp)
jmp    143c <main+0x24c>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
lea    0xd2b(%rip),%rsi
call   10a0 <strcmp@plt>
cmp    $0x0,%rax
jne    13e2 <main+0x1f2>
movl   $0x0,-0x1cc(%rbp)
jmp    1437 <main+0x247>
mov    0x2bef(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
lea    0xcf7(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    0x2bcc(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0xc91(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x2,-0x1d4(%rbp)
movl   $0x2,-0x4(%rbp)
jmp    1e35 <main+0xc45>
jmp    143c <main+0x24c>
jmp    1441 <main+0x251>
jmp    1446 <main+0x256>
jmp    144b <main+0x25b>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x10(%rbp)
mov    0x8(%rax),%rdi
lea    0xcc6(%rip),%rsi
call   1100 <fopen@plt>
mov    %rax,-0x1f0(%rbp)
cmp    $0x0,%rax
jne    14b4 <main+0x2c4>
mov    0x2b56(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
lea    0xc76(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x3,-0x1d4(%rbp)
movl   $0x3,-0x4(%rbp)
jmp    1e35 <main+0xc45>
movq   $0x0,-0x1f8(%rbp)
mov    -0x1f0(%rbp),%rdi
call   1110 <getc@plt>
mov    %eax,-0x1bc(%rbp)
mov    0x2b10(%rip),%rcx
cmp    (%rcx),%eax
je     1cfd <main+0xb0d>
mov    -0x1c4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c4(%rbp)
cmpl   $0x1,-0x1c4(%rbp)
jne    1581 <main+0x391>
mov    $0x1,%al
cmpl   $0x63,-0x1bc(%rbp)
mov    %al,-0x1f9(%rbp)
je     1521 <main+0x331>
cmpl   $0x43,-0x1bc(%rbp)
sete   %al
mov    %al,-0x1f9(%rbp)
mov    -0x1f9(%rbp),%cl
mov    %cl,%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x1c8(%rbp)
xor    %eax,%eax
test   $0x1,%cl
mov    %al,-0x1fa(%rbp)
jne    155d <main+0x36d>
mov    -0x1bc(%rbp),%edi
call   1090 <isspace@plt>
cmp    $0x0,%rax
setne  %al
mov    %al,-0x1fa(%rbp)
mov    -0x1fa(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x1c0(%rbp)
lea    -0x150(%rbp),%rax
mov    %rax,-0x158(%rbp)
jmp    1756 <main+0x566>
cmpl   $0x7,-0x1c4(%rbp)
jge    15b2 <main+0x3c2>
mov    -0x1bc(%rbp),%edi
call   1090 <isspace@plt>
cmp    $0x0,%rax
jne    15ad <main+0x3bd>
movl   $0x0,-0x1c0(%rbp)
jmp    1751 <main+0x561>
cmpl   $0x48,-0x1c4(%rbp)
jle    15e5 <main+0x3f5>
cmpl   $0xa,-0x1bc(%rbp)
je     15e5 <main+0x3f5>
movl   $0x0,-0x1c0(%rbp)
movl   $0x1,-0x1d0(%rbp)
jmp    174c <main+0x55c>
cmpl   $0x0,-0x1c0(%rbp)
je     1747 <main+0x557>
cmpl   $0x20,-0x1bc(%rbp)
je     1747 <main+0x557>
cmpl   $0x9,-0x1bc(%rbp)
je     1747 <main+0x557>
mov    -0x1bc(%rbp),%edi
call   10f0 <isalpha@plt>
cmp    $0x0,%rax
je     1654 <main+0x464>
mov    -0x1bc(%rbp),%edi
call   10e0 <tolower@plt>
mov    %al,%cl
mov    -0xf8(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0xf8(%rbp)
mov    %cl,(%rax)
mov    -0xf8(%rbp),%rax
movb   $0x0,(%rax)
jmp    1742 <main+0x552>
mov    -0xf8(%rbp),%rax
lea    -0xf0(%rbp),%rcx
cmp    %rcx,%rax
je     1721 <main+0x531>
mov    -0xf8(%rbp),%rax
lea    -0xf0(%rbp),%rcx
sub    %rcx,%rax
cmp    $0x9,%rax
jne    16ca <main+0x4da>
lea    -0xf0(%rbp),%rdi
lea    0xa8f(%rip),%rsi
call   10a0 <strcmp@plt>
cmp    $0x0,%rax
jne    16ca <main+0x4da>
cmpl   $0x2a,-0x1bc(%rbp)
je     16c5 <main+0x4d5>
mov    -0x1bc(%rbp),%edi
call   1040 <isdigit@plt>
cmp    $0x0,%rax
je     16ca <main+0x4da>
jmp    171c <main+0x52c>
mov    -0x1bc(%rbp),%edi
call   1040 <isdigit@plt>
cmp    $0x0,%rax
je     170d <main+0x51d>
mov    -0x1bc(%rbp),%eax
mov    %al,%cl
mov    -0xf8(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0xf8(%rbp)
mov    %cl,(%rax)
mov    -0xf8(%rbp),%rax
movb   $0x0,(%rax)
jmp    1717 <main+0x527>
movl   $0x0,-0x1c0(%rbp)
jmp    171c <main+0x52c>
jmp    173d <main+0x54d>
cmpl   $0xa,-0x1bc(%rbp)
je     1738 <main+0x548>
movl   $0x0,-0x1c0(%rbp)
jmp    173d <main+0x54d>
jmp    1742 <main+0x552>
jmp    1747 <main+0x557>
jmp    174c <main+0x55c>
jmp    1751 <main+0x561>
jmp    1756 <main+0x566>
cmpq   $0x0,-0x1f8(%rbp)
jne    1bd8 <main+0x9e8>
cmpl   $0x0,-0x1c8(%rbp)
jne    1b42 <main+0x952>
cmpl   $0x0,-0x1c0(%rbp)
je     17ac <main+0x5bc>
mov    -0x1bc(%rbp),%eax
mov    %al,%cl
mov    -0x158(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x158(%rbp)
mov    %cl,(%rax)
mov    -0x158(%rbp),%rax
movb   $0x0,(%rax)
jmp    1b3d <main+0x94d>
mov    -0xf8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0xf8(%rbp)
movb   $0x2e,(%rax)
mov    -0xf8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0xf8(%rbp)
movb   $0x66,(%rax)
mov    -0xf8(%rbp),%rax
movb   $0x0,(%rax)
movl   $0x0,-0x1dc(%rbp)
movl   $0x0,-0x1d8(%rbp)
movslq -0x1dc(%rbp),%rax
cmp    $0xa,%rax
jae    18b1 <main+0x6c1>
mov    -0xf8(%rbp),%rax
lea    -0xf0(%rbp),%rcx
sub    %rcx,%rax
movslq -0x1dc(%rbp),%rcx
movslq -0xa0(%rbp,%rcx,4),%rcx
ff
cmp    %rcx,%rax
jg     1839 <main+0x649>
jmp    18b1 <main+0x6c1>
lea    -0xf0(%rbp),%rdi
movslq -0x1dc(%rbp),%rax
mov    -0x70(%rbp,%rax,8),%rsi
movslq -0x1dc(%rbp),%rax
mov    -0xa0(%rbp,%rax,4),%edx
call   1030 <strncmp@plt>
cmp    $0x0,%rax
jne    1898 <main+0x6a8>
movl   $0x1,-0x1d8(%rbp)
lea    -0xf0(%rbp),%rax
movslq -0x1dc(%rbp),%rcx
movslq -0xa0(%rbp,%rcx,4),%rcx
ff
add    %rcx,%rax
mov    %rax,-0xf8(%rbp)
jmp    18b1 <main+0x6c1>
jmp    189d <main+0x6ad>
mov    -0x1dc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1dc(%rbp)
jmp    17fa <main+0x60a>
cmpl   $0x0,-0x1d8(%rbp)
jne    18f0 <main+0x700>
mov    0x2713(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x85a(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x4,-0x1d4(%rbp)
movl   $0x4,-0x4(%rbp)
jmp    1e35 <main+0xc45>
cmpl   $0x0,-0x1e4(%rbp)
jne    195a <main+0x76a>
mov    -0xf8(%rbp),%rdi
lea    0x844(%rip),%rsi
call   1100 <fopen@plt>
mov    %rax,-0x1f8(%rbp)
cmp    $0x0,%rax
jne    195a <main+0x76a>
mov    0x26b0(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
mov    -0xf8(%rbp),%rcx
lea    0x814(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x5,-0x1d4(%rbp)
movl   $0x5,-0x4(%rbp)
jmp    1e35 <main+0xc45>
cmpl   $0x0,-0x1e4(%rbp)
je     19cb <main+0x7db>
lea    -0x1b0(%rbp),%rdi
mov    %rdi,-0xf8(%rbp)
lea    0x694(%rip),%rsi
call   1100 <fopen@plt>
mov    %rax,-0x1f8(%rbp)
cmp    $0x0,%rax
jne    19cb <main+0x7db>
mov    0x263f(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
mov    -0xf8(%rbp),%rcx
lea    0x7be(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x6,-0x1d4(%rbp)
movl   $0x6,-0x4(%rbp)
jmp    1e35 <main+0xc45>
mov    -0x18(%rbp),%rsi
mov    -0xf8(%rbp),%rdx
lea    0x7ac(%rip),%rdi
call   1080 <printf@plt>
jmp    19e7 <main+0x7f7>
jmp    19ec <main+0x7fc>
lea    -0x1b0(%rbp),%rax
cmp    -0xf8(%rbp),%rax
je     1a13 <main+0x823>
lea    -0x1b0(%rbp),%rdi
mov    -0xf8(%rbp),%rsi
call   1050 <strcpy@plt>
cmpl   $0x0,-0x1e4(%rbp)
jne    1b01 <main+0x911>
cmpl   $0x2,-0x1cc(%rbp)
je     1a3a <main+0x84a>
cmpl   $0x3,-0x1cc(%rbp)
jne    1a64 <main+0x874>
mov    -0x1f8(%rbp),%rdi
lea    0x759(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x74b(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
cmpl   $0x1,-0x1cc(%rbp)
je     1a7e <main+0x88e>
cmpl   $0x3,-0x1cc(%rbp)
jne    1afc <main+0x90c>
mov    -0x1f8(%rbp),%rdi
lea    0x722(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x733(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x758(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x6e0(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x754(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    -0x1f8(%rbp),%rdi
lea    0x6b6(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
jmp    1b01 <main+0x911>
mov    -0x1f8(%rbp),%rdi
lea    -0x150(%rbp),%rdx
lea    0x75e(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
lea    -0x150(%rbp),%rax
mov    %rax,-0x158(%rbp)
mov    -0x1bc(%rbp),%edi
mov    -0x1f8(%rbp),%rsi
call   10b0 <putc@plt>
jmp    1bd3 <main+0x9e3>
movsbl -0x1af(%rbp),%eax
cmp    $0x0,%eax
je     1bce <main+0x9de>
cmpl   $0x1,-0x1c4(%rbp)
jne    1b6e <main+0x97e>
movl   $0x0,-0x1e0(%rbp)
jmp    1bc9 <main+0x9d9>
cmpl   $0x8,-0x1c4(%rbp)
jg     1bc4 <main+0x9d4>
mov    -0x1bc(%rbp),%eax
mov    -0x1c4(%rbp),%ecx
sub    $0x2,%ecx
movslq %ecx,%rcx
movsbl -0x1b8(%rbp,%rcx,1),%ecx
ff
cmp    %ecx,%eax
jne    1bc4 <main+0x9d4>
mov    -0x1e0(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1e0(%rbp)
cmp    $0x7,%eax
jne    1bbf <main+0x9cf>
movl   $0x1,-0x1e4(%rbp)
jmp    1bc4 <main+0x9d4>
jmp    1bc9 <main+0x9d9>
jmp    1bce <main+0x9de>
jmp    1bd3 <main+0x9e3>
jmp    1c91 <main+0xaa1>
mov    -0x1bc(%rbp),%edi
mov    -0x1f8(%rbp),%rsi
call   10b0 <putc@plt>
cmpl   $0xa,-0x1bc(%rbp)
jne    1c8c <main+0xa9c>
mov    -0xf8(%rbp),%rax
lea    -0xf0(%rbp),%rcx
sub    %rcx,%rax
cmp    $0x3,%rax
jne    1c8c <main+0xa9c>
lea    -0xf0(%rbp),%rdi
lea    0x657(%rip),%rsi
call   10a0 <strcmp@plt>
cmp    $0x0,%rax
jne    1c8c <main+0xa9c>
mov    -0x1f8(%rbp),%rdi
call   1060 <fclose@plt>
cmp    $0x0,%rax
je     1c77 <main+0xa87>
mov    0x238c(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x621(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x7,-0x1d4(%rbp)
movl   $0x7,-0x4(%rbp)
jmp    1e35 <main+0xc45>
movq   $0x0,-0x1f8(%rbp)
movl   $0x0,-0x1e4(%rbp)
jmp    1c91 <main+0xaa1>
cmpl   $0x9,-0x1bc(%rbp)
jne    1cc7 <main+0xad7>
mov    -0x1c4(%rbp),%eax
add    $0x7,%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
shl    $0x3,%eax
mov    %eax,-0x1c4(%rbp)
movl   $0x1,-0x1e8(%rbp)
jmp    1cf8 <main+0xb08>
cmpl   $0xa,-0x1bc(%rbp)
jne    1cf3 <main+0xb03>
movl   $0x0,-0x1c4(%rbp)
lea    -0xf0(%rbp),%rax
mov    %rax,-0xf8(%rbp)
movb   $0x0,-0xf0(%rbp)
jmp    1cf8 <main+0xb08>
jmp    14bf <main+0x2cf>
cmpq   $0x0,-0x1f8(%rbp)
je     1d72 <main+0xb82>
mov    0x22c6(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x579(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x8,-0x1d4(%rbp)
mov    -0x1f8(%rbp),%rdi
call   1060 <fclose@plt>
cmp    $0x0,%rax
je     1d6d <main+0xb7d>
mov    0x228a(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x51f(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0x9,-0x1d4(%rbp)
jmp    1d72 <main+0xb82>
mov    -0x1f0(%rbp),%rdi
call   1060 <fclose@plt>
cmp    $0x0,%rax
je     1dae <main+0xbbe>
mov    0x2249(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x526(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0xa,-0x1d4(%rbp)
cmpl   $0x0,-0x1e8(%rbp)
je     1de1 <main+0xbf1>
mov    0x2216(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x511(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0xb,-0x1d4(%rbp)
cmpl   $0x0,-0x1d0(%rbp)
je     1e2c <main+0xc3c>
mov    0x21e3(%rip),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rdx
lea    0x507(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
mov    0x21c7(%rip),%rax
mov    (%rax),%rdi
lea    0x508(%rip),%rsi
mov    $0x0,%al
call   10c0 <fprintf@plt>
movl   $0xc,-0x1d4(%rbp)
mov    -0x1d4(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x200,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1b8,%rsp
mov    %rsi,%rbp
mov    %edi,%ebx
lea    0xde3(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,%r12d
lea    0xe04(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,%r14d
lea    0xdcd(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,%r15d
lea    0xdc8(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x5c(%rsp)
lea    0xdc3(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x58(%rsp)
lea    0xdc0(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x54(%rsp)
lea    0xdbf(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x50(%rsp)
lea    0xdbf(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x4c(%rsp)
lea    0xdbf(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x48(%rsp)
lea    0xdc1(%rip),%rdi
call   1070 <strlen@plt>
mov    %eax,0x44(%rsp)
movb   $0x0,0x111(%rsp)
mov    0x0(%rbp),%r13
lea    -0x4(%rbx),%eax
cmp    $0xfffffffd,%eax
ja     1300 <main+0x100>
mov    0x2d0a(%rip),%rbx
mov    (%rbx),%rdi
lea    0xdb3(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    (%rbx),%rdi
lea    0xdbf(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x1,%ebp
jmp    1d2a <main+0xb2a>
cmp    $0x3,%ebx
jne    1389 <main+0x189>
mov    0x8(%rbp),%rdi
add    $0x8,%rbp
lea    0xdc7(%rip),%rsi
call   10b0 <strcmp@plt>
test   %rax,%rax
je     139b <main+0x19b>
mov    0x0(%rbp),%rdi
lea    0xdb7(%rip),%rsi
call   10b0 <strcmp@plt>
test   %rax,%rax
je     13b3 <main+0x1b3>
mov    0x0(%rbp),%rdi
lea    0xdad(%rip),%rsi
call   10b0 <strcmp@plt>
test   %rax,%rax
je     13c0 <main+0x1c0>
mov    0x2c85(%rip),%rbx
mov    (%rbx),%rdi
mov    0x0(%rbp),%rcx
lea    0xd94(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    (%rbx),%rdi
lea    0xd36(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x2,%ebp
jmp    1d2a <main+0xb2a>
mov    %r12d,0x18(%rsp)
mov    $0x1,%r12b
movl   $0x0,0x14(%rsp)
jmp    13d0 <main+0x1d0>
mov    %r12d,0x18(%rsp)
mov    $0x1,%al
mov    %eax,0x10(%rsp)
movl   $0x0,0x14(%rsp)
xor    %r12d,%r12d
jmp    13d8 <main+0x1d8>
mov    %r12d,0x18(%rsp)
mov    $0x1,%al
mov    %eax,0x14(%rsp)
jmp    13cd <main+0x1cd>
mov    %r12d,0x18(%rsp)
movl   $0x0,0x14(%rsp)
xor    %r12d,%r12d
movl   $0x0,0x10(%rsp)
mov    0x8(%rbp),%rdi
lea    0xd48(%rip),%rsi
call   1100 <fopen@plt>
test   %rax,%rax
je     1c0d <main+0xa0d>
mov    %rax,%rbx
mov    %r15d,0x40(%rsp)
mov    %rax,%rdi
call   1120 <getc@plt>
mov    %eax,%r15d
mov    0x2bdd(%rip),%rax
movl   $0x0,0x2c(%rsp)
movl   $0x0,0x28(%rsp)
mov    $0x0,%ebp
cmp    (%rax),%r15d
je     1c96 <main+0xa96>
mov    %r13,0x20(%rsp)
lea    0x160(%rsp),%rcx
lea    0xc0(%rsp),%r13
mov    0x14(%rsp),%eax
or     %r12b,%al
mov    %eax,0x14(%rsp)
mov    0x10(%rsp),%eax
or     %r12b,%al
mov    %eax,0x10(%rsp)
movslq 0x18(%rsp),%rax
mov    %rax,0xb8(%rsp)
mov    %r14d,0x6c(%rsp)
movslq %r14d,%rax
mov    %rax,0xb0(%rsp)
movslq 0x40(%rsp),%rax
mov    %rax,0xa8(%rsp)
movslq 0x5c(%rsp),%rax
mov    %rax,0xa0(%rsp)
movslq 0x58(%rsp),%rax
mov    %rax,0x98(%rsp)
movslq 0x54(%rsp),%rax
mov    %rax,0x90(%rsp)
movslq 0x50(%rsp),%rax
mov    %rax,0x88(%rsp)
movslq 0x4c(%rsp),%rax
mov    %rax,0x80(%rsp)
movslq 0x48(%rsp),%rax
mov    %rax,0x78(%rsp)
movslq 0x44(%rsp),%rax
mov    %rax,0x70(%rsp)
xor    %r14d,%r14d
movl   $0x0,0x2c(%rsp)
movl   $0x0,0x1c(%rsp)
mov    %rax,0x60(%rsp)
movl   $0x0,0x28(%rsp)
xor    %ebp,%ebp
mov    %rcx,0x30(%rsp)
mov    %rbx,0x38(%rsp)
jmp    153d <main+0x33d>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
lea    0xc0(%rsp),%r13
movb   $0x0,0xc0(%rsp)
xor    %ebp,%ebp
mov    %rbx,%rdi
call   1120 <getc@plt>
mov    %eax,%r15d
mov    0x2ab4(%rip),%rax
cmp    (%rax),%r15d
je     1c36 <main+0xa36>
test   %ebp,%ebp
je     1570 <main+0x370>
cmp    $0x5,%ebp
jg     1590 <main+0x390>
mov    %r15d,%edi
call   10a0 <isspace@plt>
test   %rax,%rax
mov    $0x0,%eax
mov    0xc(%rsp),%ecx
cmove  %eax,%ecx
mov    %ecx,0xc(%rsp)
jmp    15df <main+0x3df>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r15d,%eax
and    $0xffffffdf,%eax
xor    %r12d,%r12d
cmp    $0x43,%eax
sete   %bl
jne    15b5 <main+0x3b5>
xor    %eax,%eax
jmp    15c3 <main+0x3c3>
cs nopw 0x0(%rax,%rax,1)
nop
cmp    $0x48,%ebp
jb     16b5 <main+0x4b5>
cmp    $0xa,%r15d
je     16b5 <main+0x4b5>
movl   $0x0,0xc(%rsp)
movl   $0x1,0x28(%rsp)
jmp    15df <main+0x3df>
mov    %r15d,%edi
call   10a0 <isspace@plt>
test   %rax,%rax
setne  %al
mov    %bl,%r12b
movzbl %al,%eax
mov    %eax,0xc(%rsp)
lea    0x160(%rsp),%rax
mov    %rax,0x30(%rsp)
mov    0x38(%rsp),%rbx
test   %r14,%r14
je     1650 <main+0x450>
mov    %r15d,%edi
mov    %r14,%rsi
call   10c0 <putc@plt>
cmp    $0xa,%r15d
jne    1780 <main+0x580>
mov    %rbp,%rcx
mov    %r14,%rbp
mov    %rbx,%r14
mov    %r12d,%ebx
mov    %r13,%rax
lea    0xc0(%rsp),%r12
sub    %r12,%rax
cmp    $0x3,%rax
jne    1707 <main+0x507>
mov    %r12,%rdi
lea    0xc4d(%rip),%rsi
call   10b0 <strcmp@plt>
test   %rax,%rax
mov    %r12,%r13
je     174c <main+0x54c>
mov    %ebx,%r12d
mov    %r14,%rbx
mov    %rbp,%r14
jmp    1518 <main+0x318>
cs nopw 0x0(%rax,%rax,1)
test   %r12d,%r12d
je     171e <main+0x51e>
cmpb   $0x0,0x111(%rsp)
je     173e <main+0x53e>
test   %ebp,%ebp
je     1773 <main+0x573>
cmp    $0x7,%ebp
jg     173e <main+0x53e>
movslq %ebp,%rax
lea    0xa01(%rip),%rcx
movsbl -0x1(%rax,%rcx,1),%eax
cmp    %eax,%r15d
jne    173e <main+0x53e>
mov    0x60(%rsp),%rax
add    $0x1,%eax
mov    %rax,0x60(%rsp)
cmp    $0x7,%eax
mov    $0x1,%eax
mov    0x1c(%rsp),%ecx
cmove  %eax,%ecx
mov    %ecx,0x1c(%rsp)
jmp    173e <main+0x53e>
cmpl   $0x0,0xc(%rsp)
je     1bc6 <main+0x9c6>
cmp    $0x9,%r15d
je     15df <main+0x3df>
cmp    $0x20,%r15d
je     15df <main+0x3df>
mov    %r15d,%edi
call   10f0 <isalpha@plt>
test   %rax,%rax
je     1b81 <main+0x981>
mov    %r15d,%edi
call   10e0 <tolower@plt>
mov    %al,0x0(%r13)
movb   $0x0,0x1(%r13)
add    $0x1,%r13
movl   $0x1,0xc(%rsp)
jmp    15df <main+0x3df>
mov    %ebx,%r12d
mov    %r14,%rbx
mov    %rbp,%r14
mov    %rcx,%rbp
cmp    $0xa,%r15d
jne    178a <main+0x58a>
jmp    1510 <main+0x310>
cmpl   $0x0,0xc(%rsp)
je     17b8 <main+0x5b8>
mov    0x30(%rsp),%rax
mov    %r15b,(%rax)
movb   $0x0,0x1(%rax)
add    $0x1,%rax
mov    %rax,0x30(%rsp)
xor    %r14d,%r14d
cmp    $0xa,%r15d
jne    178a <main+0x58a>
jmp    1510 <main+0x310>
mov    %rbp,%rdi
call   1060 <fclose@plt>
test   %rax,%rax
jne    1d62 <main+0xb62>
mov    %ebx,%r12d
movl   $0x0,0x1c(%rsp)
mov    %r14,%rbx
xor    %r14d,%r14d
jmp    1518 <main+0x318>
xor    %eax,%eax
mov    %rax,0x60(%rsp)
xor    %r14d,%r14d
nopl   (%rax)
cmp    $0xa,%r15d
je     1510 <main+0x310>
cmp    $0x9,%r15d
jne    17b0 <main+0x5b0>
lea    0x8(%rbp),%eax
add    $0xf,%ebp
test   %eax,%eax
cmovns %eax,%ebp
and    $0xfffffff8,%ebp
movl   $0x1,0x2c(%rsp)
jmp    1522 <main+0x322>
nopl   0x0(%rax,%rax,1)
add    $0x1,%ebp
jmp    1522 <main+0x322>
movw   $0x662e,0x0(%r13)
movb   $0x0,0x2(%r13)
lea    0xc0(%rsp),%rcx
mov    %rcx,%rax
neg    %rax
lea    (%rax,%r13,1),%r14
add    $0x2,%r14
cmp    0xb8(%rsp),%r14
mov    0x18(%rsp),%edx
mov    0x6c(%rsp),%ebx
jle    1d3e <main+0xb3e>
mov    %rcx,%r13
mov    %rcx,%rdi
lea    0x803(%rip),%rsi
call   1030 <strncmp@plt>
mov    0xb8(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0xb0(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x805(%rip),%rsi
mov    %ebx,%edx
call   1030 <strncmp@plt>
mov    0xb0(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0xa8(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x7ad(%rip),%rsi
mov    0x40(%rsp),%edx
call   1030 <strncmp@plt>
mov    0xa8(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0xa0(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x785(%rip),%rsi
mov    0x5c(%rsp),%edx
call   1030 <strncmp@plt>
mov    0xa0(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x98(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x75e(%rip),%rsi
mov    0x58(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x98(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x90(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x739(%rip),%rsi
mov    0x54(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x90(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x88(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x716(%rip),%rsi
mov    0x50(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x88(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x80(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x6f4(%rip),%rsi
mov    0x4c(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x80(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x78(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x6d9(%rip),%rsi
mov    0x48(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x78(%rsp),%rcx
test   %rax,%rax
je     19bf <main+0x7bf>
cmp    0x70(%rsp),%r14
jle    1d3e <main+0xb3e>
mov    %r13,%rdi
lea    0x6c3(%rip),%rsi
mov    0x44(%rsp),%edx
call   1030 <strncmp@plt>
mov    0x70(%rsp),%rcx
test   %rax,%rax
jne    1d3e <main+0xb3e>
cmpl   $0x0,0x1c(%rsp)
je     1a07 <main+0x807>
lea    0x110(%rsp),%r13
mov    %r13,%rdi
lea    0x638(%rip),%rsi
call   1100 <fopen@plt>
test   %rax,%rax
je     1d86 <main+0xb86>
mov    %rax,%r14
lea    0x799(%rip),%rdi
mov    0x20(%rsp),%rsi
mov    %r13,%rdx
call   1080 <printf@plt>
mov    0x38(%rsp),%rbx
jmp    1b4a <main+0x94a>
lea    (%rsp,%rcx,1),%r13
add    $0xc0,%r13
mov    %r13,%rdi
lea    0x733(%rip),%rsi
call   1100 <fopen@plt>
test   %rax,%rax
je     1db5 <main+0xbb5>
mov    %rax,%r14
lea    0x755(%rip),%rdi
mov    0x20(%rsp),%rsi
mov    %r13,%rdx
call   1080 <printf@plt>
lea    0x110(%rsp),%rdi
cmp    %r13,%rdi
je     1a56 <main+0x856>
mov    %r13,%rsi
call   1050 <strcpy@plt>
cmpb   $0x0,0x14(%rsp)
mov    0x38(%rsp),%rbx
je     1a94 <main+0x894>
mov    $0x6,%esi
mov    $0x1,%edx
lea    0x72e(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x5,%esi
mov    $0x1,%edx
lea    0x71c(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
cmpb   $0x0,0x10(%rsp)
je     1b4a <main+0x94a>
mov    $0x25,%esi
mov    $0x1,%edx
lea    0x6fe(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x39,%esi
mov    $0x1,%edx
lea    0x70b(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x25,%esi
mov    $0x1,%edx
lea    0x72c(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x2,%esi
mov    $0x1,%edx
mov    %rbp,0x30(%rsp)
mov    %rbx,%rbp
mov    %r12d,%ebx
lea    0x6a5(%rip),%r12
mov    %r12,%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x3f,%esi
mov    $0x1,%edx
lea    0x712(%rip),%rdi
mov    %r14,%rcx
call   1110 <fwrite@plt>
mov    $0x2,%esi
mov    $0x1,%edx
mov    %r12,%rdi
mov    %ebx,%r12d
mov    %rbp,%rbx
mov    0x30(%rsp),%rbp
mov    %r14,%rcx
call   1110 <fwrite@plt>
lea    0x160(%rsp),%rdi
mov    %r14,%rsi
call   1090 <fputs@plt>
mov    %r15d,%edi
mov    %r14,%rsi
call   10c0 <putc@plt>
lea    0x160(%rsp),%rax
mov    %rax,0x30(%rsp)
cmp    $0xa,%r15d
jne    178a <main+0x58a>
jmp    1510 <main+0x310>
mov    %r13,%rax
lea    0xc0(%rsp),%rcx
sub    %rcx,%rax
je     1bd3 <main+0x9d3>
cmp    $0x9,%rax
jne    1bb0 <main+0x9b0>
lea    0xc0(%rsp),%rdi
lea    0x57d(%rip),%rsi
call   10b0 <strcmp@plt>
test   %rax,%rax
je     1be8 <main+0x9e8>
mov    %r15d,%edi
call   1040 <isdigit@plt>
test   %rax,%rax
je     1bc6 <main+0x9c6>
mov    %r15b,0x0(%r13)
jmp    16f1 <main+0x4f1>
movl   $0x0,0xc(%rsp)
jmp    15df <main+0x3df>
xor    %eax,%eax
cmp    $0xa,%r15d
sete   %al
mov    %eax,0xc(%rsp)
mov    %rcx,%r13
jmp    15df <main+0x3df>
movl   $0x1,0xc(%rsp)
cmp    $0x2a,%r15d
je     15df <main+0x3df>
mov    %r15d,%edi
call   1040 <isdigit@plt>
test   %rax,%rax
jne    15df <main+0x3df>
jmp    1bb0 <main+0x9b0>
mov    0x23c4(%rip),%rax
mov    (%rax),%rdi
mov    0x8(%rbp),%rcx
lea    0x4eb(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x3,%ebp
jmp    1d2a <main+0xb2a>
test   %r14,%r14
je     1c83 <main+0xa83>
mov    0x2396(%rip),%rbx
mov    (%rbx),%rdi
lea    0x64a(%rip),%rsi
mov    0x20(%rsp),%r13
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    %r14,%rdi
call   1060 <fclose@plt>
test   %rax,%rax
je     1c8c <main+0xa8c>
mov    (%rbx),%rdi
lea    0x606(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x9,%ebp
jmp    1c91 <main+0xa91>
xor    %ebp,%ebp
mov    0x20(%rsp),%r13
jmp    1c96 <main+0xa96>
mov    $0x8,%ebp
mov    0x38(%rsp),%rbx
mov    %rbx,%rdi
call   1060 <fclose@plt>
test   %rax,%rax
je     1cc3 <main+0xac3>
mov    0x232e(%rip),%rax
mov    (%rax),%rdi
lea    0x60c(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0xa,%ebp
cmpl   $0x0,0x2c(%rsp)
je     1cea <main+0xaea>
mov    0x2307(%rip),%rax
mov    (%rax),%rdi
lea    0x603(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0xb,%ebp
cmpl   $0x0,0x28(%rsp)
je     1d2a <main+0xb2a>
mov    0x22e0(%rip),%rbx
mov    (%rbx),%rdi
lea    0x605(%rip),%rsi
mov    %r13,%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    (%rbx),%rcx
lea    0x60a(%rip),%rdi
mov    $0x2f,%esi
mov    $0x1,%edx
call   1110 <fwrite@plt>
mov    $0xc,%ebp
mov    %ebp,%eax
add    $0x1b8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    0x2293(%rip),%rax
mov    (%rax),%rdi
lea    0x3de(%rip),%rsi
mov    0x20(%rsp),%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x4,%ebp
jmp    1d2a <main+0xb2a>
mov    0x226f(%rip),%rax
mov    (%rax),%rdi
lea    0x505(%rip),%rsi
mov    0x20(%rsp),%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x7,%ebp
jmp    1d2a <main+0xb2a>
mov    0x224b(%rip),%rax
mov    (%rax),%rdi
lea    0x3d5(%rip),%rsi
lea    0x110(%rsp),%rcx
mov    0x20(%rsp),%rdx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x6,%ebp
jmp    1d2a <main+0xb2a>
mov    0x221c(%rip),%rax
mov    (%rax),%rdi
lea    0x38b(%rip),%rsi
mov    0x20(%rsp),%rdx
mov    %r13,%rcx
xor    %eax,%eax
call   10d0 <fprintf@plt>
mov    $0x5,%ebp
jmp    1d2a <main+0xb2a>

LLVM IR (-O0):
@.str = [8 x i8] c"program\00"
@.str.1 = [9 x i8] c"function\00"
@.str.2 = [10 x i8] c"blockdata\00"
@.str.3 = [11 x i8] c"subroutine\00"
@.str.4 = [13 x i8] c"realfunction\00"
@.str.5 = [15 x i8] c"doublefunction\00"
@.str.6 = [16 x i8] c"integerfunction\00"
@.str.7 = [16 x i8] c"logicalfunction\00"
@.str.8 = [18 x i8] c"characterfunction\00"
@.str.9 = [24 x i8] c"doubleprecisionfunction\00"
@__const.main.type = [10 x i8*] [i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i32 0, i32 0), i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i32 0, i32 0), i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i32 0, i32 0), i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.3, i32 0, i32 0), i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i32 0, i32 0), i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.5, i32 0, i32 0), i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.6, i32 0, i32 0), i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.7, i32 0, i32 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.8, i32 0, i32 0), i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.9, i32 0, i32 0)]
@__const.main.nscode = [8 x i8] c"NOSPLIT\00"
@stderr = global i32* null
@.str.10 = [32 x i8] c"%s: Wrong number of arguments.\0A\00"
@.str.11 = [52 x i8] c"Use \22%s [-cvs|-copyright|-both] source_file_name\22.\0A\00"
@.str.12 = [5 x i8] c"-cvs\00"
@.str.13 = [11 x i8] c"-copyright\00"
@.str.14 = [6 x i8] c"-both\00"
@.str.15 = [24 x i8] c"%s: Bad argument \22%s\22.\0A\00"
@.str.16 = [2 x i8] c"r\00"
@.str.17 = [22 x i8] c"%s: Can't open \22%s\22.\0A\00"
@EOF = global i32 0
@.str.18 = [10 x i8] c"character\00"
@.str.19 = [34 x i8] c"%s: Can't find output file name.\0A\00"
@.str.20 = [2 x i8] c"w\00"
@.str.21 = [27 x i8] c"%s: Can't open file \22%s\22.\0A\00"
@.str.22 = [2 x i8] c"a\00"
@.str.23 = [29 x i8] c"%s: Can't reopen file \22%s\22.\0A\00"
@.str.24 = [24 x i8] c"%s: Opening file \22%s\22.\0A\00"
@.str.25 = [7 x i8] c"C\0AC $I\00"
@.str.26 = [6 x i8] c"d$\0AC\0A\00"
@.str.27 = [38 x i8] c"C Copyright (C) 2000\0A\00"
@.str.28 = [58 x i8] c"C University Corporation for Atmospheric Research\0A\00"
@.str.29 = [38 x i8] c"C All Rights Reserved\0A\00"
@.str.30 = [3 x i8] c"C\0A\00"
@.str.31 = [64 x i8] c"C The use of this Software is governed by a License Agreement.\0A\00"
@.str.32 = [3 x i8] c"%s\00"
@.str.33 = [4 x i8] c"end\00"
@.str.34 = [30 x i8] c"%s: Can't close output file.\0A\00"
@.str.35 = [42 x i8] c"%s: No \22END\22 statement in final routine.\0A\00"
@.str.36 = [30 x i8] c"%s: Can't close source file.\0A\00"
@.str.37 = [41 x i8] c"%s: There were tabs in the source file.\0A\00"
@.str.38 = [25 x i8] c"%s: There were non-blank\00"
@.str.39 = [48 x i8] c" characters past column 72 in the source file.\0A\00"
define i32 @main(i32 %0, i8** %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8**
%6 = alloca i8*
%7 = alloca [10 x i8*]
%8 = alloca [10 x i32]
%9 = alloca [73 x i8]
%10 = alloca i8*
%11 = alloca [73 x i8]
%12 = alloca i8*
%13 = alloca [73 x i8]
%14 = alloca [8 x i8]
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
%21 = alloca i32
%22 = alloca i32
%23 = alloca i32
%24 = alloca i32
%25 = alloca i32
%26 = alloca i32
%27 = alloca i32*
%28 = alloca i32*
store i32 0, i32* %3
store i32 %0, i32* %4
store i8** %1, i8*** %5
%29 = bitcast [10 x i8*]* %7 to i8*
%30 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
store i8* %30, i8** %10
%31 = getelementptr inbounds [73 x i8], [73 x i8]* %11, i64 0, i64 0
store i8* %31, i8** %12
%32 = bitcast [8 x i8]* %14 to i8*
store i32 0, i32* %17
store i32 3, i32* %19
store i32 0, i32* %20
store i32 0, i32* %21
store i32 0, i32* %25
store i32 0, i32* %26
store i32 0, i32* %23
br label %33
33: ; preds = %46, %2
%34 = load i32, i32* %23
%35 = sext i32 %34 to i64
%36 = icmp ult i64 %35, 10
br i1 %36, label %37, label %49
37: ; preds = %33
%38 = load i32, i32* %23
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds [10 x i8*], [10 x i8*]* %7, i64 0, i64 %39
%41 = load i8*, i8** %40
%42 = call i32 @strlen(i8* %41)
%43 = load i32, i32* %23
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds [10 x i32], [10 x i32]* %8, i64 0, i64 %44
store i32 %42, i32* %45
br label %46
46: ; preds = %37
%47 = load i32, i32* %23
%48 = add nsw i32 %47, 1
store i32 %48, i32* %23
br label %33
49: ; preds = %33
%50 = getelementptr inbounds [73 x i8], [73 x i8]* %13, i64 0, i64 1
store i8 0, i8* %50
%51 = load i8**, i8*** %5
%52 = load i8*, i8** %51
store i8* %52, i8** %6
%53 = load i32, i32* %4
%54 = icmp slt i32 %53, 2
br i1 %54, label %58, label %55
55: ; preds = %49
%56 = load i32, i32* %4
%57 = icmp sgt i32 %56, 3
br i1 %57, label %58, label %65
58: ; preds = %55, %49
%59 = load i32*, i32** @stderr
%60 = load i8*, i8** %6
%61 = call i32 (i32*, i8*, ...) @fprintf(i32* %59, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.10, i64 0, i64 0), i8* %60)
%62 = load i32*, i32** @stderr
%63 = load i8*, i8** %6
%64 = call i32 (i32*, i8*, ...) @fprintf(i32* %62, i8* getelementptr inbounds ([52 x i8], [52 x i8]* @.str.11, i64 0, i64 0), i8* %63)
store i32 1, i32* %21
store i32 1, i32* %3
br label %486
65: ; preds = %55
%66 = load i32, i32* %4
%67 = icmp eq i32 %66, 3
br i1 %67, label %68, label %99
68: ; preds = %65
%69 = load i8**, i8*** %5
%70 = getelementptr inbounds i8*, i8** %69, i32 1
store i8** %70, i8*** %5
%71 = load i8*, i8** %70
%72 = call i64 @strcmp(i8* %71, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.12, i64 0, i64 0))
%73 = icmp eq i64 %72, 0
br i1 %73, label %74, label %75
74: ; preds = %68
store i32 1, i32* %19
br label %98
75: ; preds = %68
%76 = load i8**, i8*** %5
%77 = load i8*, i8** %76
%78 = call i64 @strcmp(i8* %77, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.13, i64 0, i64 0))
%79 = icmp eq i64 %78, 0
br i1 %79, label %80, label %81
80: ; preds = %75
store i32 2, i32* %19
br label %97
81: ; preds = %75
%82 = load i8**, i8*** %5
%83 = load i8*, i8** %82
%84 = call i64 @strcmp(i8* %83, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.14, i64 0, i64 0))
%85 = icmp eq i64 %84, 0
br i1 %85, label %86, label %87
86: ; preds = %81
store i32 0, i32* %19
br label %96
87: ; preds = %81
%88 = load i32*, i32** @stderr
%89 = load i8*, i8** %6
%90 = load i8**, i8*** %5
%91 = load i8*, i8** %90
%92 = call i32 (i32*, i8*, ...) @fprintf(i32* %88, i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.15, i64 0, i64 0), i8* %89, i8* %91)
%93 = load i32*, i32** @stderr
%94 = load i8*, i8** %6
%95 = call i32 (i32*, i8*, ...) @fprintf(i32* %93, i8* getelementptr inbounds ([52 x i8], [52 x i8]* @.str.11, i64 0, i64 0), i8* %94)
store i32 2, i32* %21
store i32 2, i32* %3
br label %486
96: ; preds = %86
br label %97
97: ; preds = %96, %80
br label %98
98: ; preds = %97, %74
br label %99
99: ; preds = %98, %65
br label %100
100: ; preds = %99
%101 = load i8**, i8*** %5
%102 = getelementptr inbounds i8*, i8** %101, i32 1
store i8** %102, i8*** %5
%103 = load i8*, i8** %102
%104 = call i32* @fopen(i8* %103, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.16, i64 0, i64 0))
store i32* %104, i32** %27
%105 = icmp eq i32* %104, null
br i1 %105, label %106, label %112
106: ; preds = %100
%107 = load i32*, i32** @stderr
%108 = load i8*, i8** %6
%109 = load i8**, i8*** %5
%110 = load i8*, i8** %109
%111 = call i32 (i32*, i8*, ...) @fprintf(i32* %107, i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.str.17, i64 0, i64 0), i8* %108, i8* %110)
store i32 3, i32* %21
store i32 3, i32* %3
br label %486
112: ; preds = %100
store i32* null, i32** %28
br label %113
113: ; preds = %444, %112
%114 = load i32*, i32** %27
%115 = call i32 @getc(i32* %114)
store i32 %115, i32* %15
%116 = load i32, i32* @EOF
%117 = icmp ne i32 %115, %116
br i1 %117, label %118, label %445
118: ; preds = %113
%119 = load i32, i32* %17
%120 = add nsw i32 %119, 1
store i32 %120, i32* %17
%121 = load i32, i32* %17
%122 = icmp eq i32 %121, 1
br i1 %122, label %123, label %140
123: ; preds = %118
%124 = load i32, i32* %15
%125 = icmp eq i32 %124, 99
br i1 %125, label %129, label %126
126: ; preds = %123
%127 = load i32, i32* %15
%128 = icmp eq i32 %127, 67
br label %129
129: ; preds = %126, %123
%130 = phi i1 [ true, %123 ], [ %128, %126 ]
%131 = zext i1 %130 to i32
store i32 %131, i32* %18
br i1 %130, label %136, label %132
132: ; preds = %129
%133 = load i32, i32* %15
%134 = call i64 @isspace(i32 %133)
%135 = icmp ne i64 %134, 0
br label %136
136: ; preds = %132, %129
%137 = phi i1 [ false, %129 ], [ %135, %132 ]
%138 = zext i1 %137 to i32
store i32 %138, i32* %16
%139 = getelementptr inbounds [73 x i8], [73 x i8]* %11, i64 0, i64 0
store i8* %139, i8** %12
br label %222
140: ; preds = %118
%141 = load i32, i32* %17
%142 = icmp slt i32 %141, 7
br i1 %142, label %143, label %149
143: ; preds = %140
%144 = load i32, i32* %15
%145 = call i64 @isspace(i32 %144)
%146 = icmp ne i64 %145, 0
br i1 %146, label %148, label %147
147: ; preds = %143
store i32 0, i32* %16
br label %148
148: ; preds = %147, %143
br label %221
149: ; preds = %140
%150 = load i32, i32* %17
%151 = icmp sgt i32 %150, 72
br i1 %151, label %152, label %156
152: ; preds = %149
%153 = load i32, i32* %15
%154 = icmp ne i32 %153, 10
br i1 %154, label %155, label %156
155: ; preds = %152
store i32 0, i32* %16
store i32 1, i32* %20
br label %220
156: ; preds = %152, %149
%157 = load i32, i32* %16
%158 = icmp ne i32 %157, 0
br i1 %158, label %159, label %219
159: ; preds = %156
%160 = load i32, i32* %15
%161 = icmp ne i32 %160, 32
br i1 %161, label %162, label %219
162: ; preds = %159
%163 = load i32, i32* %15
%164 = icmp ne i32 %163, 9
br i1 %164, label %165, label %219
165: ; preds = %162
%166 = load i32, i32* %15
%167 = call i64 @isalpha(i32 %166)
%168 = icmp ne i64 %167, 0
br i1 %168, label %169, label %176
169: ; preds = %165
%170 = load i32, i32* %15
%171 = call i32 @tolower(i32 %170)
%172 = trunc i32 %171 to i8
%173 = load i8*, i8** %10
%174 = getelementptr inbounds i8, i8* %173, i32 1
store i8* %174, i8** %10
store i8 %172, i8* %173
%175 = load i8*, i8** %10
store i8 0, i8* %175
br label %218
176: ; preds = %165
%177 = load i8*, i8** %10
%178 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%179 = icmp ne i8* %177, %178
br i1 %179, label %180, label %212
180: ; preds = %176
%181 = load i8*, i8** %10
%182 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%183 = ptrtoint i8* %181 to i64
%184 = ptrtoint i8* %182 to i64
%185 = sub i64 %183, %184
%186 = icmp eq i64 %185, 9
br i1 %186, label %187, label %199
187: ; preds = %180
%188 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%189 = call i64 @strcmp(i8* %188, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.18, i64 0, i64 0))
%190 = icmp eq i64 %189, 0
br i1 %190, label %191, label %199
191: ; preds = %187
%192 = load i32, i32* %15
%193 = icmp eq i32 %192, 42
br i1 %193, label %198, label %194
194: ; preds = %191
%195 = load i32, i32* %15
%196 = call i64 @isdigit(i32 %195)
%197 = icmp ne i64 %196, 0
br i1 %197, label %198, label %199
198: ; preds = %194, %191
br label %211
199: ; preds = %194, %187, %180
%200 = load i32, i32* %15
%201 = call i64 @isdigit(i32 %200)
%202 = icmp ne i64 %201, 0
br i1 %202, label %203, label %209
203: ; preds = %199
%204 = load i32, i32* %15
%205 = trunc i32 %204 to i8
%206 = load i8*, i8** %10
%207 = getelementptr inbounds i8, i8* %206, i32 1
store i8* %207, i8** %10
store i8 %205, i8* %206
%208 = load i8*, i8** %10
store i8 0, i8* %208
br label %210
209: ; preds = %199
store i32 0, i32* %16
br label %210
210: ; preds = %209, %203
br label %211
211: ; preds = %210, %198
br label %217
212: ; preds = %176
%213 = load i32, i32* %15
%214 = icmp ne i32 %213, 10
br i1 %214, label %215, label %216
215: ; preds = %212
store i32 0, i32* %16
br label %216
216: ; preds = %215, %212
br label %217
217: ; preds = %216, %211
br label %218
218: ; preds = %217, %169
br label %219
219: ; preds = %218, %162, %159, %156
br label %220
220: ; preds = %219, %155
br label %221
221: ; preds = %220, %148
br label %222
222: ; preds = %221, %136
%223 = load i32*, i32** %28
%224 = icmp eq i32* %223, null
br i1 %224, label %225, label %403
225: ; preds = %222
%226 = load i32, i32* %18
%227 = icmp ne i32 %226, 0
br i1 %227, label %372, label %228
228: ; preds = %225
%229 = load i32, i32* %16
%230 = icmp ne i32 %229, 0
br i1 %230, label %231, label %237
231: ; preds = %228
%232 = load i32, i32* %15
%233 = trunc i32 %232 to i8
%234 = load i8*, i8** %12
%235 = getelementptr inbounds i8, i8* %234, i32 1
store i8* %235, i8** %12
store i8 %233, i8* %234
%236 = load i8*, i8** %12
store i8 0, i8* %236
br label %371
237: ; preds = %228
%238 = load i8*, i8** %10
%239 = getelementptr inbounds i8, i8* %238, i32 1
store i8* %239, i8** %10
store i8 46, i8* %238
%240 = load i8*, i8** %10
%241 = getelementptr inbounds i8, i8* %240, i32 1
store i8* %241, i8** %10
store i8 102, i8* %240
%242 = load i8*, i8** %10
store i8 0, i8* %242
store i32 0, i32* %23
store i32 0, i32* %22
br label %243
243: ; preds = %281, %237
%244 = load i32, i32* %23
%245 = sext i32 %244 to i64
%246 = icmp ult i64 %245, 10
br i1 %246, label %247, label %284
247: ; preds = %243
%248 = load i8*, i8** %10
%249 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%250 = ptrtoint i8* %248 to i64
%251 = ptrtoint i8* %249 to i64
%252 = sub i64 %250, %251
%253 = load i32, i32* %23
%254 = sext i32 %253 to i64
%255 = getelementptr inbounds [10 x i32], [10 x i32]* %8, i64 0, i64 %254
%256 = load i32, i32* %255
%257 = sext i32 %256 to i64
%258 = icmp sle i64 %252, %257
br i1 %258, label %259, label %260
259: ; preds = %247
br label %284
260: ; preds = %247
%261 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%262 = load i32, i32* %23
%263 = sext i32 %262 to i64
%264 = getelementptr inbounds [10 x i8*], [10 x i8*]* %7, i64 0, i64 %263
%265 = load i8*, i8** %264
%266 = load i32, i32* %23
%267 = sext i32 %266 to i64
%268 = getelementptr inbounds [10 x i32], [10 x i32]* %8, i64 0, i64 %267
%269 = load i32, i32* %268
%270 = call i64 @strncmp(i8* %261, i8* %265, i32 %269)
%271 = icmp eq i64 %270, 0
br i1 %271, label %272, label %280
272: ; preds = %260
store i32 1, i32* %22
%273 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%274 = load i32, i32* %23
%275 = sext i32 %274 to i64
%276 = getelementptr inbounds [10 x i32], [10 x i32]* %8, i64 0, i64 %275
%277 = load i32, i32* %276
%278 = sext i32 %277 to i64
%279 = getelementptr inbounds i8, i8* %273, i64 %278
store i8* %279, i8** %10
br label %284
280: ; preds = %260
br label %281
281: ; preds = %280
%282 = load i32, i32* %23
%283 = add nsw i32 %282, 1
store i32 %283, i32* %23
br label %243
284: ; preds = %272, %259, %243
%285 = load i32, i32* %22
%286 = icmp ne i32 %285, 0
br i1 %286, label %291, label %287
287: ; preds = %284
%288 = load i32*, i32** @stderr
%289 = load i8*, i8** %6
%290 = call i32 (i32*, i8*, ...) @fprintf(i32* %288, i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str.19, i64 0, i64 0), i8* %289)
store i32 4, i32* %21
store i32 4, i32* %3
br label %486
291: ; preds = %284
%292 = load i32, i32* %25
%293 = icmp ne i32 %292, 0
br i1 %293, label %303, label %294
294: ; preds = %291
%295 = load i8*, i8** %10
%296 = call i32* @fopen(i8* %295, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.20, i64 0, i64 0))
store i32* %296, i32** %28
%297 = icmp eq i32* %296, null
br i1 %297, label %298, label %303
298: ; preds = %294
%299 = load i32*, i32** @stderr
%300 = load i8*, i8** %6
%301 = load i8*, i8** %10
%302 = call i32 (i32*, i8*, ...) @fprintf(i32* %299, i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.21, i64 0, i64 0), i8* %300, i8* %301)
store i32 5, i32* %21
store i32 5, i32* %3
br label %486
303: ; preds = %294, %291
%304 = load i32, i32* %25
%305 = icmp ne i32 %304, 0
br i1 %305, label %306, label %315
306: ; preds = %303
%307 = getelementptr inbounds [73 x i8], [73 x i8]* %13, i64 0, i64 0
store i8* %307, i8** %10
%308 = call i32* @fopen(i8* %307, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.22, i64 0, i64 0))
store i32* %308, i32** %28
%309 = icmp eq i32* %308, null
br i1 %309, label %310, label %315
310: ; preds = %306
%311 = load i32*, i32** @stderr
%312 = load i8*, i8** %6
%313 = load i8*, i8** %10
%314 = call i32 (i32*, i8*, ...) @fprintf(i32* %311, i8* getelementptr inbounds ([29 x i8], [29 x i8]* @.str.23, i64 0, i64 0), i8* %312, i8* %313)
store i32 6, i32* %21
store i32 6, i32* %3
br label %486
315: ; preds = %306, %303
%316 = load i8*, i8** %6
%317 = load i8*, i8** %10
%318 = call i32 @printf(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.24, i64 0, i64 0), i8* %316, i8* %317)
br label %319
319: ; preds = %315
br label %320
320: ; preds = %319
br label %321
321: ; preds = %320
%322 = getelementptr inbounds [73 x i8], [73 x i8]* %13, i64 0, i64 0
%323 = load i8*, i8** %10
%324 = icmp ne i8* %322, %323
br i1 %324, label %325, label %329
325: ; preds = %321
%326 = getelementptr inbounds [73 x i8], [73 x i8]* %13, i64 0, i64 0
%327 = load i8*, i8** %10
%328 = call i32 @strcpy(i8* %326, i8* %327)
br label %329
329: ; preds = %325, %321
%330 = load i32, i32* %25
%331 = icmp ne i32 %330, 0
br i1 %331, label %363, label %332
332: ; preds = %329
%333 = load i32, i32* %19
%334 = icmp eq i32 %333, 2
br i1 %334, label %338, label %335
335: ; preds = %332
%336 = load i32, i32* %19
%337 = icmp eq i32 %336, 3
br i1 %337, label %338, label %343
338: ; preds = %335, %332
%339 = load i32*, i32** %28
%340 = call i32 (i32*, i8*, ...) @fprintf(i32* %339, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.25, i64 0, i64 0))
%341 = load i32*, i32** %28
%342 = call i32 (i32*, i8*, ...) @fprintf(i32* %341, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.26, i64 0, i64 0))
br label %343
343: ; preds = %338, %335
%344 = load i32, i32* %19
%345 = icmp eq i32 %344, 1
br i1 %345, label %349, label %346
346: ; preds = %343
%347 = load i32, i32* %19
%348 = icmp eq i32 %347, 3
br i1 %348, label %349, label %362
349: ; preds = %346, %343
%350 = load i32*, i32** %28
%351 = call i32 (i32*, i8*, ...) @fprintf(i32* %350, i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.27, i64 0, i64 0))
%352 = load i32*, i32** %28
%353 = call i32 (i32*, i8*, ...) @fprintf(i32* %352, i8* getelementptr inbounds ([58 x i8], [58 x i8]* @.str.28, i64 0, i64 0))
%354 = load i32*, i32** %28
%355 = call i32 (i32*, i8*, ...) @fprintf(i32* %354, i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.29, i64 0, i64 0))
%356 = load i32*, i32** %28
%357 = call i32 (i32*, i8*, ...) @fprintf(i32* %356, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.30, i64 0, i64 0))
%358 = load i32*, i32** %28
%359 = call i32 (i32*, i8*, ...) @fprintf(i32* %358, i8* getelementptr inbounds ([64 x i8], [64 x i8]* @.str.31, i64 0, i64 0))
%360 = load i32*, i32** %28
%361 = call i32 (i32*, i8*, ...) @fprintf(i32* %360, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.30, i64 0, i64 0))
br label %362
362: ; preds = %349, %346
br label %363
363: ; preds = %362, %329
%364 = load i32*, i32** %28
%365 = getelementptr inbounds [73 x i8], [73 x i8]* %11, i64 0, i64 0
%366 = call i32 (i32*, i8*, ...) @fprintf(i32* %364, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.32, i64 0, i64 0), i8* %365)
%367 = getelementptr inbounds [73 x i8], [73 x i8]* %11, i64 0, i64 0
store i8* %367, i8** %12
%368 = load i32, i32* %15
%369 = load i32*, i32** %28
%370 = call i32 @putc(i32 %368, i32* %369)
br label %371
371: ; preds = %363, %231
br label %402
372: ; preds = %225
%373 = getelementptr inbounds [73 x i8], [73 x i8]* %13, i64 0, i64 1
%374 = load i8, i8* %373
%375 = sext i8 %374 to i32
%376 = icmp ne i32 %375, 0
br i1 %376, label %377, label %401
377: ; preds = %372
%378 = load i32, i32* %17
%379 = icmp eq i32 %378, 1
br i1 %379, label %380, label %381
380: ; preds = %377
store i32 0, i32* %24
br label %400
381: ; preds = %377
%382 = load i32, i32* %17
%383 = icmp sle i32 %382, 8
br i1 %383, label %384, label %399
384: ; preds = %381
%385 = load i32, i32* %15
%386 = load i32, i32* %17
%387 = sub nsw i32 %386, 2
%388 = sext i32 %387 to i64
%389 = getelementptr inbounds [8 x i8], [8 x i8]* %14, i64 0, i64 %388
%390 = load i8, i8* %389
%391 = sext i8 %390 to i32
%392 = icmp eq i32 %385, %391
br i1 %392, label %393, label %399
393: ; preds = %384
%394 = load i32, i32* %24
%395 = add nsw i32 %394, 1
store i32 %395, i32* %24
%396 = icmp eq i32 %395, 7
br i1 %396, label %397, label %398
397: ; preds = %393
store i32 1, i32* %25
br label %398
398: ; preds = %397, %393
br label %399
399: ; preds = %398, %384, %381
br label %400
400: ; preds = %399, %380
br label %401
401: ; preds = %400, %372
br label %402
402: ; preds = %401, %371
br label %430
403: ; preds = %222
%404 = load i32, i32* %15
%405 = load i32*, i32** %28
%406 = call i32 @putc(i32 %404, i32* %405)
%407 = load i32, i32* %15
%408 = icmp eq i32 %407, 10
br i1 %408, label %409, label %429
409: ; preds = %403
%410 = load i8*, i8** %10
%411 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%412 = ptrtoint i8* %410 to i64
%413 = ptrtoint i8* %411 to i64
%414 = sub i64 %412, %413
%415 = icmp eq i64 %414, 3
br i1 %415, label %416, label %429
416: ; preds = %409
%417 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
%418 = call i64 @strcmp(i8* %417, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.33, i64 0, i64 0))
%419 = icmp eq i64 %418, 0
br i1 %419, label %420, label %429
420: ; preds = %416
%421 = load i32*, i32** %28
%422 = call i64 @fclose(i32* %421)
%423 = icmp ne i64 %422, 0
br i1 %423, label %424, label %428
424: ; preds = %420
%425 = load i32*, i32** @stderr
%426 = load i8*, i8** %6
%427 = call i32 (i32*, i8*, ...) @fprintf(i32* %425, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.34, i64 0, i64 0), i8* %426)
store i32 7, i32* %21
store i32 7, i32* %3
br label %486
428: ; preds = %420
store i32* null, i32** %28
store i32 0, i32* %25
br label %429
429: ; preds = %428, %416, %409, %403
br label %430
430: ; preds = %429, %402
%431 = load i32, i32* %15
%432 = icmp eq i32 %431, 9
br i1 %432, label %433, label %438
433: ; preds = %430
%434 = load i32, i32* %17
%435 = add nsw i32 %434, 7
%436 = sdiv i32 %435, 8
%437 = mul nsw i32 %436, 8
store i32 %437, i32* %17
store i32 1, i32* %26
br label %444
438: ; preds = %430
%439 = load i32, i32* %15
%440 = icmp eq i32 %439, 10
br i1 %440, label %441, label %443
441: ; preds = %438
store i32 0, i32* %17
%442 = getelementptr inbounds [73 x i8], [73 x i8]* %9, i64 0, i64 0
store i8* %442, i8** %10
store i8 0, i8* %442
br label %443
443: ; preds = %441, %438
br label %444
444: ; preds = %443, %433
br label %113
445: ; preds = %113
%446 = load i32*, i32** %28
%447 = icmp ne i32* %446, null
br i1 %447, label %448, label %460
448: ; preds = %445
%449 = load i32*, i32** @stderr
%450 = load i8*, i8** %6
%451 = call i32 (i32*, i8*, ...) @fprintf(i32* %449, i8* getelementptr inbounds ([42 x i8], [42 x i8]* @.str.35, i64 0, i64 0), i8* %450)
store i32 8, i32* %21
%452 = load i32*, i32** %28
%453 = call i64 @fclose(i32* %452)
%454 = icmp ne i64 %453, 0
br i1 %454, label %455, label %459
455: ; preds = %448
%456 = load i32*, i32** @stderr
%457 = load i8*, i8** %6
%458 = call i32 (i32*, i8*, ...) @fprintf(i32* %456, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.34, i64 0, i64 0), i8* %457)
store i32 9, i32* %21
br label %459
459: ; preds = %455, %448
br label %460
460: ; preds = %459, %445
%461 = load i32*, i32** %27
%462 = call i64 @fclose(i32* %461)
%463 = icmp ne i64 %462, 0
br i1 %463, label %464, label %468
464: ; preds = %460
%465 = load i32*, i32** @stderr
%466 = load i8*, i8** %6
%467 = call i32 (i32*, i8*, ...) @fprintf(i32* %465, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.36, i64 0, i64 0), i8* %466)
store i32 10, i32* %21
br label %468
468: ; preds = %464, %460
%469 = load i32, i32* %26
%470 = icmp ne i32 %469, 0
br i1 %470, label %471, label %475
471: ; preds = %468
%472 = load i32*, i32** @stderr
%473 = load i8*, i8** %6
%474 = call i32 (i32*, i8*, ...) @fprintf(i32* %472, i8* getelementptr inbounds ([41 x i8], [41 x i8]* @.str.37, i64 0, i64 0), i8* %473)
store i32 11, i32* %21
br label %475
475: ; preds = %471, %468
%476 = load i32, i32* %20
%477 = icmp ne i32 %476, 0
br i1 %477, label %478, label %484
478: ; preds = %475
%479 = load i32*, i32** @stderr
%480 = load i8*, i8** %6
%481 = call i32 (i32*, i8*, ...) @fprintf(i32* %479, i8* getelementptr inbounds ([25 x i8], [25 x i8]* @.str.38, i64 0, i64 0), i8* %480)
%482 = load i32*, i32** @stderr
%483 = call i32 (i32*, i8*, ...) @fprintf(i32* %482, i8* getelementptr inbounds ([48 x i8], [48 x i8]* @.str.39, i64 0, i64 0))
store i32 12, i32* %21
br label %484
484: ; preds = %478, %475
%485 = load i32, i32* %21
store i32 %485, i32* %3
br label %486
486: ; preds = %484, %424, %310, %298, %287, %106, %87, %58
%487 = load i32, i32* %3
ret i32 %487
}

LLVM IR (-O2):
@.str = [8 x i8] c"program\00"
@.str.1 = [9 x i8] c"function\00"
@.str.2 = [10 x i8] c"blockdata\00"
@.str.3 = [11 x i8] c"subroutine\00"
@.str.4 = [13 x i8] c"realfunction\00"
@.str.5 = [15 x i8] c"doublefunction\00"
@.str.6 = [16 x i8] c"integerfunction\00"
@.str.7 = [16 x i8] c"logicalfunction\00"
@.str.8 = [18 x i8] c"characterfunction\00"
@.str.9 = [24 x i8] c"doubleprecisionfunction\00"
@__const.main.nscode = [8 x i8] c"NOSPLIT\00"
@stderr = global i32* null
@.str.10 = [32 x i8] c"%s: Wrong number of arguments.\0A\00"
@.str.11 = [52 x i8] c"Use \22%s [-cvs|-copyright|-both] source_file_name\22.\0A\00"
@.str.12 = [5 x i8] c"-cvs\00"
@.str.13 = [11 x i8] c"-copyright\00"
@.str.14 = [6 x i8] c"-both\00"
@.str.15 = [24 x i8] c"%s: Bad argument \22%s\22.\0A\00"
@.str.16 = [2 x i8] c"r\00"
@.str.17 = [22 x i8] c"%s: Can't open \22%s\22.\0A\00"
@EOF = global i32 0
@.str.18 = [10 x i8] c"character\00"
@.str.19 = [34 x i8] c"%s: Can't find output file name.\0A\00"
@.str.20 = [2 x i8] c"w\00"
@.str.21 = [27 x i8] c"%s: Can't open file \22%s\22.\0A\00"
@.str.22 = [2 x i8] c"a\00"
@.str.23 = [29 x i8] c"%s: Can't reopen file \22%s\22.\0A\00"
@.str.24 = [24 x i8] c"%s: Opening file \22%s\22.\0A\00"
@.str.25 = [7 x i8] c"C\0AC $I\00"
@.str.26 = [6 x i8] c"d$\0AC\0A\00"
@.str.27 = [38 x i8] c"C Copyright (C) 2000\0A\00"
@.str.28 = [58 x i8] c"C University Corporation for Atmospheric Research\0A\00"
@.str.29 = [38 x i8] c"C All Rights Reserved\0A\00"
@.str.30 = [3 x i8] c"C\0A\00"
@.str.31 = [64 x i8] c"C The use of this Software is governed by a License Agreement.\0A\00"
@.str.33 = [4 x i8] c"end\00"
@.str.34 = [30 x i8] c"%s: Can't close output file.\0A\00"
@.str.35 = [42 x i8] c"%s: No \22END\22 statement in final routine.\0A\00"
@.str.36 = [30 x i8] c"%s: Can't close source file.\0A\00"
@.str.37 = [41 x i8] c"%s: There were tabs in the source file.\0A\00"
@.str.38 = [25 x i8] c"%s: There were non-blank\00"
@.str.39 = [48 x i8] c" characters past column 72 in the source file.\0A\00"
define i32 @main(i32 %0, i8** nocapture %1) {
%3 = alloca [73 x i8]
%4 = alloca [73 x i8]
%5 = alloca [73 x i8]
%6 = getelementptr inbounds [73 x i8], [73 x i8]* %3, i64 0, i64 0
%7 = getelementptr inbounds [73 x i8], [73 x i8]* %4, i64 0, i64 0
%8 = getelementptr inbounds [73 x i8], [73 x i8]* %5, i64 0, i64 0
%9 = tail call i32 @strlen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%10 = tail call i32 @strlen(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
%11 = tail call i32 @strlen(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0))
%12 = tail call i32 @strlen(i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.3, i64 0, i64 0))
%13 = tail call i32 @strlen(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%14 = tail call i32 @strlen(i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.5, i64 0, i64 0))
%15 = tail call i32 @strlen(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.6, i64 0, i64 0))
%16 = tail call i32 @strlen(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.7, i64 0, i64 0))
%17 = tail call i32 @strlen(i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.8, i64 0, i64 0))
%18 = tail call i32 @strlen(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.9, i64 0, i64 0))
%19 = getelementptr inbounds [73 x i8], [73 x i8]* %5, i64 0, i64 1
store i8 0, i8* %19
%20 = load i8*, i8** %1
%21 = add i32 %0, -4
%22 = icmp ult i32 %21, -2
br i1 %22, label %23, label %28
23: ; preds = %2
%24 = load i32*, i32** @stderr
%25 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %24, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.10, i64 0, i64 0), i8* %20)
%26 = load i32*, i32** @stderr
%27 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %26, i8* getelementptr inbounds ([52 x i8], [52 x i8]* @.str.11, i64 0, i64 0), i8* %20)
br label %351
28: ; preds = %2
%29 = icmp eq i32 %0, 3
br i1 %29, label %30, label %49
30: ; preds = %28
%31 = getelementptr inbounds i8*, i8** %1, i64 1
%32 = load i8*, i8** %31
%33 = tail call i64 @strcmp(i8* %32, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.12, i64 0, i64 0))
%34 = icmp eq i64 %33, 0
br i1 %34, label %49, label %35
35: ; preds = %30
%36 = load i8*, i8** %31
%37 = tail call i64 @strcmp(i8* %36, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.13, i64 0, i64 0))
%38 = icmp eq i64 %37, 0
br i1 %38, label %49, label %39
39: ; preds = %35
%40 = load i8*, i8** %31
%41 = tail call i64 @strcmp(i8* %40, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.14, i64 0, i64 0))
%42 = icmp eq i64 %41, 0
br i1 %42, label %49, label %43
43: ; preds = %39
%44 = load i32*, i32** @stderr
%45 = load i8*, i8** %31
%46 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %44, i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.15, i64 0, i64 0), i8* %20, i8* %45)
%47 = load i32*, i32** @stderr
%48 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %47, i8* getelementptr inbounds ([52 x i8], [52 x i8]* @.str.11, i64 0, i64 0), i8* %20)
br label %351
49: ; preds = %39, %35, %30, %28
%50 = phi i8** [ %1, %28 ], [ %31, %30 ], [ %31, %35 ], [ %31, %39 ]
%51 = phi i1 [ false, %28 ], [ false, %30 ], [ true, %35 ], [ false, %39 ]
%52 = phi i1 [ true, %28 ], [ false, %30 ], [ false, %35 ], [ false, %39 ]
%53 = phi i1 [ false, %28 ], [ true, %30 ], [ false, %35 ], [ false, %39 ]
%54 = getelementptr inbounds i8*, i8** %50, i64 1
%55 = load i8*, i8** %54
%56 = tail call i32* @fopen(i8* %55, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.16, i64 0, i64 0))
%57 = icmp eq i32* %56, null
br i1 %57, label %76, label %58
58: ; preds = %49
%59 = call i32 @getc(i32* %56)
%60 = load i32, i32* @EOF
%61 = icmp eq i32 %59, %60
br i1 %61, label %328, label %62
62: ; preds = %58
%63 = ptrtoint [73 x i8]* %3 to i64
%64 = or i1 %51, %52
%65 = or i1 %52, %53
%66 = sext i32 %9 to i64
%67 = sext i32 %10 to i64
%68 = sext i32 %11 to i64
%69 = sext i32 %12 to i64
%70 = sext i32 %13 to i64
%71 = sext i32 %14 to i64
%72 = sext i32 %15 to i64
%73 = sext i32 %16 to i64
%74 = sext i32 %17 to i64
%75 = sext i32 %18 to i64
br label %80
76: ; preds = %49
%77 = load i32*, i32** @stderr
%78 = load i8*, i8** %54
%79 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %77, i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.str.17, i64 0, i64 0), i8* %20, i8* %78)
br label %351
80: ; preds = %62, %307
%81 = phi i32 [ %59, %62 ], [ %315, %307 ]
%82 = phi i32* [ null, %62 ], [ %308, %307 ]
%83 = phi i32 [ 0, %62 ], [ %314, %307 ]
%84 = phi i32 [ 0, %62 ], [ %309, %307 ]
%85 = phi i32 [ undef, %62 ], [ %310, %307 ]
%86 = phi i32 [ 0, %62 ], [ %153, %307 ]
%87 = phi i32 [ undef, %62 ], [ %152, %307 ]
%88 = phi i32 [ 0, %62 ], [ %313, %307 ]
%89 = phi i32 [ undef, %62 ], [ %151, %307 ]
%90 = phi i8* [ %7, %62 ], [ %311, %307 ]
%91 = phi i8* [ %6, %62 ], [ %312, %307 ]
%92 = add nsw i32 %88, 1
%93 = icmp eq i32 %88, 0
br i1 %93, label %94, label %104
94: ; preds = %80
%95 = and i32 %81, -33
%96 = icmp eq i32 %95, 67
%97 = zext i1 %96 to i32
br i1 %96, label %101, label %98
98: ; preds = %94
%99 = call i64 @isspace(i32 %81)
%100 = icmp ne i64 %99, 0
br label %101
101: ; preds = %98, %94
%102 = phi i1 [ false, %94 ], [ %100, %98 ]
%103 = zext i1 %102 to i32
br label %148
104: ; preds = %80
%105 = icmp slt i32 %88, 6
br i1 %105, label %106, label %110
106: ; preds = %104
%107 = call i64 @isspace(i32 %81)
%108 = icmp eq i64 %107, 0
%109 = select i1 %108, i32 0, i32 %89
br label %148
110: ; preds = %104
%111 = icmp ugt i32 %88, 71
%112 = icmp ne i32 %81, 10
%113 = and i1 %111, %112
br i1 %113, label %148, label %114
114: ; preds = %110
%115 = freeze i32 %89
%116 = icmp eq i32 %115, 0
br i1 %116, label %148, label %117
117: ; preds = %114
switch i32 %81, label %118 [
i32 32, label %148
i32 9, label %148
]
118: ; preds = %117
%119 = call i64 @isalpha(i32 %81)
%120 = icmp eq i64 %119, 0
br i1 %120, label %125, label %121
121: ; preds = %118
%122 = call i32 @tolower(i32 %81)
%123 = trunc i32 %122 to i8
%124 = getelementptr inbounds i8, i8* %91, i64 1
store i8 %123, i8* %91
store i8 0, i8* %124
br label %148
125: ; preds = %118
%126 = icmp eq i8* %91, %6
br i1 %126, label %145, label %127
127: ; preds = %125
%128 = ptrtoint i8* %91 to i64
%129 = sub i64 %128, %63
%130 = icmp eq i64 %129, 9
br i1 %130, label %131, label %139
131: ; preds = %127
%132 = call i64 @strcmp(i8* %6, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.18, i64 0, i64 0))
%133 = icmp eq i64 %132, 0
br i1 %133, label %134, label %139
134: ; preds = %131
%135 = icmp eq i32 %81, 42
br i1 %135, label %148, label %136
136: ; preds = %134
%137 = call i64 @isdigit(i32 %81)
%138 = icmp eq i64 %137, 0
br i1 %138, label %139, label %148
139: ; preds = %136, %131, %127
%140 = call i64 @isdigit(i32 %81)
%141 = icmp eq i64 %140, 0
br i1 %141, label %148, label %142
142: ; preds = %139
%143 = trunc i32 %81 to i8
%144 = getelementptr inbounds i8, i8* %91, i64 1
store i8 %143, i8* %91
store i8 0, i8* %144
br label %148
145: ; preds = %125
%146 = xor i1 %112, true
%147 = zext i1 %146 to i32
br label %148
148: ; preds = %117, %117, %114, %145, %106, %139, %110, %142, %134, %136, %121, %101
%149 = phi i8* [ %91, %101 ], [ %124, %121 ], [ %91, %134 ], [ %91, %136 ], [ %144, %142 ], [ %91, %117 ], [ %91, %106 ], [ %91, %110 ], [ %91, %139 ], [ %6, %145 ], [ %91, %114 ], [ %91, %117 ]
%150 = phi i8* [ %7, %101 ], [ %90, %121 ], [ %90, %134 ], [ %90, %136 ], [ %90, %142 ], [ %90, %117 ], [ %90, %106 ], [ %90, %110 ], [ %90, %139 ], [ %90, %145 ], [ %90, %114 ], [ %90, %117 ]
%151 = phi i32 [ %103, %101 ], [ 1, %121 ], [ 1, %134 ], [ 1, %136 ], [ 1, %142 ], [ %115, %117 ], [ %109, %106 ], [ 0, %110 ], [ 0, %139 ], [ %147, %145 ], [ 0, %114 ], [ %115, %117 ]
%152 = phi i32 [ %97, %101 ], [ %87, %121 ], [ %87, %134 ], [ %87, %136 ], [ %87, %142 ], [ %87, %117 ], [ %87, %106 ], [ %87, %110 ], [ %87, %139 ], [ %87, %145 ], [ %87, %114 ], [ %87, %117 ]
%153 = phi i32 [ %86, %101 ], [ %86, %121 ], [ %86, %134 ], [ %86, %136 ], [ %86, %142 ], [ %86, %117 ], [ %86, %106 ], [ 1, %110 ], [ %86, %139 ], [ %86, %145 ], [ %86, %114 ], [ %86, %117 ]
%154 = icmp eq i32* %82, null
br i1 %154, label %155, label %276
155: ; preds = %148
%156 = icmp eq i32 %152, 0
br i1 %156, label %157, label %259
157: ; preds = %155
%158 = icmp eq i32 %151, 0
br i1 %158, label %162, label %159
159: ; preds = %157
%160 = trunc i32 %81 to i8
%161 = getelementptr inbounds i8, i8* %150, i64 1
store i8 %160, i8* %150
store i8 0, i8* %161
br label %292
162: ; preds = %157
%163 = getelementptr inbounds i8, i8* %149, i64 1
store i8 46, i8* %149
%164 = getelementptr inbounds i8, i8* %149, i64 2
store i8 102, i8* %163
store i8 0, i8* %164
%165 = ptrtoint i8* %164 to i64
%166 = sub i64 %165, %63
%167 = icmp sgt i64 %166, %66
br i1 %167, label %213, label %216
168: ; preds = %213
%169 = icmp sgt i64 %166, %67
br i1 %169, label %170, label %216
170: ; preds = %168
%171 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0), i32 %10)
%172 = icmp eq i64 %171, 0
br i1 %172, label %219, label %173
173: ; preds = %170
%174 = icmp sgt i64 %166, %68
br i1 %174, label %175, label %216
175: ; preds = %173
%176 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 %11)
%177 = icmp eq i64 %176, 0
br i1 %177, label %219, label %178
178: ; preds = %175
%179 = icmp sgt i64 %166, %69
br i1 %179, label %180, label %216
180: ; preds = %178
%181 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.3, i64 0, i64 0), i32 %12)
%182 = icmp eq i64 %181, 0
br i1 %182, label %219, label %183
183: ; preds = %180
%184 = icmp sgt i64 %166, %70
br i1 %184, label %185, label %216
185: ; preds = %183
%186 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0), i32 %13)
%187 = icmp eq i64 %186, 0
br i1 %187, label %219, label %188
188: ; preds = %185
%189 = icmp sgt i64 %166, %71
br i1 %189, label %190, label %216
190: ; preds = %188
%191 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str.5, i64 0, i64 0), i32 %14)
%192 = icmp eq i64 %191, 0
br i1 %192, label %219, label %193
193: ; preds = %190
%194 = icmp sgt i64 %166, %72
br i1 %194, label %195, label %216
195: ; preds = %193
%196 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.6, i64 0, i64 0), i32 %15)
%197 = icmp eq i64 %196, 0
br i1 %197, label %219, label %198
198: ; preds = %195
%199 = icmp sgt i64 %166, %73
br i1 %199, label %200, label %216
200: ; preds = %198
%201 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([16 x i8], [16 x i8]* @.str.7, i64 0, i64 0), i32 %16)
%202 = icmp eq i64 %201, 0
br i1 %202, label %219, label %203
203: ; preds = %200
%204 = icmp sgt i64 %166, %74
br i1 %204, label %205, label %216
205: ; preds = %203
%206 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.8, i64 0, i64 0), i32 %17)
%207 = icmp eq i64 %206, 0
br i1 %207, label %219, label %208
208: ; preds = %205
%209 = icmp sgt i64 %166, %75
br i1 %209, label %210, label %216
210: ; preds = %208
%211 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.9, i64 0, i64 0), i32 %18)
%212 = icmp eq i64 %211, 0
br i1 %212, label %219, label %216
213: ; preds = %162
%214 = call i64 @strncmp(i8* %6, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i32 %9)
%215 = icmp eq i64 %214, 0
br i1 %215, label %219, label %168
216: ; preds = %208, %203, %198, %193, %188, %183, %178, %173, %168, %162, %210
%217 = load i32*, i32** @stderr
%218 = call i32 (i32*, i8*, ...) @fprintf(i32* %217, i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str.19, i64 0, i64 0), i8* %20)
br label %351
219: ; preds = %210, %205, %200, %195, %190, %185, %180, %175, %170, %213
%220 = phi i64 [ %75, %210 ], [ %74, %205 ], [ %73, %200 ], [ %72, %195 ], [ %71, %190 ], [ %70, %185 ], [ %69, %180 ], [ %68, %175 ], [ %67, %170 ], [ %66, %213 ]
%221 = getelementptr inbounds [73 x i8], [73 x i8]* %3, i64 0, i64 %220
%222 = icmp eq i32 %84, 0
br i1 %222, label %223, label %229
223: ; preds = %219
%224 = call i32* @fopen(i8* %221, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.20, i64 0, i64 0))
%225 = icmp eq i32* %224, null
br i1 %225, label %226, label %235
226: ; preds = %223
%227 = load i32*, i32** @stderr
%228 = call i32 (i32*, i8*, ...) @fprintf(i32* %227, i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.21, i64 0, i64 0), i8* %20, i8* %221)
br label %351
229: ; preds = %219
%230 = call i32* @fopen(i8* %8, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.22, i64 0, i64 0))
%231 = icmp eq i32* %230, null
br i1 %231, label %232, label %240
232: ; preds = %229
%233 = load i32*, i32** @stderr
%234 = call i32 (i32*, i8*, ...) @fprintf(i32* %233, i8* getelementptr inbounds ([29 x i8], [29 x i8]* @.str.23, i64 0, i64 0), i8* %20, i8* %8)
br label %351
235: ; preds = %223
%236 = call i32 @printf(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.24, i64 0, i64 0), i8* %20, i8* %221)
%237 = icmp eq i8* %8, %221
br i1 %237, label %242, label %238
238: ; preds = %235
%239 = call i32 @strcpy(i8* %8, i8* %221)
br label %242
240: ; preds = %229
%241 = call i32 @printf(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str.24, i64 0, i64 0), i8* %20, i8* %8)
br label %254
242: ; preds = %238, %235
br i1 %64, label %243, label %246
243: ; preds = %242
%244 = call i64 @fwrite(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.25, i64 0, i64 0), i64 6, i64 1, i32* %224)
%245 = call i64 @fwrite(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.26, i64 0, i64 0), i64 5, i64 1, i32* %224)
br label %246
246: ; preds = %242, %243
br i1 %65, label %247, label %254
247: ; preds = %246
%248 = call i64 @fwrite(i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.27, i64 0, i64 0), i64 37, i64 1, i32* %224)
%249 = call i64 @fwrite(i8* getelementptr inbounds ([58 x i8], [58 x i8]* @.str.28, i64 0, i64 0), i64 57, i64 1, i32* %224)
%250 = call i64 @fwrite(i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.29, i64 0, i64 0), i64 37, i64 1, i32* %224)
%251 = call i64 @fwrite(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.30, i64 0, i64 0), i64 2, i64 1, i32* %224)
%252 = call i64 @fwrite(i8* getelementptr inbounds ([64 x i8], [64 x i8]* @.str.31, i64 0, i64 0), i64 63, i64 1, i32* %224)
%253 = call i64 @fwrite(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.30, i64 0, i64 0), i64 2, i64 1, i32* %224)
br label %254
254: ; preds = %240, %247, %246
%255 = phi i8* [ %221, %247 ], [ %221, %246 ], [ %8, %240 ]
%256 = phi i32* [ %224, %247 ], [ %224, %246 ], [ %230, %240 ]
%257 = call i32 @fputs(i8* %7, i32* %256)
%258 = call i32 @putc(i32 %81, i32* %256)
br label %292
259: ; preds = %155
%260 = load i8, i8* %19
%261 = icmp eq i8 %260, 0
br i1 %261, label %292, label %262
262: ; preds = %259
br i1 %93, label %292, label %263
263: ; preds = %262
%264 = icmp slt i32 %88, 8
br i1 %264, label %265, label %292
265: ; preds = %263
%266 = add nsw i32 %88, -1
%267 = sext i32 %266 to i64
%268 = getelementptr inbounds [8 x i8], [8 x i8]* @__const.main.nscode, i64 0, i64 %267
%269 = load i8, i8* %268
%270 = sext i8 %269 to i32
%271 = icmp eq i32 %81, %270
br i1 %271, label %272, label %292
272: ; preds = %265
%273 = add nsw i32 %85, 1
%274 = icmp eq i32 %273, 7
%275 = select i1 %274, i32 1, i32 %84
br label %292
276: ; preds = %148
%277 = call i32 @putc(i32 %81, i32* %82)
%278 = icmp eq i32 %81, 10
%279 = ptrtoint i8* %149 to i64
%280 = sub i64 %279, %63
%281 = icmp eq i64 %280, 3
%282 = select i1 %278, i1 %281, i1 false
br i1 %282, label %283, label %292
283: ; preds = %276
%284 = call i64 @strcmp(i8* %6, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.33, i64 0, i64 0))
%285 = icmp eq i64 %284, 0
br i1 %285, label %286, label %302
286: ; preds = %283
%287 = call i64 @fclose(i32* %82)
%288 = icmp eq i64 %287, 0
br i1 %288, label %302, label %289
289: ; preds = %286
%290 = load i32*, i32** @stderr
%291 = call i32 (i32*, i8*, ...) @fprintf(i32* %290, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.34, i64 0, i64 0), i8* %20)
br label %351
292: ; preds = %272, %262, %276, %254, %159, %265, %263, %259
%293 = phi i8* [ %149, %265 ], [ %149, %263 ], [ %149, %259 ], [ %149, %159 ], [ %255, %254 ], [ %149, %276 ], [ %149, %262 ], [ %149, %272 ]
%294 = phi i8* [ %150, %265 ], [ %150, %263 ], [ %150, %259 ], [ %161, %159 ], [ %7, %254 ], [ %150, %276 ], [ %150, %262 ], [ %150, %272 ]
%295 = phi i32 [ %85, %265 ], [ %85, %263 ], [ %85, %259 ], [ %85, %159 ], [ %85, %254 ], [ %85, %276 ], [ 0, %262 ], [ %273, %272 ]
%296 = phi i32 [ %84, %265 ], [ %84, %263 ], [ %84, %259 ], [ %84, %159 ], [ %84, %254 ], [ %84, %276 ], [ %84, %262 ], [ %275, %272 ]
%297 = phi i32* [ null, %265 ], [ null, %263 ], [ null, %259 ], [ null, %159 ], [ %256, %254 ], [ %82, %276 ], [ null, %262 ], [ null, %272 ]
switch i32 %81, label %307 [
i32 9, label %298
i32 10, label %302
]
298: ; preds = %292
%299 = add nsw i32 %88, 8
%300 = sdiv i32 %299, 8
%301 = shl nsw i32 %300, 3
br label %307
302: ; preds = %283, %286, %292
%303 = phi i32* [ %297, %292 ], [ null, %286 ], [ %82, %283 ]
%304 = phi i32 [ %296, %292 ], [ 0, %286 ], [ %84, %283 ]
%305 = phi i32 [ %295, %292 ], [ %85, %286 ], [ %85, %283 ]
%306 = phi i8* [ %294, %292 ], [ %150, %286 ], [ %150, %283 ]
store i8 0, i8* %6
br label %307
307: ; preds = %292, %302, %298
%308 = phi i32* [ %297, %298 ], [ %303, %302 ], [ %297, %292 ]
%309 = phi i32 [ %296, %298 ], [ %304, %302 ], [ %296, %292 ]
%310 = phi i32 [ %295, %298 ], [ %305, %302 ], [ %295, %292 ]
%311 = phi i8* [ %294, %298 ], [ %306, %302 ], [ %294, %292 ]
%312 = phi i8* [ %293, %298 ], [ %6, %302 ], [ %293, %292 ]
%313 = phi i32 [ %301, %298 ], [ 0, %302 ], [ %92, %292 ]
%314 = phi i32 [ 1, %298 ], [ %83, %302 ], [ %83, %292 ]
%315 = call i32 @getc(i32* %56)
%316 = load i32, i32* @EOF
%317 = icmp eq i32 %315, %316
br i1 %317, label %318, label %80
318: ; preds = %307
%319 = icmp eq i32* %308, null
br i1 %319, label %328, label %320
320: ; preds = %318
%321 = load i32*, i32** @stderr
%322 = call i32 (i32*, i8*, ...) @fprintf(i32* %321, i8* getelementptr inbounds ([42 x i8], [42 x i8]* @.str.35, i64 0, i64 0), i8* %20)
%323 = call i64 @fclose(i32* %308)
%324 = icmp eq i64 %323, 0
br i1 %324, label %328, label %325
325: ; preds = %320
%326 = load i32*, i32** @stderr
%327 = call i32 (i32*, i8*, ...) @fprintf(i32* %326, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.34, i64 0, i64 0), i8* %20)
br label %328
328: ; preds = %58, %320, %325, %318
%329 = phi i32 [ %314, %325 ], [ %314, %320 ], [ %314, %318 ], [ 0, %58 ]
%330 = phi i32 [ %153, %325 ], [ %153, %320 ], [ %153, %318 ], [ 0, %58 ]
%331 = phi i32 [ 9, %325 ], [ 8, %320 ], [ 0, %318 ], [ 0, %58 ]
%332 = call i64 @fclose(i32* %56)
%333 = icmp eq i64 %332, 0
br i1 %333, label %337, label %334
334: ; preds = %328
%335 = load i32*, i32** @stderr
%336 = call i32 (i32*, i8*, ...) @fprintf(i32* %335, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.36, i64 0, i64 0), i8* %20)
br label %337
337: ; preds = %334, %328
%338 = phi i32 [ 10, %334 ], [ %331, %328 ]
%339 = icmp eq i32 %329, 0
br i1 %339, label %343, label %340
340: ; preds = %337
%341 = load i32*, i32** @stderr
%342 = call i32 (i32*, i8*, ...) @fprintf(i32* %341, i8* getelementptr inbounds ([41 x i8], [41 x i8]* @.str.37, i64 0, i64 0), i8* %20)
br label %343
343: ; preds = %340, %337
%344 = phi i32 [ 11, %340 ], [ %338, %337 ]
%345 = icmp eq i32 %330, 0
br i1 %345, label %351, label %346
346: ; preds = %343
%347 = load i32*, i32** @stderr
%348 = call i32 (i32*, i8*, ...) @fprintf(i32* %347, i8* getelementptr inbounds ([25 x i8], [25 x i8]* @.str.38, i64 0, i64 0), i8* %20)
%349 = load i32*, i32** @stderr
%350 = call i64 @fwrite(i8* getelementptr inbounds ([48 x i8], [48 x i8]* @.str.39, i64 0, i64 0), i64 47, i64 1, i32* %349)
br label %351
351: ; preds = %343, %346, %289, %232, %226, %216, %76, %43, %23
%352 = phi i32 [ 1, %23 ], [ 3, %76 ], [ 6, %232 ], [ 5, %226 ], [ 4, %216 ], [ 7, %289 ], [ 2, %43 ], [ 12, %346 ], [ %344, %343 ]
ret i32 %352
}