program main
  implicit none
  integer(8) :: N,M
  integer(8),allocatable :: A(:),B(:)
  integer(8),allocatable :: A2(:,:)
  integer(8) :: i
  integer(8) :: nout
  integer(8) :: out
  read(*,*) N,M
  allocate(A(N),B(N))
  do i = 1,N
     read(*,*) A(i),B(i)
  end do
  allocate(A2(N,2) )
  A2(:,1) = A(:)
  A2(:,2) = B(:)

  call hsort(N,A2)
  out=0
  nout=0
  do i = 1,N
     nout = nout + A2(i,2)
     out = out +A2(i,1) * A2(i,2)
     if ( nout >= M ) THEn
        out = out - A2(i,1)*(nout-M)
        exit
     end if
  end do
  write(*,'(i0)') out
  stop
contains
  subroutine hsort(n, x)
    implicit none
    integer(8), intent(IN) :: n
    integer(8), intent(INOUT) :: x(n,2)
    ! local
    integer(8) k
    integer(8) :: tmp,tmp2
    ! external subroutine
    !external mkheap

    ! 配列 x 全体をヒープにする。
    do k = n/2, 1, -1
       tmp = x(k,1)
       call mkheap(n, x, k, n, tmp)
    enddo

    ! ヒープの根と右下の葉を交換してソートする。
    do k = n, 2, -1
       tmp = x(k,1)
       x(k,1) = x(1,1)
       tmp2 = x(1,2)
       x(1,2) =x(k,2) 
       x(k,2) = tmp2
       
       call mkheap(n, x, int(1,8), k-1, tmp)
    end do

    return
  end subroutine hsort

  subroutine mkheap(n, x, root, leaf, val)
    implicit none
    integer(8), intent(IN)    :: n, root, leaf
    integer(8), intent(INOUT) :: x(1:n,2)
    integer(8), intent(IN)    :: val
    ! local
    integer(8) :: i, j
    integer(8) :: tmp

    i = root
    j = i * 2

    do
       if (j > leaf) exit

       if (j < leaf) then
          if (x(j,1) < x(j+1,1)) j = j + 1
       end if

       if (x(j,1) > val) then
          x(i,1) = x(j,1)
          tmp = x(j,2)
          x(j,2) = x(i,2)
          x(i,2) = tmp
          i = j
          j = i * 2
       else
          j = leaf + 1
       endif
    end do

    x(i,1) = val

    return
  end subroutine mkheap
  
 end program main

; 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
@_QFEa2 = internal unnamed_addr global { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] } { ptr null, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64), i32 20180515, i8 2, i8 10, i8 2, i8 0, [2 x [3 x i64]] [[3 x i64] [i64 1, i64 0, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64)], [3 x i64] [i64 1, i64 0, i64 0]] }
@_QFEb.0 = internal unnamed_addr global ptr null
@_QQcl.ca5012dbcd59f3aabcce077cd7b755bc = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_4765/source.f\00"
@_QQcl.28693029 = linkonce constant [4 x i8] c"(i0)"
@_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: noreturn
define void @_QQmain() local_unnamed_addr #1 {
  %1 = alloca i64, align 8
  %2 = alloca i64, align 8
  %3 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.ca5012dbcd59f3aabcce077cd7b755bc, i32 9)
  %4 = call i1 @_FortranAioInputInteger(ptr %3, ptr nonnull %2, i32 8)
  %5 = call i1 @_FortranAioInputInteger(ptr %3, ptr nonnull %1, i32 8)
  %6 = call i32 @_FortranAioEndIoStatement(ptr %3)
  %7 = load i64, ptr %2, align 8, !tbaa !3
  %8 = call i64 @llvm.smax.i64(i64 %7, i64 0)
  %9 = shl i64 %8, 3
  %10 = call ptr @malloc(i64 %9)
  store ptr %10, ptr @_QFEa.0, align 8, !tbaa !7
  %11 = call ptr @malloc(i64 %9)
  store ptr %11, ptr @_QFEb.0, align 8, !tbaa !7
  %12 = icmp sgt i64 %7, 0
  br i1 %12, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %0, %.lr.ph
  %13 = phi i64 [ %22, %.lr.ph ], [ 1, %0 ]
  %14 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.ca5012dbcd59f3aabcce077cd7b755bc, i32 12)
  %.unpack449 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %15 = add i64 %13, -1
  %16 = getelementptr i64, ptr %.unpack449, i64 %15
  %17 = call i1 @_FortranAioInputInteger(ptr %14, ptr %16, i32 8)
  %.unpack461 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  %18 = add i64 %13, -1
  %19 = getelementptr i64, ptr %.unpack461, i64 %18
  %20 = call i1 @_FortranAioInputInteger(ptr %14, ptr %19, i32 8)
  %21 = call i32 @_FortranAioEndIoStatement(ptr %14)
  %22 = add nuw i64 %13, 1
  %exitcond.not = icmp eq i64 %13, %7
  br i1 %exitcond.not, label %._crit_edge.loopexit, label %.lr.ph

._crit_edge.loopexit:                             ; preds = %.lr.ph
  %.pre = load i64, ptr %2, align 8, !tbaa !3
  %.unpack.pre = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %.pre500 = call i64 @llvm.smax.i64(i64 %.pre, i64 0)
  %.pre501 = shl i64 %.pre500, 3
  br label %._crit_edge

