program answer
  implicit none
  integer(8) :: i, N, M, sum, last, count
  integer(8), allocatable :: A(:), B(:)
  read(*,*) N, M
  allocate(A(N),B(N))
  do i = 1, N
     read(*,*) A(i), B(i)
  end do
  A(:)=A(:)*100001+B(:)
  call msort(A)
  do i = 1, N
     B(i)=mod(A(i),100001)
     A(i)=(A(i)-B(i))/100001
  end do
 
  sum=0
  count=0
  i=1
  do
     if(count>=M) then
        exit
     end if
     sum=sum+A(i)*B(i)
     count=count+B(i)
     last=i
     i=i+1
  end do

  if(count>M) then
     sum=sum-(count-M)*A(last)
  end if

  write(*,*) sum
  deallocate(A,B)
  stop
contains
  !merge sort
  recursive subroutine msort(array)
    implicit none
    integer(8) :: i, j, k, N, mid, array(:)
    integer(8), allocatable :: tmp(:)
    N=size(array)
    allocate(tmp(N))
    if(n==1) then
       return
    end if
    !1~mid,mid+1~nと前半,後半に分けてsort
    mid=n/2
    call msort(array(1:mid))
    call msort(array(mid+1:n))
    tmp=array
    !tmpの後半部分を左右反転
    do k = n, mid+1, -1
       tmp(k)=array(n+mid-k+1)
    end do
    !iは前半のリストのうちまだ見ていないものの最小値
    !jは後半のリストのうちまだ見ていないものの最小値
    !kは見た回数の合計
    i=1
    j=n
    do k = 1, n !1番左と一番右のうち小さい方をarrayに入れていく
       if(tmp(i)<=tmp(j)) then 
          array(k)=tmp(i)
          i=i+1
       else
          array(k)=tmp(j)
          j=j-1
       end if
    end do
    return
  end subroutine msort
 end program answer
; 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
@_QFEb.0 = internal unnamed_addr global ptr null
@_QQcl.60a24947acdc3c2d974392adb6d7dd46 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_4755/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 = alloca i64, align 8
  %4 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.60a24947acdc3c2d974392adb6d7dd46, i32 5)
  %5 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %3, i32 8)
  %6 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %2, i32 8)
  %7 = call i32 @_FortranAioEndIoStatement(ptr %4)
  %8 = load i64, ptr %3, align 8, !tbaa !3
  %9 = call i64 @llvm.smax.i64(i64 %8, i64 0)
  %10 = shl i64 %9, 3
  %11 = call ptr @malloc(i64 %10)
  store ptr %11, ptr @_QFEa.0, align 8, !tbaa !7
  store i64 %9, ptr @_QFEa.8, align 8, !tbaa !7
  %12 = call ptr @malloc(i64 %10)
  store ptr %12, ptr @_QFEb.0, align 8, !tbaa !7
  %13 = icmp sgt i64 %8, 0
  br i1 %13, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %0, %.lr.ph
  %14 = phi i64 [ %23, %.lr.ph ], [ 1, %0 ]
  %15 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.60a24947acdc3c2d974392adb6d7dd46, i32 8)
  %.unpack738 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %16 = add i64 %14, -1
  %17 = getelementptr i64, ptr %.unpack738, i64 %16
  %18 = call i1 @_FortranAioInputInteger(ptr %15, ptr %17, i32 8)
  %.unpack750 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  %19 = add i64 %14, -1
  %20 = getelementptr i64, ptr %.unpack750, i64 %19
  %21 = call i1 @_FortranAioInputInteger(ptr %15, ptr %20, i32 8)
  %22 = call i32 @_FortranAioEndIoStatement(ptr %15)
  %23 = add nuw i64 %14, 1
  %exitcond.not = icmp eq i64 %14, %8
  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
  %.unpack600.unpack.unpack602.pre = load i64, ptr @_QFEa.8, align 8, !tbaa !7
  %.unpack605.pre = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  br label %._crit_edge

