module subprogs
    implicit none
    contains
    subroutine quicksort2(n,x)
      !  implicit none
        integer,intent(in)::n
        integer,intent(inout)::x(1:n)
        integer,allocatable::ix(:),iw(:) 
        !
        ! Original
        ! http://d.hatena.ne.jp/fortran66/20120415/1334423664
        !
        integer :: i, j, kk0, kk1, k0, k1, ix0, ix1, l, nx
        double precision :: tmp
      
        allocate(ix(n),iw(n))
        ix=0
        iw=0
      
        if (n < 2) return
        ix(1) = 1
        ix(2) = n 
        nx = 2
        do while(nx.ne.0)
           l = 0
           do j = 1, nx - 1, 2
              kk0 = ix(j) 
              kk1 = ix(j + 1) 
              k0 = kk0 + 1
              k1 = kk1
              do while(k0 <= k1)
                 do ix0 = k0, k1              ! L
                    if (x(ix0) > x(kk0)) exit 
                 end do
                 do ix1 = k1, k0, -1          ! R
                    if (x(ix1) < x(kk0)) exit 
                 end do
                 if (ix0 >= ix1) exit
                 tmp = x(ix0)                 !swap
                 x(ix0) = x(ix1)
                 x(ix1) = tmp
                 k0 = ix0 + 1
                 k1 = ix1 - 1
              end do
              tmp = x(kk0)                   ! CSHIFT(x(kk0:ix1), 1)
              do i = kk0, ix1 - 1
                 x(i) = x(i + 1)
              end do
              x(ix1) = tmp
              if (kk0 < ix1 - 1) then         ! L
                 l = l + 1
                 iw(l) = kk0 
                 l = l + 1
                 iw(l) = ix1 - 1
              end if
              if (kk1 > ix0) then             ! R
                 l = l + 1
                 iw(l) = ix0
                 l = l + 1
                 iw(l) = kk1
              end if
           end do
           nx = l
           ix(1:nx) = iw(1:nx)
        end do
      
        return
      end subroutine quicksort2
  end module subprogs

program fennec_monster
use subprogs
implicit none
integer :: n,k,i
integer(8) :: Dsum 
integer,allocatable :: h(:)
Dsum = 0
read(*,*) n,k
allocate(h(n))
read(*,*) h(:)
call quicksort2(n,h)
!print*,h(:)
if (n -k > 0)then

    do i = 1 ,n-k
        Dsum = Dsum + h(i)
    end do
end if

    write(*,*) Dsum
end program fennec_monster
; 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"

@_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_2521/source.f\00"
@_QQcl.16373402fa3425c6e46827601abb88fa = linkonce constant [76 x i8] c"array left hand side must be allocated when the right hand side is a scalar\00"
@_QFEh.0 = internal unnamed_addr global ptr null
@_QFEh.8 = internal unnamed_addr global i64 0
@_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