._crit_edge:                                      ; preds = %._crit_edge.loopexit, %0
  %.pre-phi502 = phi i64 [ %.pre501, %._crit_edge.loopexit ], [ %9, %0 ]
  %.pre-phi = phi i64 [ %.pre500, %._crit_edge.loopexit ], [ %8, %0 ]
  %.unpack = phi ptr [ %.unpack.pre, %._crit_edge.loopexit ], [ %10, %0 ]
  %23 = phi i64 [ %.pre, %._crit_edge.loopexit ], [ %7, %0 ]
  %24 = shl i64 %.pre-phi, 4
  %25 = call ptr @malloc(i64 %24)
  %26 = ptrtoint ptr %25 to i64
  store ptr %25, ptr @_QFEa2, align 16, !tbaa !7
  store i64 8, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 1), align 8, !tbaa !7
  store i32 20180515, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 2), align 16, !tbaa !7
  store i8 2, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 3), align 4, !tbaa !7
  store i8 10, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 4), align 1, !tbaa !7
  store i8 2, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 5), align 2, !tbaa !7
  store i8 0, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 6), align 1, !tbaa !7
  store i64 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7), align 8, !tbaa !7
  store i64 %.pre-phi, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7, i64 0, i64 1), align 16, !tbaa !7
  store i64 8, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7, i64 0, i64 2), align 8, !tbaa !7
  store i64 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7, i64 1), align 16, !tbaa !7
  store i64 2, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7, i64 1, i64 1), align 8, !tbaa !7
  store i64 %.pre-phi502, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr @_QFEa2, i64 0, i32 7, i64 1, i64 2), align 16, !tbaa !7
  %.not489 = icmp slt i64 %23, 1
  br i1 %.not489, label %._crit_edge482.thread, label %.lr.ph478.preheader

.lr.ph478.preheader:                              ; preds = %._crit_edge
  %.unpack514 = ptrtoint ptr %.unpack to i64
  %min.iters.check = icmp ult i64 %.pre-phi, 6
  %27 = sub i64 %26, %.unpack514
  %diff.check = icmp ult i64 %27, 32
  %or.cond = select i1 %min.iters.check, i1 true, i1 %diff.check
  br i1 %or.cond, label %.lr.ph478.preheader538, label %vector.ph

vector.ph:                                        ; preds = %.lr.ph478.preheader
  %n.vec = and i64 %.pre-phi, 9223372036854775804
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %28 = getelementptr i64, ptr %.unpack, i64 %index
  %wide.load = load <2 x i64>, ptr %28, align 8, !tbaa !3
  %29 = getelementptr i64, ptr %28, i64 2
  %wide.load515 = load <2 x i64>, ptr %29, align 8, !tbaa !3
  %30 = getelementptr i64, ptr %25, i64 %index
  store <2 x i64> %wide.load, ptr %30, align 8, !tbaa !3
  %31 = getelementptr i64, ptr %30, i64 2
  store <2 x i64> %wide.load515, ptr %31, align 8, !tbaa !3
  %index.next = add nuw i64 %index, 4
  %32 = icmp eq i64 %index.next, %n.vec
  br i1 %32, label %middle.block, label %vector.body, !llvm.loop !9

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %.pre-phi, %n.vec
  br i1 %cmp.n, label %._crit_edge479, label %.lr.ph478.preheader538

.lr.ph478.preheader538:                           ; preds = %.lr.ph478.preheader, %middle.block
  %.ph539 = phi i64 [ 0, %.lr.ph478.preheader ], [ %n.vec, %middle.block ]
  %33 = xor i64 %.ph539, -1
  %34 = add nsw i64 %.pre-phi, %33
  %xtraiter = and i64 %.pre-phi, 3
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %.lr.ph478.prol.loopexit, label %.lr.ph478.prol

.lr.ph478.prol:                                   ; preds = %.lr.ph478.preheader538, %.lr.ph478.prol
  %35 = phi i64 [ %39, %.lr.ph478.prol ], [ %.ph539, %.lr.ph478.preheader538 ]
  %prol.iter = phi i64 [ %prol.iter.next, %.lr.ph478.prol ], [ 0, %.lr.ph478.preheader538 ]
  %36 = getelementptr i64, ptr %.unpack, i64 %35
  %37 = load i64, ptr %36, align 8, !tbaa !3
  %38 = getelementptr i64, ptr %25, i64 %35
  store i64 %37, ptr %38, align 8, !tbaa !3
  %39 = add nuw nsw i64 %35, 1
  %prol.iter.next = add i64 %prol.iter, 1
  %prol.iter.cmp.not = icmp eq i64 %prol.iter.next, %xtraiter
  br i1 %prol.iter.cmp.not, label %.lr.ph478.prol.loopexit, label %.lr.ph478.prol, !llvm.loop !12

.lr.ph478.prol.loopexit:                          ; preds = %.lr.ph478.prol, %.lr.ph478.preheader538
  %.unr = phi i64 [ %.ph539, %.lr.ph478.preheader538 ], [ %39, %.lr.ph478.prol ]
  %40 = icmp ult i64 %34, 3
  br i1 %40, label %._crit_edge479, label %.lr.ph478

