	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_calc_f77_array_dims            ## -- Begin function calc_f77_array_dims
	.p2align	4, 0x90
_calc_f77_array_dims:                   ## @calc_f77_array_dims
	.cfi_startproc
## %bb.0:
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset %rbp, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register %rbp
	pushq	%r15
	pushq	%r14
	pushq	%rbx
	pushq	%rax
	.cfi_offset %rbx, -40
	.cfi_offset %r14, -32
	.cfi_offset %r15, -24
	movq	%rdi, %rbx
	callq	_TYPE_CODE
	movq	_TYPE_CODE_ARRAY@GOTPCREL(%rip), %r15
	cmpq	(%r15), %rax
	je	LBB0_2
## %bb.1:
	leaq	L_.str(%rip), %rdi
	callq	_error
LBB0_2:
	movq	%rbx, %rdi
	callq	_TYPE_TARGET_TYPE
	testq	%rax, %rax
	je	LBB0_3
## %bb.4:
	movq	%rax, %rbx
	movl	$1, %r14d
	.p2align	4, 0x90
LBB0_5:                                 ## =>This Inner Loop Header: Depth=1
	movq	%rbx, %rdi
	callq	_TYPE_CODE
	xorl	%ecx, %ecx
	cmpq	(%r15), %rax
	sete	%cl
	addl	%ecx, %r14d
	movq	%rbx, %rdi
	callq	_TYPE_TARGET_TYPE
	movq	%rax, %rbx
	testq	%rax, %rax
	jne	LBB0_5
	jmp	LBB0_6
LBB0_3:
	movl	$1, %r14d
LBB0_6:
	movl	%r14d, %eax
	addq	$8, %rsp
	popq	%rbx
	popq	%r14
	popq	%r15
	popq	%rbp
	retq
	.cfi_endproc
                                        ## -- End function
	.comm	_TYPE_CODE_ARRAY,8,3            ## @TYPE_CODE_ARRAY
	.section	__TEXT,__cstring,cstring_literals
L_.str:                                 ## @.str
	.asciz	"Can't get dimensions for a non-array type"

.subsections_via_symbols

	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_calc_f77_array_dims            ; -- Begin function calc_f77_array_dims
	.p2align	2
_calc_f77_array_dims:                   ; @calc_f77_array_dims
	.cfi_startproc
; %bb.0:
	stp	x22, x21, [sp, #-48]!           ; 16-byte Folded Spill
	.cfi_def_cfa_offset 48
	stp	x20, x19, [sp, #16]             ; 16-byte Folded Spill
	stp	x29, x30, [sp, #32]             ; 16-byte Folded Spill
	add	x29, sp, #32
	.cfi_def_cfa w29, 16
	.cfi_offset w30, -8
	.cfi_offset w29, -16
	.cfi_offset w19, -24
	.cfi_offset w20, -32
	.cfi_offset w21, -40
	.cfi_offset w22, -48
	mov	x19, x0
	bl	_TYPE_CODE
Lloh0:
	adrp	x21, _TYPE_CODE_ARRAY@GOTPAGE
Lloh1:
	ldr	x21, [x21, _TYPE_CODE_ARRAY@GOTPAGEOFF]
	ldr	x8, [x21]
	cmp	x0, x8
	b.eq	LBB0_2
; %bb.1:
Lloh2:
	adrp	x0, l_.str@PAGE
Lloh3:
	add	x0, x0, l_.str@PAGEOFF
	bl	_error
LBB0_2:
	mov	x0, x19
	bl	_TYPE_TARGET_TYPE
	cbz	x0, LBB0_5
; %bb.3:
	mov	x20, x0
	mov	w19, #1
LBB0_4:                                 ; =>This Inner Loop Header: Depth=1
	mov	x0, x20
	bl	_TYPE_CODE
	ldr	x8, [x21]
	cmp	x0, x8
	cinc	w19, w19, eq
	mov	x0, x20
	bl	_TYPE_TARGET_TYPE
	mov	x20, x0
	cbnz	x0, LBB0_4
	b	LBB0_6
LBB0_5:
	mov	w19, #1
LBB0_6:
	mov	x0, x19
	ldp	x29, x30, [sp, #32]             ; 16-byte Folded Reload
	ldp	x20, x19, [sp, #16]             ; 16-byte Folded Reload
	ldp	x22, x21, [sp], #48             ; 16-byte Folded Reload
	ret
	.loh AdrpLdrGot	Lloh0, Lloh1
	.loh AdrpAdd	Lloh2, Lloh3
	.cfi_endproc
                                        ; -- End function
	.comm	_TYPE_CODE_ARRAY,8,3            ; @TYPE_CODE_ARRAY
	.section	__TEXT,__cstring,cstring_literals
l_.str:                                 ; @.str
	.asciz	"Can't get dimensions for a non-array type"

.subsections_via_symbols