define void @_QMsubprogsPquicksort2(ptr nocapture readonly %0, ptr nocapture %1) local_unnamed_addr {
  %3 = ptrtoint ptr %1 to i64
  %4 = load i32, ptr %0, align 4, !tbaa !3
  %5 = tail call i32 @llvm.smax.i32(i32 %4, i32 0)
  %6 = zext i32 %5 to i64
  %7 = shl nuw nsw i64 %6, 2
  %8 = tail call ptr @malloc(i64 %7)
  %9 = tail call ptr @malloc(i64 %7)
  %.not = icmp eq ptr %8, null
  br i1 %.not, label %12, label %.preheader123

.preheader123:                                    ; preds = %2
  %.not171 = icmp slt i32 %4, 1
  br i1 %.not171, label %.loopexit124, label %.lr.ph.preheader

.lr.ph.preheader:                                 ; preds = %.preheader123
  %10 = tail call i64 @llvm.smax.i64(i64 %6, i64 1)
  %11 = shl nuw nsw i64 %10, 2
  tail call void @llvm.memset.p0.i64(ptr nonnull align 4 %8, i8 0, i64 %11, i1 false), !tbaa !3
  br label %.loopexit124

12:                                               ; preds = %2
  %13 = tail call {} @_FortranAReportFatalUserError(ptr nonnull @_QQcl.16373402fa3425c6e46827601abb88fa, ptr nonnull @_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b, i32 17)
  br label %.loopexit124

.loopexit124:                                     ; preds = %.lr.ph.preheader, %.preheader123, %12
  %.not116 = icmp eq ptr %9, null
  br i1 %.not116, label %16, label %.preheader

.preheader:                                       ; preds = %.loopexit124
  %.not172 = icmp slt i32 %4, 1
  br i1 %.not172, label %.loopexit122, label %.lr.ph125.preheader

.lr.ph125.preheader:                              ; preds = %.preheader
  %14 = tail call i64 @llvm.smax.i64(i64 %6, i64 1)
  %15 = shl nuw nsw i64 %14, 2
  tail call void @llvm.memset.p0.i64(ptr nonnull align 4 %9, i8 0, i64 %15, i1 false), !tbaa !3
  br label %.loopexit122

16:                                               ; preds = %.loopexit124
  %17 = tail call {} @_FortranAReportFatalUserError(ptr nonnull @_QQcl.16373402fa3425c6e46827601abb88fa, ptr nonnull @_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b, i32 18)
  br label %.loopexit122

.loopexit122:                                     ; preds = %.lr.ph125.preheader, %.preheader, %16
  %18 = load i32, ptr %0, align 4, !tbaa !3
  %19 = icmp slt i32 %18, 2
  br i1 %19, label %.loopexit121, label %20

20:                                               ; preds = %.loopexit122
  store i32 1, ptr %8, align 4, !tbaa !3
  %21 = getelementptr i32, ptr %8, i64 1
  store i32 %18, ptr %21, align 4, !tbaa !3
  %22 = add i64 %3, -4
  %23 = add i64 %3, -4
  br label %24

.loopexit:                                        ; preds = %.lr.ph167.preheader, %._crit_edge162
  %.not117 = icmp eq i32 %.2, 0
  br i1 %.not117, label %.loopexit121, label %24

24:                                               ; preds = %20, %.loopexit
  %.0170 = phi i32 [ 2, %20 ], [ %.2, %.loopexit ]
  %.094169 = phi i32 [ undef, %20 ], [ %.4, %.loopexit ]
  %.097168 = phi i32 [ undef, %20 ], [ %.4101, %.loopexit ]
  %25 = icmp sgt i32 %.0170, 1
  br i1 %25, label %.lr.ph161.preheader, label %.loopexit121

.lr.ph161.preheader:                              ; preds = %24
  %26 = lshr i32 %.0170, 1
  br label %.lr.ph161

.lr.ph161:                                        ; preds = %.lr.ph161.preheader, %140
  %indvars.iv = phi i64 [ 1, %.lr.ph161.preheader ], [ %indvars.iv.next, %140 ]
  %.088159 = phi i32 [ 0, %.lr.ph161.preheader ], [ %.2, %140 ]
  %.195157 = phi i32 [ %.094169, %.lr.ph161.preheader ], [ %.4, %140 ]
  %.198156 = phi i32 [ %.097168, %.lr.ph161.preheader ], [ %.4101, %140 ]
  %.0108155 = phi i32 [ %26, %.lr.ph161.preheader ], [ %141, %140 ]
  %27 = add nsw i64 %indvars.iv, -1
  %28 = getelementptr i32, ptr %8, i64 %27
  %29 = load i32, ptr %28, align 4, !tbaa !3
  %30 = getelementptr i32, ptr %8, i64 %indvars.iv
  %31 = load i32, ptr %30, align 4, !tbaa !3
  %.092139 = add i32 %29, 1
  %.not118140 = icmp slt i32 %31, %.092139
  %.pre = sext i32 %29 to i64
  %.pre177 = add nsw i64 %.pre, -1
  br i1 %.not118140, label %._crit_edge146, label %.lr.ph145

.lr.ph145:                                        ; preds = %.lr.ph161
  %32 = getelementptr i32, ptr %1, i64 %.pre177
  br label %33

33:                                               ; preds = %.lr.ph145, %61
  %.092143 = phi i32 [ %.092139, %.lr.ph145 ], [ %.092, %61 ]
  %.091142 = phi i32 [ %31, %.lr.ph145 ], [ %70, %61 ]
  %.092.in141 = phi i32 [ %29, %.lr.ph145 ], [ %.3100.lcssa, %61 ]
  %34 = sub i32 1, %.092143
  %35 = add i32 %34, %.091142
  %36 = icmp sgt i32 %35, 0
  br i1 %36, label %.lr.ph128, label %._crit_edge

.lr.ph128:                                        ; preds = %33
  %37 = load i32, ptr %32, align 4, !tbaa !3
  %38 = add i32 %.091142, 1
  br label %39

39:                                               ; preds = %.lr.ph128, %45
  %.090127 = phi i32 [ %35, %.lr.ph128 ], [ %46, %45 ]
  %.3100126 = phi i32 [ %.092143, %.lr.ph128 ], [ %47, %45 ]
  %40 = sext i32 %.3100126 to i64
  %41 = add nsw i64 %40, -1
  %42 = getelementptr i32, ptr %1, i64 %41
  %43 = load i32, ptr %42, align 4, !tbaa !3
  %44 = icmp sgt i32 %43, %37
  br i1 %44, label %._crit_edge, label %45

45:                                               ; preds = %39
  %46 = add nsw i32 %.090127, -1
  %47 = add i32 %.3100126, 1
  %48 = icmp sgt i32 %.090127, 1
  br i1 %48, label %39, label %._crit_edge

._crit_edge:                                      ; preds = %45, %39, %33
  %.3100.lcssa = phi i32 [ %.092143, %33 ], [ %.3100126, %39 ], [ %38, %45 ]
  %.neg = sub i32 %.091142, %.092.in141
  %49 = icmp sgt i32 %.neg, 0
  br i1 %49, label %.lr.ph134, label %._crit_edge135

.lr.ph134:                                        ; preds = %._crit_edge
  %50 = load i32, ptr %32, align 4, !tbaa !3
  br label %51

51:                                               ; preds = %.lr.ph134, %57
  %.089132 = phi i32 [ %.neg, %.lr.ph134 ], [ %58, %57 ]
  %.3131 = phi i32 [ %.091142, %.lr.ph134 ], [ %59, %57 ]
  %52 = sext i32 %.3131 to i64
  %53 = add nsw i64 %52, -1
  %54 = getelementptr i32, ptr %1, i64 %53
  %55 = load i32, ptr %54, align 4, !tbaa !3
  %56 = icmp slt i32 %55, %50
  br i1 %56, label %._crit_edge135, label %57

57:                                               ; preds = %51
  %58 = add nsw i32 %.089132, -1
  %59 = add i32 %.3131, -1
  %60 = icmp sgt i32 %.089132, 1
  br i1 %60, label %51, label %._crit_edge135

._crit_edge135:                                   ; preds = %57, %51, %._crit_edge
  %.3.lcssa = phi i32 [ %.091142, %._crit_edge ], [ %.3131, %51 ], [ %.092.in141, %57 ]
  %.not119 = icmp slt i32 %.3100.lcssa, %.3.lcssa
  br i1 %.not119, label %61, label %._crit_edge146

61:                                               ; preds = %._crit_edge135
  %62 = sext i32 %.3100.lcssa to i64
  %63 = add nsw i64 %62, -1
  %64 = getelementptr i32, ptr %1, i64 %63
  %65 = load i32, ptr %64, align 4, !tbaa !3
  %66 = sext i32 %.3.lcssa to i64
  %67 = add nsw i64 %66, -1
  %68 = getelementptr i32, ptr %1, i64 %67
  %69 = load i32, ptr %68, align 4, !tbaa !3
  store i32 %69, ptr %64, align 4, !tbaa !3
  store i32 %65, ptr %68, align 4, !tbaa !3
  %70 = add nsw i32 %.3.lcssa, -1
  %.092 = add nsw i32 %.3100.lcssa, 1
  %.not118.not = icmp sgt i32 %.3.lcssa, %.092
  br i1 %.not118.not, label %33, label %._crit_edge146

._crit_edge146:                                   ; preds = %61, %._crit_edge135, %.lr.ph161
  %.4101 = phi i32 [ %.198156, %.lr.ph161 ], [ %.3100.lcssa, %._crit_edge135 ], [ %.3100.lcssa, %61 ]
  %.4 = phi i32 [ %.195157, %.lr.ph161 ], [ %.3.lcssa, %._crit_edge135 ], [ %.3.lcssa, %61 ]
  %71 = getelementptr i32, ptr %1, i64 %.pre177
  %72 = load i32, ptr %71, align 4, !tbaa !3
  %73 = add i32 %.4, -1
  %74 = sext i32 %73 to i64
  %75 = sub nsw i64 1, %.pre
  %76 = add nsw i64 %75, %74
  %77 = icmp sgt i64 %76, 0
  br i1 %77, label %.lr.ph153.preheader, label %._crit_edge154

.lr.ph153.preheader:                              ; preds = %._crit_edge146
  %min.iters.check = icmp ult i64 %76, 20
  br i1 %min.iters.check, label %.lr.ph153.preheader194, label %vector.scevcheck

vector.scevcheck:                                 ; preds = %.lr.ph153.preheader
  %78 = sub nsw i64 %74, %.pre
  %79 = trunc i64 %78 to i32
  %80 = add i32 %29, %79
  %81 = icmp slt i32 %80, %29
  %82 = trunc i64 %78 to i32
  %83 = add i32 %.092139, %82
  %84 = icmp slt i32 %83, %.092139
  %85 = icmp ugt i64 %78, 4294967295
  %86 = or i1 %84, %85
  %87 = or i1 %81, %86
  br i1 %87, label %.lr.ph153.preheader194, label %vector.memcheck

vector.memcheck:                                  ; preds = %vector.scevcheck
  %88 = shl nsw i64 %.pre, 2
  %89 = add i64 %22, %88
  %90 = sext i32 %.092139 to i64
  %91 = shl nsw i64 %90, 2
  %92 = add i64 %23, %91
  %93 = sub i64 %89, %92
  %diff.check = icmp ult i64 %93, 32
  br i1 %diff.check, label %.lr.ph153.preheader194, label %vector.ph

vector.ph:                                        ; preds = %vector.memcheck
  %n.vec = and i64 %76, -8
  %ind.end = and i64 %76, 7
  %.cast = trunc i64 %n.vec to i32
  %ind.end190 = add i32 %29, %.cast
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %.cast192 = trunc i64 %index to i32
  %offset.idx = add i32 %29, %.cast192
  %94 = add i32 %offset.idx, 1
  %95 = sext i32 %94 to i64
  %96 = add nsw i64 %95, -1
  %97 = getelementptr i32, ptr %1, i64 %96
  %wide.load = load <4 x i32>, ptr %97, align 4, !tbaa !3
  %98 = getelementptr i32, ptr %97, i64 4
  %wide.load193 = load <4 x i32>, ptr %98, align 4, !tbaa !3
  %99 = sext i32 %offset.idx to i64
  %100 = add nsw i64 %99, -1
  %101 = getelementptr i32, ptr %1, i64 %100
  store <4 x i32> %wide.load, ptr %101, align 4, !tbaa !3
  %102 = getelementptr i32, ptr %101, i64 4
  store <4 x i32> %wide.load193, ptr %102, align 4, !tbaa !3
  %index.next = add nuw i64 %index, 8
  %103 = icmp eq i64 %index.next, %n.vec
  br i1 %103, label %middle.block, label %vector.body, !llvm.loop !7

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %76, %n.vec
  br i1 %cmp.n, label %._crit_edge154, label %.lr.ph153.preheader194

.lr.ph153.preheader194:                           ; preds = %vector.memcheck, %vector.scevcheck, %.lr.ph153.preheader, %middle.block
  %.ph = phi i64 [ %76, %vector.memcheck ], [ %76, %vector.scevcheck ], [ %76, %.lr.ph153.preheader ], [ %ind.end, %middle.block ]
  %.ph195 = phi i32 [ %29, %vector.memcheck ], [ %29, %vector.scevcheck ], [ %29, %.lr.ph153.preheader ], [ %ind.end190, %middle.block ]
  br label %.lr.ph153

.lr.ph153:                                        ; preds = %.lr.ph153.preheader194, %.lr.ph153
  %104 = phi i64 [ %114, %.lr.ph153 ], [ %.ph, %.lr.ph153.preheader194 ]
  %105 = phi i32 [ %106, %.lr.ph153 ], [ %.ph195, %.lr.ph153.preheader194 ]
  %106 = add i32 %105, 1
  %107 = sext i32 %106 to i64
  %108 = add nsw i64 %107, -1
  %109 = getelementptr i32, ptr %1, i64 %108
  %110 = load i32, ptr %109, align 4, !tbaa !3
  %111 = sext i32 %105 to i64
  %112 = add nsw i64 %111, -1
  %113 = getelementptr i32, ptr %1, i64 %112
  store i32 %110, ptr %113, align 4, !tbaa !3
  %114 = add nsw i64 %104, -1
  %115 = icmp ugt i64 %104, 1
  br i1 %115, label %.lr.ph153, label %._crit_edge154, !llvm.loop !10

._crit_edge154:                                   ; preds = %.lr.ph153, %middle.block, %._crit_edge146
  %116 = sext i32 %.4 to i64
  %117 = add nsw i64 %116, -1
  %118 = getelementptr i32, ptr %1, i64 %117
  store i32 %72, ptr %118, align 4, !tbaa !3
  %119 = icmp slt i32 %29, %73
  br i1 %119, label %120, label %129

120:                                              ; preds = %._crit_edge154
  %121 = add i32 %.088159, 1
  %122 = sext i32 %121 to i64
  %123 = add nsw i64 %122, -1
  %124 = getelementptr i32, ptr %9, i64 %123
  store i32 %29, ptr %124, align 4, !tbaa !3
  %125 = add i32 %.088159, 2
  %126 = sext i32 %125 to i64
  %127 = add nsw i64 %126, -1
  %128 = getelementptr i32, ptr %9, i64 %127
  store i32 %73, ptr %128, align 4, !tbaa !3
  br label %129

129:                                              ; preds = %120, %._crit_edge154
  %.1 = phi i32 [ %125, %120 ], [ %.088159, %._crit_edge154 ]
  %130 = icmp sgt i32 %31, %.4101
  br i1 %130, label %131, label %140

131:                                              ; preds = %129
  %132 = add i32 %.1, 1
  %133 = sext i32 %132 to i64
  %134 = add nsw i64 %133, -1
  %135 = getelementptr i32, ptr %9, i64 %134
  store i32 %.4101, ptr %135, align 4, !tbaa !3
  %136 = add i32 %.1, 2
  %137 = sext i32 %136 to i64
  %138 = add nsw i64 %137, -1
  %139 = getelementptr i32, ptr %9, i64 %138
  store i32 %31, ptr %139, align 4, !tbaa !3
  br label %140

140:                                              ; preds = %131, %129
  %.2 = phi i32 [ %136, %131 ], [ %.1, %129 ]
  %141 = add nsw i32 %.0108155, -1
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 2
  %142 = icmp sgt i32 %.0108155, 1
  br i1 %142, label %.lr.ph161, label %._crit_edge162

._crit_edge162:                                   ; preds = %140
  %.not173 = icmp slt i32 %.2, 1
  br i1 %.not173, label %.loopexit, label %.lr.ph167.preheader

.lr.ph167.preheader:                              ; preds = %._crit_edge162
  %143 = zext i32 %.2 to i64
  %144 = shl nuw nsw i64 %143, 2
  tail call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 4 %8, ptr align 4 %9, i64 %144, i1 false), !tbaa !3
  br label %.loopexit

.loopexit121:                                     ; preds = %24, %.loopexit, %.loopexit122
  ret void
}

define void @_QQmain() local_unnamed_addr {
  %1 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %2 = alloca i32, align 4
  %3 = alloca i32, align 4
  %4 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b, i32 78)
  %5 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %3, i32 4)
  %6 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %2, i32 4)
  %7 = call i32 @_FortranAioEndIoStatement(ptr %4)
  %8 = load i32, ptr %3, align 4, !tbaa !3
  %9 = call i32 @llvm.smax.i32(i32 %8, i32 0)
  %10 = zext i32 %9 to i64
  %11 = shl nuw nsw i64 %10, 2
  %12 = call ptr @malloc(i64 %11)
  store ptr %12, ptr @_QFEh.0, align 8, !tbaa !11
  store i64 %10, ptr @_QFEh.8, align 8, !tbaa !11
  %13 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b, i32 80)
  %.unpack = load ptr, ptr @_QFEh.0, align 8, !tbaa !11
  %.unpack117.unpack.unpack119 = load i64, ptr @_QFEh.8, align 8, !tbaa !11
  %14 = call i64 @llvm.smax.i64(i64 %.unpack117.unpack.unpack119, i64 0)
  store ptr %.unpack, ptr %1, align 8, !tbaa !11
  %.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 4, ptr %.fca.1.gep, align 8, !tbaa !11
  %.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 !11
  %.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 !11
  %.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 9, ptr %.fca.4.gep, align 1, !tbaa !11
  %.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 !11
  %.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 !11
  %.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 !11
  %.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 %14, ptr %.fca.7.0.1.gep, align 8, !tbaa !11
  %.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 4, ptr %.fca.7.0.2.gep, align 8, !tbaa !11
  %15 = call i1 @_FortranAioInputDescriptor(ptr %13, ptr nonnull %1)
  %16 = call i32 @_FortranAioEndIoStatement(ptr %13)
  %.unpack122 = load ptr, ptr @_QFEh.0, align 8, !tbaa !11
  call void @_QMsubprogsPquicksort2(ptr nonnull %3, ptr %.unpack122)
  %17 = load i32, ptr %3, align 4, !tbaa !3
  %18 = load i32, ptr %2, align 4, !tbaa !3
  %19 = sub i32 %17, %18
  %20 = icmp sgt i32 %19, 0
  br i1 %20, label %21, label %.loopexit

21:                                               ; preds = %0
  %22 = zext i32 %19 to i64
  %.unpack134 = load ptr, ptr @_QFEh.0, align 8, !tbaa !11
  %min.iters.check = icmp ult i32 %19, 8
  br i1 %min.iters.check, label %scalar.ph.preheader, label %vector.scevcheck

vector.scevcheck:                                 ; preds = %21
  %23 = add nsw i64 %22, -1
  %24 = trunc i64 %23 to i32
  %25 = icmp ugt i32 %24, 2147483646
  %26 = icmp ugt i64 %23, 4294967295
  %27 = or i1 %25, %26
  br i1 %27, label %scalar.ph.preheader, label %vector.ph

vector.ph:                                        ; preds = %vector.scevcheck
  %n.vec = and i64 %22, 4294967292
  %ind.end = and i64 %22, 3
  %.cast = trunc i64 %n.vec to i32
  %ind.end147 = or i32 %.cast, 1
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %vec.phi = phi <2 x i64> [ zeroinitializer, %vector.ph ], [ %32, %vector.body ]
  %vec.phi149 = phi <2 x i64> [ zeroinitializer, %vector.ph ], [ %33, %vector.body ]
  %offset.idx = shl i64 %index, 32
  %sext = ashr exact i64 %offset.idx, 32
  %28 = getelementptr i32, ptr %.unpack134, i64 %sext
  %wide.load = load <2 x i32>, ptr %28, align 4, !tbaa !3
  %29 = getelementptr i32, ptr %28, i64 2
  %wide.load151 = load <2 x i32>, ptr %29, align 4, !tbaa !3
  %30 = sext <2 x i32> %wide.load to <2 x i64>
  %31 = sext <2 x i32> %wide.load151 to <2 x i64>
  %32 = add <2 x i64> %vec.phi, %30
  %33 = add <2 x i64> %vec.phi149, %31
  %index.next = add nuw i64 %index, 4
  %34 = icmp eq i64 %index.next, %n.vec
  br i1 %34, label %middle.block, label %vector.body, !llvm.loop !13