.lr.ph478:                                        ; preds = %.lr.ph478.prol.loopexit, %.lr.ph478
  %41 = phi i64 [ %57, %.lr.ph478 ], [ %.unr, %.lr.ph478.prol.loopexit ]
  %42 = getelementptr i64, ptr %.unpack, i64 %41
  %43 = load i64, ptr %42, align 8, !tbaa !3
  %44 = getelementptr i64, ptr %25, i64 %41
  store i64 %43, ptr %44, align 8, !tbaa !3
  %45 = add nuw nsw i64 %41, 1
  %46 = getelementptr i64, ptr %.unpack, i64 %45
  %47 = load i64, ptr %46, align 8, !tbaa !3
  %48 = getelementptr i64, ptr %25, i64 %45
  store i64 %47, ptr %48, align 8, !tbaa !3
  %49 = add nuw nsw i64 %41, 2
  %50 = getelementptr i64, ptr %.unpack, i64 %49
  %51 = load i64, ptr %50, align 8, !tbaa !3
  %52 = getelementptr i64, ptr %25, i64 %49
  store i64 %51, ptr %52, align 8, !tbaa !3
  %53 = add nuw nsw i64 %41, 3
  %54 = getelementptr i64, ptr %.unpack, i64 %53
  %55 = load i64, ptr %54, align 8, !tbaa !3
  %56 = getelementptr i64, ptr %25, i64 %53
  store i64 %55, ptr %56, align 8, !tbaa !3
  %57 = add nuw nsw i64 %41, 4
  %exitcond496.not.3 = icmp eq i64 %57, %.pre-phi
  br i1 %exitcond496.not.3, label %._crit_edge479, label %.lr.ph478, !llvm.loop !14

._crit_edge479:                                   ; preds = %.lr.ph478.prol.loopexit, %.lr.ph478, %middle.block
  %.unpack404 = load ptr, ptr @_QFEb.0, align 8, !tbaa !7
  %.unpack404517 = ptrtoint ptr %.unpack404 to i64
  br i1 %.not489, label %._crit_edge482.thread, label %.lr.ph481.preheader

.lr.ph481.preheader:                              ; preds = %._crit_edge479
  %min.iters.check521 = icmp ult i64 %.pre-phi, 8
  br i1 %min.iters.check521, label %.lr.ph481.preheader537, label %vector.memcheck516

vector.memcheck516:                               ; preds = %.lr.ph481.preheader
  %58 = shl i64 %.pre-phi, 3
  %59 = add i64 %58, %26
  %60 = sub i64 %59, %.unpack404517
  %diff.check518 = icmp ult i64 %60, 32
  br i1 %diff.check518, label %.lr.ph481.preheader537, label %vector.ph522

vector.ph522:                                     ; preds = %vector.memcheck516
  %n.vec524 = and i64 %.pre-phi, 9223372036854775804
  br label %vector.body527

vector.body527:                                   ; preds = %vector.body527, %vector.ph522
  %index528 = phi i64 [ 0, %vector.ph522 ], [ %index.next531, %vector.body527 ]
  %61 = getelementptr i64, ptr %.unpack404, i64 %index528
  %wide.load529 = load <2 x i64>, ptr %61, align 8, !tbaa !3
  %62 = getelementptr i64, ptr %61, i64 2
  %wide.load530 = load <2 x i64>, ptr %62, align 8, !tbaa !3
  %63 = add nuw i64 %index528, %.pre-phi
  %64 = getelementptr i64, ptr %25, i64 %63
  store <2 x i64> %wide.load529, ptr %64, align 8, !tbaa !3
  %65 = getelementptr i64, ptr %64, i64 2
  store <2 x i64> %wide.load530, ptr %65, align 8, !tbaa !3
  %index.next531 = add nuw i64 %index528, 4
  %66 = icmp eq i64 %index.next531, %n.vec524
  br i1 %66, label %middle.block519, label %vector.body527, !llvm.loop !15

middle.block519:                                  ; preds = %vector.body527
  %cmp.n526 = icmp eq i64 %.pre-phi, %n.vec524
  br i1 %cmp.n526, label %._crit_edge482, label %.lr.ph481.preheader537

.lr.ph481.preheader537:                           ; preds = %vector.memcheck516, %.lr.ph481.preheader, %middle.block519
  %.ph = phi i64 [ 0, %vector.memcheck516 ], [ 0, %.lr.ph481.preheader ], [ %n.vec524, %middle.block519 ]
  %67 = xor i64 %.ph, -1
  %68 = add nsw i64 %.pre-phi, %67
  %xtraiter540 = and i64 %.pre-phi, 3
  %lcmp.mod541.not = icmp eq i64 %xtraiter540, 0
  br i1 %lcmp.mod541.not, label %.lr.ph481.prol.loopexit, label %.lr.ph481.prol

.lr.ph481.prol:                                   ; preds = %.lr.ph481.preheader537, %.lr.ph481.prol
  %69 = phi i64 [ %74, %.lr.ph481.prol ], [ %.ph, %.lr.ph481.preheader537 ]
  %prol.iter542 = phi i64 [ %prol.iter542.next, %.lr.ph481.prol ], [ 0, %.lr.ph481.preheader537 ]
  %70 = getelementptr i64, ptr %.unpack404, i64 %69
  %71 = load i64, ptr %70, align 8, !tbaa !3
  %72 = add nuw i64 %69, %.pre-phi
  %73 = getelementptr i64, ptr %25, i64 %72
  store i64 %71, ptr %73, align 8, !tbaa !3
  %74 = add nuw nsw i64 %69, 1
  %prol.iter542.next = add i64 %prol.iter542, 1
  %prol.iter542.cmp.not = icmp eq i64 %prol.iter542.next, %xtraiter540
  br i1 %prol.iter542.cmp.not, label %.lr.ph481.prol.loopexit, label %.lr.ph481.prol, !llvm.loop !16

.lr.ph481.prol.loopexit:                          ; preds = %.lr.ph481.prol, %.lr.ph481.preheader537
  %.unr543 = phi i64 [ %.ph, %.lr.ph481.preheader537 ], [ %74, %.lr.ph481.prol ]
  %75 = icmp ult i64 %68, 3
  br i1 %75, label %._crit_edge482, label %.lr.ph481

.lr.ph481:                                        ; preds = %.lr.ph481.prol.loopexit, %.lr.ph481
  %76 = phi i64 [ %96, %.lr.ph481 ], [ %.unr543, %.lr.ph481.prol.loopexit ]
  %77 = getelementptr i64, ptr %.unpack404, i64 %76
  %78 = load i64, ptr %77, align 8, !tbaa !3
  %79 = add nuw i64 %76, %.pre-phi
  %80 = getelementptr i64, ptr %25, i64 %79
  store i64 %78, ptr %80, align 8, !tbaa !3
  %81 = add nuw nsw i64 %76, 1
  %82 = getelementptr i64, ptr %.unpack404, i64 %81
  %83 = load i64, ptr %82, align 8, !tbaa !3
  %84 = add nuw i64 %81, %.pre-phi
  %85 = getelementptr i64, ptr %25, i64 %84
  store i64 %83, ptr %85, align 8, !tbaa !3
  %86 = add nuw nsw i64 %76, 2
  %87 = getelementptr i64, ptr %.unpack404, i64 %86
  %88 = load i64, ptr %87, align 8, !tbaa !3
  %89 = add nuw i64 %86, %.pre-phi
  %90 = getelementptr i64, ptr %25, i64 %89
  store i64 %88, ptr %90, align 8, !tbaa !3
  %91 = add nuw nsw i64 %76, 3
  %92 = getelementptr i64, ptr %.unpack404, i64 %91
  %93 = load i64, ptr %92, align 8, !tbaa !3
  %94 = add nuw i64 %91, %.pre-phi
  %95 = getelementptr i64, ptr %25, i64 %94
  store i64 %93, ptr %95, align 8, !tbaa !3
  %96 = add nuw nsw i64 %76, 4
  %exitcond497.not.3 = icmp eq i64 %96, %.pre-phi
  br i1 %exitcond497.not.3, label %._crit_edge482, label %.lr.ph481, !llvm.loop !17

._crit_edge482.thread:                            ; preds = %._crit_edge479, %._crit_edge
  call void @_QFPhsort(ptr nonnull %2, ptr %25)
  br label %.loopexit

._crit_edge482:                                   ; preds = %.lr.ph481.prol.loopexit, %.lr.ph481, %middle.block519
  call void @_QFPhsort(ptr nonnull %2, ptr nonnull %25)
  %97 = icmp sgt i64 %23, 0
  br i1 %97, label %.lr.ph488, label %.loopexit

.lr.ph488:                                        ; preds = %._crit_edge482
  %98 = load i64, ptr %1, align 8, !tbaa !3
  br label %99

99:                                               ; preds = %.lr.ph488, %111
  %.0486 = phi i64 [ 0, %.lr.ph488 ], [ %108, %111 ]
  %.0338485 = phi i64 [ 0, %.lr.ph488 ], [ %104, %111 ]
  %.0339484 = phi i64 [ 1, %.lr.ph488 ], [ %112, %111 ]
  %100 = add nsw i64 %.0339484, -1
  %101 = add nuw i64 %100, %.pre-phi
  %102 = getelementptr i64, ptr %25, i64 %101
  %103 = load i64, ptr %102, align 8, !tbaa !3
  %104 = add i64 %103, %.0338485
  %105 = getelementptr i64, ptr %25, i64 %100
  %106 = load i64, ptr %105, align 8, !tbaa !3
  %107 = mul i64 %106, %103
  %108 = add i64 %107, %.0486
  %.not = icmp sgt i64 %98, %104
  br i1 %.not, label %111, label %109

109:                                              ; preds = %99
  %.neg = sub i64 %98, %104
  %.neg448 = mul i64 %.neg, %106
  %110 = add i64 %.neg448, %108
  br label %.loopexit

111:                                              ; preds = %99
  %112 = add nuw i64 %.0339484, 1
  %exitcond498.not = icmp eq i64 %.0339484, %23
  br i1 %exitcond498.not, label %.loopexit, label %99

.loopexit:                                        ; preds = %111, %._crit_edge482.thread, %._crit_edge482, %109
  %.1 = phi i64 [ %110, %109 ], [ 0, %._crit_edge482 ], [ 0, %._crit_edge482.thread ], [ %108, %111 ]
  %113 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.ca5012dbcd59f3aabcce077cd7b755bc, i32 29)
  %114 = call i1 @_FortranAioOutputInteger64(ptr %113, i64 %.1)
  %115 = call i32 @_FortranAioEndIoStatement(ptr %113)
  %116 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable
}

; Function Attrs: nofree nosync nounwind memory(argmem: readwrite)
define void @_QFPhsort(ptr nocapture readonly %0, ptr nocapture %1) local_unnamed_addr #2 {
  %3 = load i64, ptr %0, align 8, !tbaa !3
  %4 = tail call i64 @llvm.smax.i64(i64 %3, i64 0)
  %5 = icmp sgt i64 %3, 1
  br i1 %5, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %2
  %6 = lshr i64 %3, 1
  %7 = getelementptr i64, ptr %1, i64 9223372036854775807
  br label %8

8:                                                ; preds = %.lr.ph, %_QFPmkheap.exit
  %9 = phi i64 [ %6, %.lr.ph ], [ %10, %_QFPmkheap.exit ]
  %10 = add nsw i64 %9, -1
  %11 = getelementptr i64, ptr %1, i64 %10
  %12 = load i64, ptr %11, align 8, !tbaa !3
  %13 = load i64, ptr %0, align 8, !tbaa !3
  %14 = tail call i64 @llvm.smax.i64(i64 %13, i64 0)
  %15 = shl nuw i64 %9, 1
  %16 = icmp sgt i64 %15, %13
  br i1 %16, label %_QFPmkheap.exit, label %.lr.ph.i

.lr.ph.i:                                         ; preds = %8, %.outer.i
  %17 = phi i64 [ %52, %.outer.i ], [ %13, %8 ]
  %.0.ph23.i = phi i64 [ %.1.lcssa.i, %.outer.i ], [ %9, %8 ]
  %.016.ph22.i = phi i64 [ %51, %.outer.i ], [ %15, %8 ]
  %18 = add i64 %17, 1
  %19 = icmp slt i64 %.016.ph22.i, %17
  br i1 %19, label %20, label %28

20:                                               ; preds = %.lr.ph.i
  %21 = add i64 %.016.ph22.i, -1
  %22 = getelementptr i64, ptr %1, i64 %21
  %23 = load i64, ptr %22, align 8, !tbaa !3
  %24 = getelementptr i64, ptr %1, i64 %.016.ph22.i
  %25 = load i64, ptr %24, align 8, !tbaa !3
  %26 = icmp slt i64 %23, %25
  %27 = zext i1 %26 to i64
  %spec.select.peel.i = or i64 %.016.ph22.i, %27
  br label %28

28:                                               ; preds = %20, %.lr.ph.i
  %.1.peel.i = phi i64 [ %.016.ph22.i, %.lr.ph.i ], [ %spec.select.peel.i, %20 ]
  %29 = add i64 %.1.peel.i, -1
  %30 = getelementptr i64, ptr %1, i64 %29
  %31 = load i64, ptr %30, align 8, !tbaa !3
  %32 = icmp sgt i64 %31, %12
  br i1 %32, label %.outer.i, label %33

33:                                               ; preds = %28
  %.not.peel.i = icmp eq i64 %17, 9223372036854775807
  br i1 %.not.peel.i, label %.peel.next.i, label %_QFPmkheap.exit.loopexit

.peel.next.i:                                     ; preds = %33
  %34 = load i64, ptr %7, align 8, !tbaa !3
  %35 = getelementptr i64, ptr %1, i64 %18
  %36 = load i64, ptr %35, align 8, !tbaa !3
  %37 = icmp slt i64 %34, %36
  %38 = select i1 %37, i64 -9223372036854775808, i64 9223372036854775807
  %39 = getelementptr i64, ptr %1, i64 %38
  %40 = load i64, ptr %39, align 8, !tbaa !3
  %41 = icmp sgt i64 %40, %12
  br i1 %41, label %.outer.loopexit.i, label %.peel.next.i.split

.peel.next.i.split:                               ; preds = %.peel.next.i, %.peel.next.i.split
  br label %.peel.next.i.split

.outer.loopexit.i:                                ; preds = %.peel.next.i
  %42 = zext i1 %37 to i64
  %spec.select.le.i = add nuw nsw i64 %18, %42
  br label %.outer.i

.outer.i:                                         ; preds = %.outer.loopexit.i, %28
  %.1.lcssa.i = phi i64 [ %.1.peel.i, %28 ], [ %spec.select.le.i, %.outer.loopexit.i ]
  %.lcssa27.i = phi i64 [ %29, %28 ], [ %38, %.outer.loopexit.i ]
  %.lcssa.i = phi i64 [ %31, %28 ], [ %40, %.outer.loopexit.i ]
  %43 = add i64 %.0.ph23.i, -1
  %44 = getelementptr i64, ptr %1, i64 %43
  store i64 %.lcssa.i, ptr %44, align 8, !tbaa !3
  %45 = add i64 %.lcssa27.i, %14
  %46 = getelementptr i64, ptr %1, i64 %45
  %47 = load i64, ptr %46, align 8, !tbaa !3
  %48 = add i64 %43, %14
  %49 = getelementptr i64, ptr %1, i64 %48
  %50 = load i64, ptr %49, align 8, !tbaa !3
  store i64 %50, ptr %46, align 8, !tbaa !3
  store i64 %47, ptr %49, align 8, !tbaa !3
  %51 = shl i64 %.1.lcssa.i, 1
  %52 = load i64, ptr %0, align 8, !tbaa !3
  %53 = icmp sgt i64 %51, %52
  br i1 %53, label %_QFPmkheap.exit.loopexit, label %.lr.ph.i

_QFPmkheap.exit.loopexit:                         ; preds = %.outer.i, %33
  %.0.ph.lcssa.i.ph = phi i64 [ %.1.lcssa.i, %.outer.i ], [ %.0.ph23.i, %33 ]
  %.pre35 = add i64 %.0.ph.lcssa.i.ph, -1
  br label %_QFPmkheap.exit

_QFPmkheap.exit:                                  ; preds = %_QFPmkheap.exit.loopexit, %8
  %.pre-phi = phi i64 [ %.pre35, %_QFPmkheap.exit.loopexit ], [ %10, %8 ]
  %54 = getelementptr i64, ptr %1, i64 %.pre-phi
  store i64 %12, ptr %54, align 8, !tbaa !3
  %55 = icmp sgt i64 %9, 1
  br i1 %55, label %8, label %._crit_edge.loopexit

._crit_edge.loopexit:                             ; preds = %_QFPmkheap.exit
  %.pre = load i64, ptr %0, align 8, !tbaa !3
  br label %._crit_edge

._crit_edge:                                      ; preds = %._crit_edge.loopexit, %2
  %56 = phi i64 [ %.pre, %._crit_edge.loopexit ], [ %3, %2 ]
  %.fr = freeze i64 %56
  %57 = add i64 %.fr, -1
  %58 = icmp sgt i64 %57, 0
  br i1 %58, label %.lr.ph31, label %._crit_edge32

.lr.ph31:                                         ; preds = %._crit_edge
  %59 = getelementptr i64, ptr %1, i64 %4
  %60 = getelementptr i64, ptr %1, i64 9223372036854775807
  br label %61

61:                                               ; preds = %.lr.ph31, %_QFPmkheap.exit17
  %62 = phi i64 [ %57, %.lr.ph31 ], [ %131, %_QFPmkheap.exit17 ]
  %63 = phi i64 [ %.fr, %.lr.ph31 ], [ %64, %_QFPmkheap.exit17 ]
  %64 = add i64 %63, -1
  %65 = getelementptr i64, ptr %1, i64 %64
  %66 = load i64, ptr %65, align 8, !tbaa !3
  %67 = load i64, ptr %1, align 8, !tbaa !3
  store i64 %67, ptr %65, align 8, !tbaa !3
  %68 = load i64, ptr %59, align 8, !tbaa !3
  %69 = add i64 %64, %4
  %70 = getelementptr i64, ptr %1, i64 %69
  %71 = load i64, ptr %70, align 8, !tbaa !3
  store i64 %71, ptr %59, align 8, !tbaa !3
  store i64 %68, ptr %70, align 8, !tbaa !3
  %72 = load i64, ptr %0, align 8, !tbaa !3
  %73 = tail call i64 @llvm.smax.i64(i64 %72, i64 0)
  %74 = icmp slt i64 %64, 2
  br i1 %74, label %_QFPmkheap.exit17, label %.lr.ph.preheader.i2

.lr.ph.preheader.i2:                              ; preds = %61
  %.not.peel.i8 = icmp eq i64 %64, 9223372036854775807
  br i1 %.not.peel.i8, label %.lr.ph.i5.us.preheader, label %.lr.ph.i5

.lr.ph.i5.us.preheader:                           ; preds = %.lr.ph.preheader.i2
  %75 = getelementptr i64, ptr %1, i64 %63
  br label %76

76:                                               ; preds = %.outer.i16.us, %.lr.ph.i5.us.preheader
  %.0.ph23.i3.us = phi i64 [ %.1.lcssa.i13.us, %.outer.i16.us ], [ 1, %.lr.ph.i5.us.preheader ]
  %.016.ph22.i4.us = phi i64 [ %104, %.outer.i16.us ], [ 2, %.lr.ph.i5.us.preheader ]
  %77 = add i64 %.016.ph22.i4.us, -1
  %78 = getelementptr i64, ptr %1, i64 %77
  %79 = load i64, ptr %78, align 8, !tbaa !3
  %80 = getelementptr i64, ptr %1, i64 %.016.ph22.i4.us
  %81 = load i64, ptr %80, align 8, !tbaa !3
  %82 = icmp slt i64 %79, %81
  %83 = zext i1 %82 to i64
  %spec.select.peel.i6.us = or i64 %.016.ph22.i4.us, %83
  %84 = add i64 %spec.select.peel.i6.us, -1
  %85 = getelementptr i64, ptr %1, i64 %84
  %86 = load i64, ptr %85, align 8, !tbaa !3
  %87 = icmp sgt i64 %86, %66
  br i1 %87, label %.outer.i16.us, label %.peel.next.i9.us

.peel.next.i9.us:                                 ; preds = %76
  %88 = load i64, ptr %60, align 8, !tbaa !3
  %89 = load i64, ptr %75, align 8, !tbaa !3
  %90 = icmp slt i64 %88, %89
  %91 = select i1 %90, i64 -9223372036854775808, i64 9223372036854775807
  %92 = getelementptr i64, ptr %1, i64 %91
  %93 = load i64, ptr %92, align 8, !tbaa !3
  %94 = icmp sgt i64 %93, %66
  br i1 %94, label %.outer.loopexit.i12.us, label %.peel.next.i9.split

.outer.loopexit.i12.us:                           ; preds = %.peel.next.i9.us
  %95 = zext i1 %90 to i64
  %spec.select.le.i11.us = add nsw i64 %63, %95
  br label %.outer.i16.us

.outer.i16.us:                                    ; preds = %.outer.loopexit.i12.us, %76
  %.1.lcssa.i13.us = phi i64 [ %spec.select.peel.i6.us, %76 ], [ %spec.select.le.i11.us, %.outer.loopexit.i12.us ]
  %.lcssa27.i14.us = phi i64 [ %84, %76 ], [ %91, %.outer.loopexit.i12.us ]
  %.lcssa.i15.us = phi i64 [ %86, %76 ], [ %93, %.outer.loopexit.i12.us ]
  %96 = add i64 %.0.ph23.i3.us, -1
  %97 = getelementptr i64, ptr %1, i64 %96
  store i64 %.lcssa.i15.us, ptr %97, align 8, !tbaa !3
  %98 = add i64 %.lcssa27.i14.us, %73
  %99 = getelementptr i64, ptr %1, i64 %98
  %100 = load i64, ptr %99, align 8, !tbaa !3
  %101 = add i64 %96, %73
  %102 = getelementptr i64, ptr %1, i64 %101
  %103 = load i64, ptr %102, align 8, !tbaa !3
  store i64 %103, ptr %99, align 8, !tbaa !3
  store i64 %100, ptr %102, align 8, !tbaa !3
  %104 = shl i64 %.1.lcssa.i13.us, 1
  br label %76

.lr.ph.i5:                                        ; preds = %.lr.ph.preheader.i2, %.outer.i16
  %.0.ph23.i3 = phi i64 [ %.1.peel.i7, %.outer.i16 ], [ 1, %.lr.ph.preheader.i2 ]
  %.016.ph22.i4 = phi i64 [ %127, %.outer.i16 ], [ 2, %.lr.ph.preheader.i2 ]
  %105 = icmp slt i64 %.016.ph22.i4, %64
  br i1 %105, label %106, label %114

106:                                              ; preds = %.lr.ph.i5
  %107 = add i64 %.016.ph22.i4, -1
  %108 = getelementptr i64, ptr %1, i64 %107
  %109 = load i64, ptr %108, align 8, !tbaa !3
  %110 = getelementptr i64, ptr %1, i64 %.016.ph22.i4
  %111 = load i64, ptr %110, align 8, !tbaa !3
  %112 = icmp slt i64 %109, %111
  %113 = zext i1 %112 to i64
  %spec.select.peel.i6 = or i64 %.016.ph22.i4, %113
  br label %114

114:                                              ; preds = %106, %.lr.ph.i5
  %.1.peel.i7 = phi i64 [ %.016.ph22.i4, %.lr.ph.i5 ], [ %spec.select.peel.i6, %106 ]
  %115 = add i64 %.1.peel.i7, -1
  %116 = getelementptr i64, ptr %1, i64 %115
  %117 = load i64, ptr %116, align 8, !tbaa !3
  %118 = icmp sgt i64 %117, %66
  br i1 %118, label %.outer.i16, label %_QFPmkheap.exit17

.peel.next.i9.split:                              ; preds = %.peel.next.i9.us, %.peel.next.i9.split
  br label %.peel.next.i9.split

.outer.i16:                                       ; preds = %114
  %119 = add i64 %.0.ph23.i3, -1
  %120 = getelementptr i64, ptr %1, i64 %119
  store i64 %117, ptr %120, align 8, !tbaa !3
  %121 = add i64 %115, %73
  %122 = getelementptr i64, ptr %1, i64 %121
  %123 = load i64, ptr %122, align 8, !tbaa !3
  %124 = add i64 %119, %73
  %125 = getelementptr i64, ptr %1, i64 %124
  %126 = load i64, ptr %125, align 8, !tbaa !3
  store i64 %126, ptr %122, align 8, !tbaa !3
  store i64 %123, ptr %125, align 8, !tbaa !3
  %127 = shl i64 %.1.peel.i7, 1
  %128 = icmp sgt i64 %127, %64
  br i1 %128, label %_QFPmkheap.exit17, label %.lr.ph.i5

_QFPmkheap.exit17:                                ; preds = %.outer.i16, %114, %61
  %.0.ph.lcssa.i10 = phi i64 [ 1, %61 ], [ %.0.ph23.i3, %114 ], [ %.1.peel.i7, %.outer.i16 ]
  %129 = add i64 %.0.ph.lcssa.i10, -1
  %130 = getelementptr i64, ptr %1, i64 %129
  store i64 %66, ptr %130, align 8, !tbaa !3
  %131 = add i64 %62, -1
  %132 = icmp sgt i64 %131, 0
  br i1 %132, label %61, label %._crit_edge32

._crit_edge32:                                    ; preds = %_QFPmkheap.exit17, %._crit_edge
  ret void
}

; Function Attrs: nofree nosync nounwind memory(argmem: readwrite)
define void @_QFPmkheap(ptr nocapture readonly %0, ptr nocapture %1, ptr nocapture readonly %2, ptr nocapture readonly %3, ptr nocapture readonly %4) local_unnamed_addr #2 {
  %6 = load i64, ptr %0, align 8, !tbaa !3
  %7 = tail call i64 @llvm.smax.i64(i64 %6, i64 0)
  %8 = load i64, ptr %2, align 8, !tbaa !3
  %9 = shl i64 %8, 1
  %10 = load i64, ptr %3, align 8, !tbaa !3
  %11 = icmp sgt i64 %9, %10
  br i1 %11, label %.outer._crit_edge, label %.lr.ph.preheader

.lr.ph.preheader:                                 ; preds = %5
  %12 = getelementptr i64, ptr %1, i64 9223372036854775807
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %.outer
  %13 = phi i64 [ %53, %.outer ], [ %10, %.lr.ph.preheader ]
  %.0.ph23 = phi i64 [ %.1.lcssa, %.outer ], [ %8, %.lr.ph.preheader ]
  %.016.ph22 = phi i64 [ %52, %.outer ], [ %9, %.lr.ph.preheader ]
  %14 = load i64, ptr %4, align 8, !tbaa !3
  %15 = add i64 %13, 1
  %16 = icmp slt i64 %.016.ph22, %13
  br i1 %16, label %17, label %25

17:                                               ; preds = %.lr.ph
  %18 = add i64 %.016.ph22, -1
  %19 = getelementptr i64, ptr %1, i64 %18
  %20 = load i64, ptr %19, align 8, !tbaa !3
  %21 = getelementptr i64, ptr %1, i64 %.016.ph22
  %22 = load i64, ptr %21, align 8, !tbaa !3
  %23 = icmp slt i64 %20, %22
  %24 = zext i1 %23 to i64
  %spec.select.peel = or i64 %.016.ph22, %24
  br label %25

25:                                               ; preds = %17, %.lr.ph
  %.1.peel = phi i64 [ %.016.ph22, %.lr.ph ], [ %spec.select.peel, %17 ]
  %26 = add i64 %.1.peel, -1
  %27 = getelementptr i64, ptr %1, i64 %26
  %28 = load i64, ptr %27, align 8, !tbaa !3
  %29 = icmp sgt i64 %28, %14
  br i1 %29, label %.outer, label %30

30:                                               ; preds = %25
  %.not.peel = icmp eq i64 %13, 9223372036854775807
  br i1 %.not.peel, label %.peel.next, label %.outer._crit_edge

.peel.next:                                       ; preds = %30
  %31 = load i64, ptr %12, align 8, !tbaa !3
  %32 = getelementptr i64, ptr %1, i64 %15
  %33 = load i64, ptr %32, align 8, !tbaa !3
  %34 = icmp slt i64 %31, %33
  %35 = zext i1 %34 to i64
  %36 = add i64 %13, %35
  %37 = getelementptr i64, ptr %1, i64 %36
  %38 = load i64, ptr %37, align 8, !tbaa !3
  %39 = icmp sgt i64 %38, %14
  br label %43

.outer._crit_edge:                                ; preds = %.outer, %30, %5
  %.0.ph.lcssa = phi i64 [ %8, %5 ], [ %.1.lcssa, %.outer ], [ %.0.ph23, %30 ]
  %40 = load i64, ptr %4, align 8, !tbaa !3
  %41 = add i64 %.0.ph.lcssa, -1
  %42 = getelementptr i64, ptr %1, i64 %41
  store i64 %40, ptr %42, align 8, !tbaa !3
  ret void

43:                                               ; preds = %43, %.peel.next
  br i1 %39, label %.outer.loopexit, label %43

.outer.loopexit:                                  ; preds = %43
  %spec.select.le = add nsw i64 %15, %35
  br label %.outer

.outer:                                           ; preds = %.outer.loopexit, %25
  %.1.lcssa = phi i64 [ %.1.peel, %25 ], [ %spec.select.le, %.outer.loopexit ]
  %.lcssa27 = phi i64 [ %26, %25 ], [ %36, %.outer.loopexit ]
  %.lcssa = phi i64 [ %28, %25 ], [ %38, %.outer.loopexit ]
  %44 = add i64 %.0.ph23, -1
  %45 = getelementptr i64, ptr %1, i64 %44
  store i64 %.lcssa, ptr %45, align 8, !tbaa !3
  %46 = add i64 %.lcssa27, %7
  %47 = getelementptr i64, ptr %1, i64 %46
  %48 = load i64, ptr %47, align 8, !tbaa !3
  %49 = add i64 %44, %7
  %50 = getelementptr i64, ptr %1, i64 %49
  %51 = load i64, ptr %50, align 8, !tbaa !3
  store i64 %51, ptr %47, align 8, !tbaa !3
  store i64 %48, ptr %50, align 8, !tbaa !3
  %52 = shl i64 %.1.lcssa, 1
  %53 = load i64, ptr %3, align 8, !tbaa !3
  %54 = icmp sgt i64 %52, %53
  br i1 %54, label %.outer._crit_edge, label %.lr.ph
}

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 @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, 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) #3

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { noreturn }
attributes #2 = { nofree nosync nounwind memory(argmem: readwrite) }
attributes #3 = { 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, !11}
!10 = !{!"llvm.loop.isvectorized", i32 1}
!11 = !{!"llvm.loop.unroll.runtime.disable"}
!12 = distinct !{!12, !13}
!13 = !{!"llvm.loop.unroll.disable"}
!14 = distinct !{!14, !10}
!15 = distinct !{!15, !10, !11}
!16 = distinct !{!16, !13}
!17 = distinct !{!17, !10}
