// File: /workspace/github_c_makefile_star2_O1/darwin-on-arm[P]darwin-sdk/developer_cmds/ctags/fortran.c
// Function: PF_funcs
int
PF_funcs()
{
	bool	pfcnt;			/* pascal/fortran functions found */
	char	*cp;
	char	tok[MAXTOKEN];

	for (pfcnt = NO;;) {
		lineftell = ftell(inf);
		if (!fgets(lbuf, sizeof(lbuf), inf))
			return (pfcnt);
		++lineno;
		lbp = lbuf;
		if (*lbp == '%')	/* Ratfor escape to fortran */
			++lbp;
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		switch (*lbp | ' ') {	/* convert to lower-case */
		case 'c':
			if (cicmp("complex") || cicmp("character"))
				takeprec();
			break;
		case 'd':
			if (cicmp("double")) {
				for (; isspace(*lbp); ++lbp)
					continue;
				if (!*lbp)
					continue;
				if (cicmp("precision"))
					break;
				continue;
			}
			break;
		case 'i':
			if (cicmp("integer"))
				takeprec();
			break;
		case 'l':
			if (cicmp("logical"))
				takeprec();
			break;
		case 'r':
			if (cicmp("real"))
				takeprec();
			break;
		}
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		switch (*lbp | ' ') {
		case 'f':
			if (cicmp("function"))
				break;
			continue;
		case 'p':
			if (cicmp("program") || cicmp("procedure"))
				break;
			continue;
		case 's':
			if (cicmp("subroutine"))
				break;
		default:
			continue;
		}
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		for (cp = lbp + 1; *cp && intoken(*cp); ++cp)
			continue;
		if ((cp = lbp + 1) != NULL)
			continue;
		*cp = EOS;
		(void)strcpy(tok, lbp);
		ct_getline();			/* process line for ex(1) */
		pfnote(tok, lineno);
		pfcnt = YES;
	}
	/*NOTREACHED*/
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
leaq 0x4046(%rip), %r15      # 0x6150
movq (%r15), %rdi
callq 0x1120
leaq 0x4d67(%rip), %r12      # 0x6e80
movq %rax, (%r12)
movq (%r15), %rdx
leaq 0x4559(%rip), %rbx      # 0x6680
movq %rbx, %rdi
movl $0x800, %esi            # imm = 0x800
callq 0x10f0
testq %rax, %rax
je 0x263c
callq 0x11e0
movq %rax, %r14
leaq 0x4524(%rip), %r13      # 0x6670
leaq 0x1(%rbx), %rbp
incl (%r13)
movq %rbx, 0x4d2d(%rip)      # 0x6e88
cmpb $0x25, (%rbx)
movq %rbx, %rdx
cmoveq %rbp, %rdx
leaq -0x1(%rdx), %rax
incq %rdx
movq %rdx, %rcx
movsbq 0x1(%rax), %rsi
incq %rax
movq %rax, 0x4d0a(%rip)      # 0x6e88
movq (%r14), %rdi
incq %rdx
testb $0x20, 0x1(%rdi,%rsi,2)
jne 0x216c
movzbl %sil, %edx
testl %edx, %edx
je 0x2617
orl $0x20, %edx
leal -0x63(%rdx), %esi
cmpl $0x9, %esi
ja 0x2257
leaq 0x1fff(%rip), %rdi      # 0x41ac
movslq (%rdi,%rsi,4), %rdx
addq %rdi, %rdx
jmpq *%rdx
movb (%rax), %dil
andb $-0x21, %dil
xorl %esi, %esi
movl $0x0, %edx
cmpb $0x43, %dil
jne 0x21fa
xorl %edx, %edx
cmpl $0x6, %edx
je 0x238b
leaq 0x1ff8(%rip), %rsi      # 0x41d4
movb 0x1(%rdx,%rsi), %sil
movb (%rcx), %dil
xorb %sil, %dil
incq %rdx
incq %rcx
testb $-0x21, %dil
je 0x21cc
testb %sil, %sil
sete %sil
testb %sil, %sil
jne 0x244c
movq 0x4c7e(%rip), %rax      # 0x6e88
movb (%rax), %sil
andb $-0x21, %sil
xorl %ecx, %ecx
movl $0x0, %edx
cmpb $0x43, %sil
jne 0x224a
xorl %edx, %edx
leaq 0x1fb5(%rip), %rdi      # 0x41dc
cmpl $0x8, %edx
je 0x2447
movb 0x1(%rdx,%rdi), %cl
movb 0x1(%rax,%rdx), %sil
xorb %cl, %sil
incq %rdx
testb $-0x21, %sil
je 0x2227
testb %cl, %cl
sete %cl
testb %cl, %cl
jne 0x244c
jmp 0x245d
cmpl $0x72, %edx
jne 0x245d
movb (%rax), %dil
andb $-0x21, %dil
xorl %esi, %esi
movl $0x0, %edx
cmpb $0x52, %dil
jne 0x2326
xorl %edx, %edx
cmpl $0x3, %edx
je 0x2421
leaq 0x1f7d(%rip), %rsi      # 0x4207
movb 0x1(%rdx,%rsi), %sil
movb (%rcx), %dil
xorb %sil, %dil
incq %rdx
incq %rcx
testb $-0x21, %dil
je 0x227a
jmp 0x231f
movb (%rax), %dil
andb $-0x21, %dil
xorl %esi, %esi
movl $0x0, %edx
cmpb $0x49, %dil
jne 0x2326
xorl %edx, %edx
cmpl $0x6, %edx
je 0x2381
leaq 0x1f2e(%rip), %rsi      # 0x41f7
movb 0x1(%rdx,%rsi), %sil
movb (%rcx), %dil
xorb %sil, %dil
incq %rdx
incq %rcx
testb $-0x21, %dil
je 0x22b9
jmp 0x231f
movb (%rax), %dil
andb $-0x21, %dil
xorl %esi, %esi
movl $0x0, %edx
cmpb $0x4c, %dil
jne 0x2326
xorl %edx, %edx
cmpl $0x6, %edx
je 0x2381
leaq 0x1ef7(%rip), %rsi      # 0x41ff
movb 0x1(%rdx,%rsi), %sil
movb (%rcx), %dil
xorb %sil, %dil
incq %rdx
incq %rcx
testb $-0x21, %dil
je 0x22f8
testb %sil, %sil
sete %sil
testb %sil, %sil
jne 0x2426
jmp 0x245d
movb (%rax), %dil
andb $-0x21, %dil
xorl %esi, %esi
movl $0x0, %edx
cmpb $0x44, %dil
jne 0x2377
movq %rcx, %rsi
xorl %edx, %edx
cmpl $0x5, %edx
je 0x2395
leaq 0x1e8d(%rip), %rdi      # 0x41e6
movb 0x1(%rdx,%rdi), %dil
movb (%rsi), %r8b
xorb %dil, %r8b
incq %rdx
incq %rsi
testb $-0x21, %r8b
je 0x234d
testb %dil, %dil
sete %sil
testb %sil, %sil
jne 0x239a
jmp 0x245d
movl $0x7, %edx
jmp 0x2426
movl $0x7, %edx
jmp 0x244c
movl $0x6, %edx
movl %edx, %esi
leaq (%rax,%rsi), %rdx
movq %rdx, 0x4ae1(%rip)      # 0x6e88
movq (%r14), %rdi
movsbq (%rax,%rsi), %rax
testb $0x20, 0x1(%rdi,%rax,2)
je 0x23d4
addq %rsi, %rcx
incq %rdx
movq %rcx, 0x4ac5(%rip)      # 0x6e88
movq (%r14), %rsi
movsbq (%rcx), %rax
incq %rcx
testb $0x20, 0x1(%rsi,%rax,2)
jne 0x23b9
testb %al, %al
je 0x2617
movb (%rdx), %sil
andb $-0x21, %sil
xorl %ecx, %ecx
movl $0x0, %eax
cmpb $0x50, %sil
jne 0x2418
xorl %eax, %eax
leaq 0x1df4(%rip), %rdi      # 0x41ed
cmpl $0x8, %eax
je 0x2434
movb 0x1(%rax,%rdi), %cl
movb 0x1(%rdx,%rax), %sil
xorb %cl, %sil
incq %rax
testb $-0x21, %sil
je 0x23f9
testb %cl, %cl
sete %cl
testb %cl, %cl
jne 0x2439
jmp 0x2617
movl $0x4, %edx
movl %edx, %ecx
addq %rcx, %rax
movq %rax, 0x4a56(%rip)      # 0x6e88
jmp 0x2458
movl $0x9, %eax
movl %eax, %eax
addq %rax, %rdx
movq %rdx, 0x4a43(%rip)      # 0x6e88
jmp 0x245d
movl $0x9, %edx
movl %edx, %ecx
addq %rax, %rcx
movq %rcx, 0x4a30(%rip)      # 0x6e88
callq 0x26ac
movq (%r14), %rdx
movq 0x4a21(%rip), %rax      # 0x6e88
movsbq (%rax), %rcx
testb $0x20, 0x1(%rdx,%rcx,2)
je 0x2490
incq %rax
movq %rax, 0x4a0c(%rip)      # 0x6e88
movq (%r14), %rdx
movsbq (%rax), %rcx
incq %rax
testb $0x20, 0x1(%rdx,%rcx,2)
jne 0x2475
decq %rax
testb %cl, %cl
je 0x2617
orb $0x20, %cl
cmpb $0x66, %cl
je 0x2581
movzbl %cl, %ecx
cmpl $0x70, %ecx
je 0x24f9
cmpl $0x73, %ecx
jne 0x2617
movb (%rax), %sil
andb $-0x21, %sil
xorl %edx, %edx
movl $0x0, %ecx
cmpb $0x53, %sil
jne 0x25bd
xorl %ecx, %ecx
leaq 0x1d51(%rip), %rdi      # 0x4227
cmpl $0x9, %ecx
je 0x25d1
movb 0x1(%rcx,%rdi), %dl
movb 0x1(%rax,%rcx), %sil
xorb %dl, %sil
incq %rcx
testb $-0x21, %sil
je 0x24d6
jmp 0x25b8
movb (%rax), %sil
andb $-0x21, %sil
xorl %edx, %edx
movl $0x0, %ecx
cmpb $0x50, %sil
jne 0x2539
xorl %ecx, %ecx
leaq 0x1cff(%rip), %rdi      # 0x4215
cmpl $0x6, %ecx
je 0x25c3
movb 0x1(%rcx,%rdi), %dl
movb 0x1(%rax,%rcx), %sil
xorb %dl, %sil
incq %rcx
testb $-0x21, %sil
je 0x2516
testb %dl, %dl
sete %dl
testb %dl, %dl
jne 0x25dd
movq 0x4940(%rip), %rax      # 0x6e88
movb (%rax), %sil
andb $-0x21, %sil
xorl %edx, %edx
movl $0x0, %ecx
cmpb $0x50, %sil
jne 0x25bd
xorl %ecx, %ecx
leaq 0x1cb8(%rip), %rdi      # 0x421d
cmpl $0x8, %ecx
je 0x25d8
movb 0x1(%rcx,%rdi), %dl
movb 0x1(%rax,%rcx), %sil
xorb %dl, %sil
incq %rcx
testb $-0x21, %sil
je 0x2565
jmp 0x25b8
movb (%rax), %sil
andb $-0x21, %sil
xorl %edx, %edx
movl $0x0, %ecx
cmpb $0x46, %sil
jne 0x25bd
xorl %ecx, %ecx
leaq 0x1c6e(%rip), %rdi      # 0x420c
cmpl $0x7, %ecx
je 0x25ca
movb 0x1(%rcx,%rdi), %dl
movb 0x1(%rax,%rcx), %sil
xorb %dl, %sil
incq %rcx
testb $-0x21, %sil
je 0x259e
testb %dl, %dl
sete %dl
testb %dl, %dl
jne 0x25dd
jmp 0x2617
movl $0x7, %ecx
jmp 0x25dd
movl $0x8, %ecx
jmp 0x25dd
movl $0xa, %ecx
jmp 0x25dd
movl $0x9, %ecx
movl %ecx, %ecx
leaq (%rax,%rcx), %rdx
movq %rdx, 0x489e(%rip)      # 0x6e88
movq (%r14), %rdx
movsbq (%rax,%rcx), %rsi
testb $0x20, 0x1(%rdx,%rsi,2)
je 0x2617
addq %rcx, %rax
incq %rax
movq %rax, 0x4882(%rip)      # 0x6e88
movq (%r14), %rcx
movsbq (%rax), %rdx
incq %rax
testb $0x20, 0x1(%rcx,%rdx,2)
jne 0x25ff
movq (%r15), %rdi
callq 0x1120
movq %rax, (%r12)
movq (%r15), %rdx
movq %rbx, %rdi
movl $0x800, %esi            # imm = 0x800
callq 0x10f0
testq %rax, %rax
jne 0x2150
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq