program sample
    implicit none
  
    integer(8) :: i,j,m,n,b
    integer(8),allocatable :: a(:),y(:)
  
    read(*,*) n
    allocate(a(n))
    do i=1,n
        read(*,*)a(i)
    end do
    call msort(a)
    b=0
    m=0
    do i=1,n-1
        if(a(i)==a(i+1))then
            a(i)=0
            a(i+1)=0
        
        else if(a(i)==0)then
            cycle
        else
            m=m+1
        end if
    end do
    if (a(n)/=0)then
        m=m+1
    end if
    
    write(*,*)m
    stop
    contains

    recursive subroutine msort(x)
    implicit none
    integer(8), intent(inout) :: x(:)
 
    integer(8) :: n, mid, i, j, k
    integer(8), allocatable :: tmp(:)
    
    n = size(x)
    
    if(n == 1) then
      return
    end if
 
    !
    ! 前半と後半に分けてソート
    ! 1~midとmid+1~nをそれぞれソート済みにする
    !
    mid = n / 2
    call msort(x(:mid))
    call msort(x(mid+1:))
 
    !
    ! tmpという配列にxを一時的に保管
    ! マージソートは外部ソート
    !
    allocate(tmp(n))
    tmp = x
 
    ! tmpの後半部分を左右反転
    do k = n, mid+1, -1
      tmp(k) = x(mid + n - k + 1)
    end do
 
    ! iは前半のリストのうちまだ見ていないものの最小値
    ! jは後半のリストのうちまだ見ていないものの最小値
    ! kは見た回数の合計
    i = 1
    j = n
 
    do k = 1, n
      !
      ! 一番左と一番右のうち小さい方をxに入れていく
      ! ここが等号つき不等号なので、安定ソートとなる
      !
      if(tmp(i) <= tmp(j)) then
        x(k) = tmp(i)
        i = i + 1
      else
        x(k) = tmp(j)
        j = j - 1
      end if
    end do
    
    deallocate(tmp)
    return
  end subroutine msort
end program sample
  


; ModuleID = 'FIRModule'
source_filename = "FIRModule"
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128"
target triple = "x86_64-pc-linux-gnu"

@_QFEa.0 = internal unnamed_addr global ptr null
@_QFEa.8 = internal unnamed_addr global i64 0
@_QQcl.7fee6b3438e69d645ab46ec4a2906a71 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_6933/source.f\00"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

; Function Attrs: mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite)
declare noalias noundef ptr @malloc(i64 noundef) local_unnamed_addr #0

; Function Attrs: mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite)
declare void @free(ptr allocptr nocapture noundef) local_unnamed_addr #1

; Function Attrs: noreturn
define void @_QQmain() local_unnamed_addr #2 {
  %1 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %2 = alloca i64, align 8
  %3 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.7fee6b3438e69d645ab46ec4a2906a71, i32 7)
  %4 = call i1 @_FortranAioInputInteger(ptr %3, ptr nonnull %2, i32 8)
  %5 = call i32 @_FortranAioEndIoStatement(ptr %3)
  %6 = load i64, ptr %2, align 8, !tbaa !3
  %7 = call i64 @llvm.smax.i64(i64 %6, i64 0)
  %8 = shl i64 %7, 3
  %9 = call ptr @malloc(i64 %8)
  store ptr %9, ptr @_QFEa.0, align 8, !tbaa !7
  store i64 %7, ptr @_QFEa.8, align 8, !tbaa !7
  %10 = icmp sgt i64 %6, 0
  br i1 %10, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %0, %.lr.ph
  %11 = phi i64 [ %17, %.lr.ph ], [ 1, %0 ]
  %12 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.7fee6b3438e69d645ab46ec4a2906a71, i32 10)
  %.unpack289 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %13 = add i64 %11, -1
  %14 = getelementptr i64, ptr %.unpack289, i64 %13
  %15 = call i1 @_FortranAioInputInteger(ptr %12, ptr %14, i32 8)
  %16 = call i32 @_FortranAioEndIoStatement(ptr %12)
  %17 = add nuw i64 %11, 1
  %exitcond.not = icmp eq i64 %11, %6
  br i1 %exitcond.not, label %._crit_edge.loopexit, label %.lr.ph

._crit_edge.loopexit:                             ; preds = %.lr.ph
  %.unpack.pre = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %.unpack248.unpack.unpack250.pre = load i64, ptr @_QFEa.8, align 8, !tbaa !7
  br label %._crit_edge

._crit_edge:                                      ; preds = %._crit_edge.loopexit, %0
  %.unpack248.unpack.unpack250 = phi i64 [ %.unpack248.unpack.unpack250.pre, %._crit_edge.loopexit ], [ %7, %0 ]
  %.unpack = phi ptr [ %.unpack.pre, %._crit_edge.loopexit ], [ %9, %0 ]
  store ptr %.unpack, ptr %1, align 8, !tbaa !7
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 1
  store i64 8, ptr %.fca.1.gep, align 8, !tbaa !7
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !7
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep, align 4, !tbaa !7
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 4
  store i8 10, ptr %.fca.4.gep, align 1, !tbaa !7
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep, align 2, !tbaa !7
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !7
  %.fca.7.0.0.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep, align 8, !tbaa !7
  %.fca.7.0.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 1
  store i64 %.unpack248.unpack.unpack250, ptr %.fca.7.0.1.gep, align 8, !tbaa !7
  %.fca.7.0.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  store i64 8, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  call void @_QFPmsort(ptr nonnull %1)
  %18 = load i64, ptr %2, align 8, !tbaa !3
  %.0230302 = add i64 %18, -1
  %19 = icmp sgt i64 %.0230302, 0
  %.unpack265 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  br i1 %19, label %.lr.ph307, label %._crit_edge308

.lr.ph307:                                        ; preds = %._crit_edge, %31
  %.0304 = phi i64 [ %.1, %31 ], [ 0, %._crit_edge ]
  %.0229303 = phi i64 [ %23, %31 ], [ 1, %._crit_edge ]
  %20 = add i64 %.0229303, -1
  %21 = getelementptr i64, ptr %.unpack265, i64 %20
  %22 = load i64, ptr %21, align 8, !tbaa !3
  %23 = add nuw i64 %.0229303, 1
  %24 = getelementptr i64, ptr %.unpack265, i64 %.0229303
  %25 = load i64, ptr %24, align 8, !tbaa !3
  %26 = icmp eq i64 %22, %25
  br i1 %26, label %27, label %28

27:                                               ; preds = %.lr.ph307
  store i64 0, ptr %21, align 8, !tbaa !3
  store i64 0, ptr %24, align 8, !tbaa !3
  br label %31

28:                                               ; preds = %.lr.ph307
  %29 = icmp ne i64 %22, 0
  %30 = zext i1 %29 to i64
  %spec.select = add i64 %.0304, %30
  br label %31

31:                                               ; preds = %28, %27
  %.1 = phi i64 [ %.0304, %27 ], [ %spec.select, %28 ]
  %exitcond309.not = icmp eq i64 %23, %18
  br i1 %exitcond309.not, label %._crit_edge308.loopexit, label %.lr.ph307

._crit_edge308.loopexit:                          ; preds = %31
  %.pre = load i64, ptr %2, align 8, !tbaa !3
  br label %._crit_edge308

._crit_edge308:                                   ; preds = %._crit_edge, %._crit_edge308.loopexit
  %32 = phi i64 [ %.pre, %._crit_edge308.loopexit ], [ %18, %._crit_edge ]
  %.0.lcssa = phi i64 [ %.1, %._crit_edge308.loopexit ], [ 0, %._crit_edge ]
  %33 = add i64 %32, -1
  %34 = getelementptr i64, ptr %.unpack265, i64 %33
  %35 = load i64, ptr %34, align 8, !tbaa !3
  %.not = icmp ne i64 %35, 0
  %36 = zext i1 %.not to i64
  %spec.select301 = add i64 %.0.lcssa, %36
  %37 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.7fee6b3438e69d645ab46ec4a2906a71, i32 30)
  %38 = call i1 @_FortranAioOutputInteger64(ptr %37, i64 %spec.select301)
  %39 = call i32 @_FortranAioEndIoStatement(ptr %37)
  %40 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable
}

; Function Attrs: nounwind
define void @_QFPmsort(ptr nocapture readonly %0) local_unnamed_addr #3 {
  %2 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %3 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %4 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 1
  %5 = load i64, ptr %4, align 8, !tbaa !7
  %6 = icmp eq i64 %5, 1
  br i1 %6, label %127, label %7

7:                                                ; preds = %1
  %8 = sdiv i64 %5, 2
  %9 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %10 = load i64, ptr %9, align 8, !tbaa !7
  %11 = load ptr, ptr %0, align 8, !tbaa !7
  %12 = tail call i64 @llvm.smax.i64(i64 %8, i64 0)
  store ptr %11, ptr %3, align 8, !tbaa !7
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 1
  store i64 8, ptr %.fca.1.gep, align 8, !tbaa !7
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !7
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep, align 4, !tbaa !7
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 4
  store i8 10, ptr %.fca.4.gep, align 1, !tbaa !7
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep, align 2, !tbaa !7
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !7
  %.fca.7.0.0.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep, align 8, !tbaa !7
  %.fca.7.0.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 1
  store i64 %12, ptr %.fca.7.0.1.gep, align 8, !tbaa !7
  %.fca.7.0.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 2
  store i64 %10, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  call void @_QFPmsort(ptr nonnull %3)
  %13 = load i64, ptr %9, align 8, !tbaa !7
  %14 = load ptr, ptr %0, align 8, !tbaa !7
  %15 = mul i64 %13, %8
  %16 = getelementptr i8, ptr %14, i64 %15
  %17 = sub i64 %5, %8
  %18 = tail call i64 @llvm.smax.i64(i64 %17, i64 0)
  store ptr %16, ptr %2, align 8, !tbaa !7
  %.fca.1.gep35 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 1
  store i64 8, ptr %.fca.1.gep35, align 8, !tbaa !7
  %.fca.2.gep37 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep37, align 8, !tbaa !7
  %.fca.3.gep39 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep39, align 4, !tbaa !7
  %.fca.4.gep41 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 4
  store i8 10, ptr %.fca.4.gep41, align 1, !tbaa !7
  %.fca.5.gep43 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep43, align 2, !tbaa !7
  %.fca.6.gep45 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep45, align 1, !tbaa !7
  %.fca.7.0.0.gep47 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep47, align 8, !tbaa !7
  %.fca.7.0.1.gep49 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 1
  store i64 %18, ptr %.fca.7.0.1.gep49, align 8, !tbaa !7
  %.fca.7.0.2.gep51 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 2
  store i64 %13, ptr %.fca.7.0.2.gep51, align 8, !tbaa !7
  call void @_QFPmsort(ptr nonnull %2)
  %19 = tail call i64 @llvm.smax.i64(i64 %5, i64 0)
  %20 = shl i64 %19, 3
  %21 = tail call ptr @malloc(i64 %20)
  %.not.not = icmp eq ptr %21, null
  br i1 %.not.not, label %51, label %22

22:                                               ; preds = %7
  %23 = icmp slt i64 %5, 0
  br i1 %23, label %.thread83, label %.preheader66

.preheader66:                                     ; preds = %22
  %.not75 = icmp eq i64 %5, 0
  br i1 %.not75, label %.thread, label %.lr.ph69

.lr.ph69:                                         ; preds = %.preheader66
  %24 = load i64, ptr %9, align 8, !tbaa !7
  %25 = load ptr, ptr %0, align 8, !tbaa !7
  %xtraiter = and i64 %5, 3
  %26 = icmp ult i64 %5, 4
  br i1 %26, label %.thread.loopexit.unr-lcssa, label %.lr.ph69.new

.lr.ph69.new:                                     ; preds = %.lr.ph69
  %unroll_iter = and i64 %5, -4
  br label %29

.thread83:                                        ; preds = %22
  %27 = shl i64 %5, 3
  %28 = tail call ptr @malloc(i64 %27)
  br label %86

29:                                               ; preds = %29, %.lr.ph69.new
  %30 = phi i64 [ 0, %.lr.ph69.new ], [ %46, %29 ]
  %niter = phi i64 [ 0, %.lr.ph69.new ], [ %niter.next.3, %29 ]
  %31 = or i64 %30, 1
  %32 = mul i64 %24, %30
  %33 = getelementptr i8, ptr %25, i64 %32
  %34 = load i64, ptr %33, align 8, !tbaa !3
  %35 = getelementptr i64, ptr %21, i64 %30
  store i64 %34, ptr %35, align 8, !tbaa !3
  %36 = or i64 %30, 2
  %37 = mul i64 %24, %31
  %38 = getelementptr i8, ptr %25, i64 %37
  %39 = load i64, ptr %38, align 8, !tbaa !3
  %40 = getelementptr i64, ptr %21, i64 %31
  store i64 %39, ptr %40, align 8, !tbaa !3
  %41 = or i64 %30, 3
  %42 = mul i64 %24, %36
  %43 = getelementptr i8, ptr %25, i64 %42
  %44 = load i64, ptr %43, align 8, !tbaa !3
  %45 = getelementptr i64, ptr %21, i64 %36
  store i64 %44, ptr %45, align 8, !tbaa !3
  %46 = add nuw nsw i64 %30, 4
  %47 = mul i64 %24, %41
  %48 = getelementptr i8, ptr %25, i64 %47
  %49 = load i64, ptr %48, align 8, !tbaa !3
  %50 = getelementptr i64, ptr %21, i64 %41
  store i64 %49, ptr %50, align 8, !tbaa !3
  %niter.next.3 = add i64 %niter, 4
  %niter.ncmp.3.not = icmp eq i64 %niter.next.3, %unroll_iter
  br i1 %niter.ncmp.3.not, label %.thread.loopexit.unr-lcssa, label %29

51:                                               ; preds = %7
  %52 = shl i64 %5, 3
  %53 = tail call ptr @malloc(i64 %52)
  %54 = icmp sgt i64 %5, 0
  br i1 %54, label %.lr.ph, label %.thread

.lr.ph:                                           ; preds = %51
  %55 = load i64, ptr %9, align 8, !tbaa !7
  %56 = load ptr, ptr %0, align 8, !tbaa !7
  %xtraiter87 = and i64 %5, 3
  %57 = icmp ult i64 %5, 4
  br i1 %57, label %.unr-lcssa, label %.lr.ph.new

.lr.ph.new:                                       ; preds = %.lr.ph
  %unroll_iter91 = and i64 %5, -4
  br label %58

58:                                               ; preds = %58, %.lr.ph.new
  %59 = phi i64 [ 0, %.lr.ph.new ], [ %75, %58 ]
  %niter92 = phi i64 [ 0, %.lr.ph.new ], [ %niter92.next.3, %58 ]
  %60 = or i64 %59, 1
  %61 = mul i64 %55, %59
  %62 = getelementptr i8, ptr %56, i64 %61
  %63 = load i64, ptr %62, align 8, !tbaa !3
  %64 = getelementptr i64, ptr %53, i64 %59
  store i64 %63, ptr %64, align 8, !tbaa !3
  %65 = or i64 %59, 2
  %66 = mul i64 %55, %60
  %67 = getelementptr i8, ptr %56, i64 %66
  %68 = load i64, ptr %67, align 8, !tbaa !3
  %69 = getelementptr i64, ptr %53, i64 %60
  store i64 %68, ptr %69, align 8, !tbaa !3
  %70 = or i64 %59, 3
  %71 = mul i64 %55, %65
  %72 = getelementptr i8, ptr %56, i64 %71
  %73 = load i64, ptr %72, align 8, !tbaa !3
  %74 = getelementptr i64, ptr %53, i64 %65
  store i64 %73, ptr %74, align 8, !tbaa !3
  %75 = add nuw nsw i64 %59, 4
  %76 = mul i64 %55, %70
  %77 = getelementptr i8, ptr %56, i64 %76
  %78 = load i64, ptr %77, align 8, !tbaa !3
  %79 = getelementptr i64, ptr %53, i64 %70
  store i64 %78, ptr %79, align 8, !tbaa !3
  %niter92.next.3 = add i64 %niter92, 4
  %niter92.ncmp.3 = icmp eq i64 %niter92.next.3, %unroll_iter91
  br i1 %niter92.ncmp.3, label %.unr-lcssa, label %58

.unr-lcssa:                                       ; preds = %58, %.lr.ph
  %.unr89 = phi i64 [ 0, %.lr.ph ], [ %75, %58 ]
  %lcmp.mod90.not = icmp eq i64 %xtraiter87, 0
  br i1 %lcmp.mod90.not, label %.epilog-lcssa, label %.epil.preheader86

.epil.preheader86:                                ; preds = %.unr-lcssa, %.epil.preheader86
  %80 = phi i64 [ %81, %.epil.preheader86 ], [ %.unr89, %.unr-lcssa ]
  %epil.iter88 = phi i64 [ %epil.iter88.next, %.epil.preheader86 ], [ 0, %.unr-lcssa ]
  %81 = add nuw nsw i64 %80, 1
  %82 = mul i64 %55, %80
  %83 = getelementptr i8, ptr %56, i64 %82
  %84 = load i64, ptr %83, align 8, !tbaa !3
  %85 = getelementptr i64, ptr %53, i64 %80
  store i64 %84, ptr %85, align 8, !tbaa !3
  %epil.iter88.next = add i64 %epil.iter88, 1
  %epil.iter88.cmp.not = icmp eq i64 %epil.iter88.next, %xtraiter87
  br i1 %epil.iter88.cmp.not, label %.epilog-lcssa, label %.epil.preheader86, !llvm.loop !9

.epilog-lcssa:                                    ; preds = %.epil.preheader86, %.unr-lcssa
  br i1 %.not.not, label %.thread, label %86

86:                                               ; preds = %.thread83, %.epilog-lcssa
  %87 = phi ptr [ %28, %.thread83 ], [ %53, %.epilog-lcssa ]
  tail call void @free(ptr nonnull %21)
  br label %.thread