middle.block:                                     ; preds = %vector.body
  %bin.rdx = add <2 x i64> %33, %32
  %35 = call i64 @llvm.vector.reduce.add.v2i64(<2 x i64> %bin.rdx)
  %cmp.n = icmp eq i64 %n.vec, %22
  br i1 %cmp.n, label %.loopexit, label %scalar.ph.preheader

scalar.ph.preheader:                              ; preds = %vector.scevcheck, %21, %middle.block
  %.ph = phi i64 [ %22, %vector.scevcheck ], [ %22, %21 ], [ %ind.end, %middle.block ]
  %.ph152 = phi i32 [ 1, %vector.scevcheck ], [ 1, %21 ], [ %ind.end147, %middle.block ]
  %.0146.ph = phi i64 [ 0, %vector.scevcheck ], [ 0, %21 ], [ %35, %middle.block ]
  br label %scalar.ph

scalar.ph:                                        ; preds = %scalar.ph.preheader, %scalar.ph
  %36 = phi i64 [ %45, %scalar.ph ], [ %.ph, %scalar.ph.preheader ]
  %37 = phi i32 [ %44, %scalar.ph ], [ %.ph152, %scalar.ph.preheader ]
  %.0146 = phi i64 [ %43, %scalar.ph ], [ %.0146.ph, %scalar.ph.preheader ]
  %38 = sext i32 %37 to i64
  %39 = add nsw i64 %38, -1
  %40 = getelementptr i32, ptr %.unpack134, i64 %39
  %41 = load i32, ptr %40, align 4, !tbaa !3
  %42 = sext i32 %41 to i64
  %43 = add i64 %.0146, %42
  %44 = add i32 %37, 1
  %45 = add nsw i64 %36, -1
  %46 = icmp ugt i64 %36, 1
  br i1 %46, label %scalar.ph, label %.loopexit, !llvm.loop !14