._crit_edge:                                      ; preds = %._crit_edge.loopexit, %0
  %.unpack605 = phi ptr [ %.unpack605.pre, %._crit_edge.loopexit ], [ %12, %0 ]
  %.unpack600.unpack.unpack602 = phi i64 [ %.unpack600.unpack.unpack602.pre, %._crit_edge.loopexit ], [ %9, %0 ]
  %.unpack = phi ptr [ %.unpack.pre, %._crit_edge.loopexit ], [ %11, %0 ]
  %24 = call i64 @llvm.smax.i64(i64 %.unpack600.unpack.unpack602, i64 0)
  %.not776 = icmp slt i64 %.unpack600.unpack.unpack602, 1
  br i1 %.not776, label %._crit_edge764, label %.lr.ph763.preheader

.lr.ph763.preheader:                              ; preds = %._crit_edge
  %min.iters.check = icmp ult i64 %24, 6
  br i1 %min.iters.check, label %.lr.ph763.preheader790, label %vector.memcheck

vector.memcheck:                                  ; preds = %.lr.ph763.preheader
  %25 = shl i64 %24, 3
  %uglygep = getelementptr i8, ptr %.unpack, i64 %25
  %uglygep785 = getelementptr i8, ptr %.unpack605, i64 %25
  %bound0 = icmp ult ptr %.unpack, %uglygep785
  %bound1 = icmp ult ptr %.unpack605, %uglygep
  %found.conflict = and i1 %bound0, %bound1
  br i1 %found.conflict, label %.lr.ph763.preheader790, label %vector.ph

vector.ph:                                        ; preds = %vector.memcheck
  %n.vec = and i64 %24, 9223372036854775804
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %26 = getelementptr i64, ptr %.unpack, i64 %index
  %wide.load = load <2 x i64>, ptr %26, align 8, !tbaa !3, !alias.scope !9, !noalias !12
  %27 = getelementptr i64, ptr %26, i64 2
  %wide.load786 = load <2 x i64>, ptr %27, align 8, !tbaa !3, !alias.scope !9, !noalias !12
  %28 = mul <2 x i64> %wide.load, <i64 100001, i64 100001>
  %29 = mul <2 x i64> %wide.load786, <i64 100001, i64 100001>
  %30 = getelementptr i64, ptr %.unpack605, i64 %index
  %wide.load787 = load <2 x i64>, ptr %30, align 8, !tbaa !3, !alias.scope !12
  %31 = getelementptr i64, ptr %30, i64 2
  %wide.load788 = load <2 x i64>, ptr %31, align 8, !tbaa !3, !alias.scope !12
  %32 = add <2 x i64> %28, %wide.load787
  %33 = add <2 x i64> %29, %wide.load788
  store <2 x i64> %32, ptr %26, align 8, !tbaa !3, !alias.scope !9, !noalias !12
  store <2 x i64> %33, ptr %27, align 8, !tbaa !3, !alias.scope !9, !noalias !12
  %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 !14

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %24, %n.vec
  br i1 %cmp.n, label %._crit_edge764, label %.lr.ph763.preheader790

.lr.ph763.preheader790:                           ; preds = %vector.memcheck, %.lr.ph763.preheader, %middle.block
  %.ph = phi i64 [ 0, %vector.memcheck ], [ 0, %.lr.ph763.preheader ], [ %n.vec, %middle.block ]
  %.neg791 = or i64 %.ph, 1
  %xtraiter = and i64 %24, 1
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %.lr.ph763.prol.loopexit, label %.lr.ph763.prol

.lr.ph763.prol:                                   ; preds = %.lr.ph763.preheader790
  %35 = getelementptr i64, ptr %.unpack, i64 %.ph
  %36 = load i64, ptr %35, align 8, !tbaa !3
  %37 = mul i64 %36, 100001
  %38 = getelementptr i64, ptr %.unpack605, i64 %.ph
  %39 = load i64, ptr %38, align 8, !tbaa !3
  %40 = add i64 %37, %39
  store i64 %40, ptr %35, align 8, !tbaa !3
  %41 = or i64 %.ph, 1
  br label %.lr.ph763.prol.loopexit

.lr.ph763.prol.loopexit:                          ; preds = %.lr.ph763.prol, %.lr.ph763.preheader790
  %.unr = phi i64 [ %.ph, %.lr.ph763.preheader790 ], [ %41, %.lr.ph763.prol ]
  %42 = icmp eq i64 %24, %.neg791
  br i1 %42, label %._crit_edge764, label %.lr.ph763

.lr.ph763:                                        ; preds = %.lr.ph763.prol.loopexit, %.lr.ph763
  %43 = phi i64 [ %57, %.lr.ph763 ], [ %.unr, %.lr.ph763.prol.loopexit ]
  %44 = getelementptr i64, ptr %.unpack, i64 %43
  %45 = load i64, ptr %44, align 8, !tbaa !3
  %46 = mul i64 %45, 100001
  %47 = getelementptr i64, ptr %.unpack605, i64 %43
  %48 = load i64, ptr %47, align 8, !tbaa !3
  %49 = add i64 %46, %48
  store i64 %49, ptr %44, align 8, !tbaa !3
  %50 = add nuw nsw i64 %43, 1
  %51 = getelementptr i64, ptr %.unpack, i64 %50
  %52 = load i64, ptr %51, align 8, !tbaa !3
  %53 = mul i64 %52, 100001
  %54 = getelementptr i64, ptr %.unpack605, i64 %50
  %55 = load i64, ptr %54, align 8, !tbaa !3
  %56 = add i64 %53, %55
  store i64 %56, ptr %51, align 8, !tbaa !3
  %57 = add nuw nsw i64 %43, 2
  %exitcond778.not.1 = icmp eq i64 %57, %24
  br i1 %exitcond778.not.1, label %._crit_edge764, label %.lr.ph763, !llvm.loop !17

._crit_edge764:                                   ; preds = %.lr.ph763.prol.loopexit, %.lr.ph763, %middle.block, %._crit_edge
  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 %.unpack600.unpack.unpack602, 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)
  %58 = load i64, ptr %3, align 8, !tbaa !3
  %59 = icmp sgt i64 %58, 0
  br i1 %59, label %.lr.ph766, label %.preheader

.lr.ph766:                                        ; preds = %._crit_edge764
  %.unpack690 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %.unpack702 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  br label %61

.preheader:                                       ; preds = %61, %._crit_edge764
  %60 = load i64, ptr %2, align 8, !tbaa !3
  %.not767 = icmp sgt i64 %60, 0
  br i1 %.not767, label %.lr.ph771, label %._crit_edge772

.lr.ph771:                                        ; preds = %.preheader
  %.unpack629 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %.unpack641 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  br label %84

61:                                               ; preds = %.lr.ph766, %61
  %62 = phi i64 [ 1, %.lr.ph766 ], [ %72, %61 ]
  %63 = add i64 %62, -1
  %64 = getelementptr i64, ptr %.unpack690, i64 %63
  %65 = load i64, ptr %64, align 8, !tbaa !3
  %66 = srem i64 %65, 100001
  %67 = add i64 %62, -1
  %68 = getelementptr i64, ptr %.unpack702, i64 %67
  store i64 %66, ptr %68, align 8, !tbaa !3
  %69 = load i64, ptr %64, align 8, !tbaa !3
  %70 = sub i64 %69, %66
  %71 = sdiv i64 %70, 100001
  store i64 %71, ptr %64, align 8, !tbaa !3
  %72 = add nuw i64 %62, 1
  %exitcond779.not = icmp eq i64 %62, %58
  br i1 %exitcond779.not, label %.preheader, label %61

._crit_edge772:                                   ; preds = %84, %.preheader
  %.0571.lcssa = phi i64 [ 0, %.preheader ], [ %93, %84 ]
  %.0569.lcssa = phi i64 [ undef, %.preheader ], [ %.0570769, %84 ]
  %.0.lcssa = phi i64 [ 0, %.preheader ], [ %92, %84 ]
  %73 = icmp slt i64 %60, %.0571.lcssa
  br i1 %73, label %74, label %79

74:                                               ; preds = %._crit_edge772
  %.neg = sub i64 %60, %.0571.lcssa
  %.unpack677 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %75 = add i64 %.0569.lcssa, -1
  %76 = getelementptr i64, ptr %.unpack677, i64 %75
  %77 = load i64, ptr %76, align 8, !tbaa !3
  %.neg689 = mul i64 %77, %.neg
  %78 = add i64 %.neg689, %.0.lcssa
  br label %79

79:                                               ; preds = %74, %._crit_edge772
  %.1 = phi i64 [ %78, %74 ], [ %.0.lcssa, %._crit_edge772 ]
  %80 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.60a24947acdc3c2d974392adb6d7dd46, i32 34)
  %81 = call i1 @_FortranAioOutputInteger64(ptr %80, i64 %.1)
  %82 = call i32 @_FortranAioEndIoStatement(ptr %80)
  %.unpack653 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  call void @free(ptr %.unpack653)
  store ptr null, ptr @_QFEa.0, align 8, !tbaa !7
  store i64 0, ptr @_QFEa.8, align 8, !tbaa !7
  %.unpack665 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  call void @free(ptr %.unpack665)
  store ptr null, ptr @_QFEb.0, align 8, !tbaa !7
  %83 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable

84:                                               ; preds = %.lr.ph771, %84
  %.0770 = phi i64 [ 0, %.lr.ph771 ], [ %92, %84 ]
  %.0570769 = phi i64 [ 1, %.lr.ph771 ], [ %94, %84 ]
  %.0571768 = phi i64 [ 0, %.lr.ph771 ], [ %93, %84 ]
  %85 = add i64 %.0570769, -1
  %86 = getelementptr i64, ptr %.unpack629, i64 %85
  %87 = load i64, ptr %86, align 8, !tbaa !3
  %88 = add i64 %.0570769, -1
  %89 = getelementptr i64, ptr %.unpack641, i64 %88
  %90 = load i64, ptr %89, align 8, !tbaa !3
  %91 = mul i64 %90, %87
  %92 = add i64 %91, %.0770
  %93 = add i64 %90, %.0571768
  %94 = add i64 %.0570769, 1
  %.not = icmp sgt i64 %60, %93
  br i1 %.not, label %84, label %._crit_edge772
}

; 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 = tail call i64 @llvm.smax.i64(i64 %5, i64 0)
  %7 = shl i64 %6, 3
  %8 = tail call ptr @malloc(i64 %7)
  %9 = icmp eq i64 %5, 1
  br i1 %9, label %.loopexit, label %10

10:                                               ; preds = %1
  %11 = sdiv i64 %5, 2
  %12 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %13 = load i64, ptr %12, align 8, !tbaa !7
  %14 = load ptr, ptr %0, align 8, !tbaa !7
  %15 = tail call i64 @llvm.smax.i64(i64 %11, i64 0)
  store ptr %14, 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 %15, 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 %13, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  call void @_QFPmsort(ptr nonnull %3)
  %16 = load i64, ptr %12, align 8, !tbaa !7
  %17 = load ptr, ptr %0, align 8, !tbaa !7
  %18 = mul i64 %16, %11
  %19 = getelementptr i8, ptr %17, i64 %18
  %20 = sub i64 %5, %11
  %21 = tail call i64 @llvm.smax.i64(i64 %20, i64 0)
  store ptr %19, 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 %21, 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 %16, ptr %.fca.7.0.2.gep51, align 8, !tbaa !7
  call void @_QFPmsort(ptr nonnull %2)
  %.not.not = icmp eq ptr %8, null
  br i1 %.not.not, label %51, label %22

22:                                               ; preds = %10
  %23 = icmp slt i64 %5, 0
  br i1 %23, label %.thread84, label %.preheader67

.preheader67:                                     ; preds = %22
  %.not76 = icmp eq i64 %5, 0
  br i1 %.not76, label %.thread, label %.lr.ph70

.lr.ph70:                                         ; preds = %.preheader67
  %24 = load i64, ptr %12, 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.ph70.new

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

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