.thread.loopexit.unr-lcssa:                       ; preds = %29, %.lr.ph69
  %.unr85 = phi i64 [ 0, %.lr.ph69 ], [ %46, %29 ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %.thread, label %.epil.preheader

.epil.preheader:                                  ; preds = %.thread.loopexit.unr-lcssa, %.epil.preheader
  %88 = phi i64 [ %89, %.epil.preheader ], [ %.unr85, %.thread.loopexit.unr-lcssa ]
  %epil.iter = phi i64 [ %epil.iter.next, %.epil.preheader ], [ 0, %.thread.loopexit.unr-lcssa ]
  %89 = add nuw nsw i64 %88, 1
  %90 = mul i64 %24, %88
  %91 = getelementptr i8, ptr %25, i64 %90
  %92 = load i64, ptr %91, align 8, !tbaa !3
  %93 = getelementptr i64, ptr %21, i64 %88
  store i64 %92, ptr %93, align 8, !tbaa !3
  %epil.iter.next = add i64 %epil.iter, 1
  %epil.iter.cmp.not = icmp eq i64 %epil.iter.next, %xtraiter
  br i1 %epil.iter.cmp.not, label %.thread, label %.epil.preheader, !llvm.loop !11

.thread:                                          ; preds = %.thread.loopexit.unr-lcssa, %.epil.preheader, %.preheader66, %51, %.epilog-lcssa, %86
  %.052 = phi ptr [ %53, %.epilog-lcssa ], [ %87, %86 ], [ %53, %51 ], [ %21, %.preheader66 ], [ %21, %.epil.preheader ], [ %21, %.thread.loopexit.unr-lcssa ]
  %94 = icmp sgt i64 %17, 0
  br i1 %94, label %.lr.ph71, label %.preheader

.lr.ph71:                                         ; preds = %.thread
  %95 = add i64 %8, %5
  %96 = load ptr, ptr %0, align 8, !tbaa !7
  %97 = load i64, ptr %9, align 8, !tbaa !7
  br label %101

.preheader:                                       ; preds = %101, %.thread
  %98 = icmp sgt i64 %5, 0
  br i1 %98, label %.lr.ph74.preheader, label %._crit_edge

.lr.ph74.preheader:                               ; preds = %.preheader
  %99 = load ptr, ptr %0, align 8, !tbaa !7
  %100 = load i64, ptr %9, align 8, !tbaa !7
  br label %.lr.ph74

101:                                              ; preds = %.lr.ph71, %101
  %102 = phi i64 [ %17, %.lr.ph71 ], [ %110, %101 ]
  %103 = phi i64 [ %5, %.lr.ph71 ], [ %108, %101 ]
  %104 = sub i64 %95, %103
  %105 = mul i64 %97, %104
  %106 = getelementptr i8, ptr %96, i64 %105
  %107 = load i64, ptr %106, align 8, !tbaa !3
  %108 = add i64 %103, -1
  %109 = getelementptr i64, ptr %.052, i64 %108
  store i64 %107, ptr %109, align 8, !tbaa !3
  %110 = add nsw i64 %102, -1
  %111 = icmp ugt i64 %102, 1
  br i1 %111, label %101, label %.preheader

.lr.ph74:                                         ; preds = %.lr.ph74.preheader, %125
  %112 = phi i64 [ %126, %125 ], [ 1, %.lr.ph74.preheader ]
  %.05373 = phi i64 [ %.1, %125 ], [ 1, %.lr.ph74.preheader ]
  %.05472 = phi i64 [ %.155, %125 ], [ %5, %.lr.ph74.preheader ]
  %113 = add i64 %.05373, -1
  %114 = getelementptr i64, ptr %.052, i64 %113
  %115 = load i64, ptr %114, align 8, !tbaa !3
  %116 = add i64 %.05472, -1
  %117 = getelementptr i64, ptr %.052, i64 %116
  %118 = load i64, ptr %117, align 8, !tbaa !3
  %.not63 = icmp sgt i64 %115, %118
  %119 = add nsw i64 %112, -1
  %120 = mul i64 %100, %119
  %121 = getelementptr i8, ptr %99, i64 %120
  br i1 %.not63, label %124, label %122

122:                                              ; preds = %.lr.ph74
  store i64 %115, ptr %121, align 8, !tbaa !3
  %123 = add i64 %.05373, 1
  br label %125

124:                                              ; preds = %.lr.ph74
  store i64 %118, ptr %121, align 8, !tbaa !3
  br label %125

125:                                              ; preds = %122, %124
  %.155 = phi i64 [ %.05472, %122 ], [ %116, %124 ]
  %.1 = phi i64 [ %123, %122 ], [ %.05373, %124 ]
  %126 = add nuw i64 %112, 1
  %exitcond77.not = icmp eq i64 %112, %5
  br i1 %exitcond77.not, label %._crit_edge, label %.lr.ph74

._crit_edge:                                      ; preds = %125, %.preheader
  tail call void @free(ptr %.052)
  br label %127

127:                                              ; preds = %._crit_edge, %1
  ret void
}

declare ptr @_FortranAioBeginExternalListInput(i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioInputInteger(ptr, ptr, i32) local_unnamed_addr

declare i32 @_FortranAioEndIoStatement(ptr) local_unnamed_addr

declare ptr @_FortranAioBeginExternalListOutput(i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

declare {} @_FortranAStopStatement(i32, i1, i1) local_unnamed_addr

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i64 @llvm.smax.i64(i64, i64) #4

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #2 = { noreturn }
attributes #3 = { nounwind }
attributes #4 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }

!llvm.module.flags = !{!0, !1, !2}

!0 = !{i32 2, !"Debug Info Version", i32 3}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{!4, !4, i64 0}
!4 = !{!"any data access", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
!7 = !{!8, !8, i64 0}
!8 = !{!"descriptor member", !5, i64 0}
!9 = distinct !{!9, !10}
!10 = !{!"llvm.loop.unroll.disable"}
!11 = distinct !{!11, !10}