.loopexit:                                        ; preds = %scalar.ph, %middle.block, %0
  %.1 = phi i64 [ 0, %0 ], [ %35, %middle.block ], [ %43, %scalar.ph ]
  %47 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.ab1f914bcc5d9d5bfd41882635c6ea4b, i32 90)
  %48 = call i1 @_FortranAioOutputInteger64(ptr %47, i64 %.1)
  %49 = call i32 @_FortranAioEndIoStatement(ptr %47)
  ret void
}

declare {} @_FortranAReportFatalUserError(ptr, ptr, i32) local_unnamed_addr

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 i1 @_FortranAioInputDescriptor(ptr, ptr) local_unnamed_addr

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

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

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

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

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: write)
declare void @llvm.memset.p0.i64(ptr nocapture writeonly, i8, i64, i1 immarg) #2

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: readwrite)
declare void @llvm.memcpy.p0.p0.i64(ptr noalias nocapture writeonly, ptr noalias nocapture readonly, i64, i1 immarg) #3

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(none)
declare i64 @llvm.vector.reduce.add.v2i64(<2 x i64>) #4

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #2 = { nocallback nofree nounwind willreturn memory(argmem: write) }
attributes #3 = { nocallback nofree nounwind willreturn memory(argmem: readwrite) }
attributes #4 = { nocallback nofree nosync nounwind 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 = distinct !{!7, !8, !9}
!8 = !{!"llvm.loop.isvectorized", i32 1}
!9 = !{!"llvm.loop.unroll.runtime.disable"}
!10 = distinct !{!10, !8}
!11 = !{!12, !12, i64 0}
!12 = !{!"descriptor member", !5, i64 0}
!13 = distinct !{!13, !8, !9}
!14 = distinct !{!14, !8}