29:                                               ; preds = %29, %.lr.ph70.new
  %30 = phi i64 [ 0, %.lr.ph70.new ], [ %46, %29 ]
  %niter = phi i64 [ 0, %.lr.ph70.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 %8, 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 %8, 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 %8, 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 %8, 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 = %10
  %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 %12, align 8, !tbaa !7
  %56 = load ptr, ptr %0, align 8, !tbaa !7
  %xtraiter88 = 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_iter92 = and i64 %5, -4
  br label %58

58:                                               ; preds = %58, %.lr.ph.new
  %59 = phi i64 [ 0, %.lr.ph.new ], [ %75, %58 ]
  %niter93 = phi i64 [ 0, %.lr.ph.new ], [ %niter93.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
  %niter93.next.3 = add i64 %niter93, 4
  %niter93.ncmp.3 = icmp eq i64 %niter93.next.3, %unroll_iter92
  br i1 %niter93.ncmp.3, label %.unr-lcssa, label %58

.unr-lcssa:                                       ; preds = %58, %.lr.ph
  %.unr90 = phi i64 [ 0, %.lr.ph ], [ %75, %58 ]
  %lcmp.mod91.not = icmp eq i64 %xtraiter88, 0
  br i1 %lcmp.mod91.not, label %.epilog-lcssa, label %.epil.preheader87

.epil.preheader87:                                ; preds = %.unr-lcssa, %.epil.preheader87
  %80 = phi i64 [ %81, %.epil.preheader87 ], [ %.unr90, %.unr-lcssa ]
  %epil.iter89 = phi i64 [ %epil.iter89.next, %.epil.preheader87 ], [ 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.iter89.next = add i64 %epil.iter89, 1
  %epil.iter89.cmp.not = icmp eq i64 %epil.iter89.next, %xtraiter88
  br i1 %epil.iter89.cmp.not, label %.epilog-lcssa, label %.epil.preheader87, !llvm.loop !18

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

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

.thread.loopexit.unr-lcssa:                       ; preds = %29, %.lr.ph70
  %.unr86 = phi i64 [ 0, %.lr.ph70 ], [ %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 ], [ %.unr86, %.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 %8, 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 !20

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

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

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

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

101:                                              ; preds = %.lr.ph72, %101
  %102 = phi i64 [ %20, %.lr.ph72 ], [ %110, %101 ]
  %103 = phi i64 [ %5, %.lr.ph72 ], [ %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.ph75:                                         ; preds = %.lr.ph75.preheader, %125
  %112 = phi i64 [ %126, %125 ], [ 1, %.lr.ph75.preheader ]
  %.05374 = phi i64 [ %.1, %125 ], [ 1, %.lr.ph75.preheader ]
  %.05473 = phi i64 [ %.155, %125 ], [ %5, %.lr.ph75.preheader ]
  %113 = add i64 %.05374, -1
  %114 = getelementptr i64, ptr %.052, i64 %113
  %115 = load i64, ptr %114, align 8, !tbaa !3
  %116 = add i64 %.05473, -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.ph75
  store i64 %115, ptr %121, align 8, !tbaa !3
  %123 = add i64 %.05374, 1
  br label %125

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

125:                                              ; preds = %122, %124
  %.155 = phi i64 [ %.05473, %122 ], [ %116, %124 ]
  %.1 = phi i64 [ %123, %122 ], [ %.05374, %124 ]
  %126 = add nuw i64 %112, 1
  %exitcond78.not = icmp eq i64 %112, %5
  br i1 %exitcond78.not, label %.loopexit, label %.lr.ph75

.loopexit:                                        ; preds = %125, %.preheader, %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 = !{!10}
!10 = distinct !{!10, !11}
!11 = distinct !{!11, !"LVerDomain"}
!12 = !{!13}
!13 = distinct !{!13, !11}
!14 = distinct !{!14, !15, !16}
!15 = !{!"llvm.loop.isvectorized", i32 1}
!16 = !{!"llvm.loop.unroll.runtime.disable"}
!17 = distinct !{!17, !15}
!18 = distinct !{!18, !19}
!19 = !{!"llvm.loop.unroll.disable"}
!20 = distinct !{!20, !19}
