program main
implicit None
integer(8)::n,k,t,i,p
integer(8),allocatable::h(:)
	read *,n,k
	allocate(h(n))
	
	do i = 1,n
	read *,h(i)
	enddo
	
	call hsort(h,n)
	
	do i = 1,n-k+1
		p = h(i+k-1) - h(i)
		if(t > p .or. i == 1)then
			t = p
		endif
	enddo
	
	print 101,t
	
101 format(i0)
end program main

subroutine makeheap(a,n)
Implicit None
	integer(8)::n,i,c1,c2,p,t,m
	integer(8)::a(n)
	
	do i = n/2,1,-1
		p = i; c1 = i * 2
		do while (c1 <= n)
			c2 = c1 + 1
			if(c2 <= n .and. a(c2) > a(c1)) c1 = c2
			if(a(p) < a(c1))then
				t = a(p)
				a(p) = a(c1)
				a(c1) = t
				p = c1
				c1 = p*2
				else
					exit
			endif
		enddo
	enddo
	
end subroutine makeheap

subroutine hsort(a,n)
Implicit None
	integer(8)::n,t,i,p,c1,c2,j
	integer(8)::a(n)
	
	call makeheap(a,n)
	
	do i = n,2,-1
		t = a(i)
		a(i) = a(1)
		a(1) = t
		
		p = 1
		do
			c1 = p*2
			if (c1 >= i) exit
			
			c2 = c1 +1
			if(c2 < i .and. a(c2) > a(c1))then
					c1 = c2
			endif
			
			if(a(c1) >a(p))then
				t = a(p)
				a(p) = a(c1)
				a(c1) = t
				p = c1
				else
					exit
			endif
		enddo
	enddo
end subroutine hsort
; 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"

@_QFEh.0 = internal unnamed_addr global ptr null
@_QQcl.1ef9b3e955e3bae9fe31662865d1ec4f = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_5302/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

define void @_QQmain() local_unnamed_addr {
  %1 = alloca i64, align 8
  %2 = alloca i64, align 8
  %3 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.1ef9b3e955e3bae9fe31662865d1ec4f, i32 5)
  %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 @_QFEh.0, align 8, !tbaa !7
  %11 = icmp sgt i64 %7, 0
  br i1 %11, label %.lr.ph, label %._crit_edge

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

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

._crit_edge:                                      ; preds = %._crit_edge.loopexit, %0
  %.unpack = phi ptr [ %.unpack.pre, %._crit_edge.loopexit ], [ %10, %0 ]
  call void @hsort_(ptr %.unpack, ptr nonnull %2)
  %19 = load i64, ptr %2, align 8, !tbaa !3
  %20 = load i64, ptr %1, align 8, !tbaa !3
  %21 = add i64 %19, 1
  %22 = sub i64 %21, %20
  %23 = icmp sgt i64 %22, 0
  br i1 %23, label %.lr.ph123, label %._crit_edge124

.lr.ph123:                                        ; preds = %._crit_edge
  %xtraiter = and i64 %22, 1
  %24 = icmp eq i64 %19, %20
  br i1 %24, label %._crit_edge124.loopexit.unr-lcssa, label %.lr.ph123.new

.lr.ph123.new:                                    ; preds = %.lr.ph123
  %unroll_iter = and i64 %22, -2
  br label %25

25:                                               ; preds = %25, %.lr.ph123.new
  %26 = phi i64 [ 1, %.lr.ph123.new ], [ %46, %25 ]
  %.0121 = phi i64 [ undef, %.lr.ph123.new ], [ %spec.select.1, %25 ]
  %niter = phi i64 [ 0, %.lr.ph123.new ], [ %niter.next.1, %25 ]
  %27 = add i64 %26, %20
  %28 = add i64 %27, -2
  %29 = getelementptr i64, ptr %.unpack, i64 %28
  %30 = load i64, ptr %29, align 8, !tbaa !3
  %31 = add nsw i64 %26, -1
  %32 = getelementptr i64, ptr %.unpack, i64 %31
  %33 = load i64, ptr %32, align 8, !tbaa !3
  %34 = sub i64 %30, %33
  %35 = icmp sgt i64 %.0121, %34
  %36 = icmp eq i64 %26, 1
  %37 = or i1 %36, %35
  %spec.select = select i1 %37, i64 %34, i64 %.0121
  %38 = add nuw i64 %26, 1
  %39 = add i64 %38, %20
  %40 = add i64 %39, -2
  %41 = getelementptr i64, ptr %.unpack, i64 %40
  %42 = load i64, ptr %41, align 8, !tbaa !3
  %43 = getelementptr i64, ptr %.unpack, i64 %26
  %44 = load i64, ptr %43, align 8, !tbaa !3
  %45 = sub i64 %42, %44
  %spec.select.1 = call i64 @llvm.smin.i64(i64 %spec.select, i64 %45)
  %46 = add nuw i64 %26, 2
  %niter.next.1 = add i64 %niter, 2
  %niter.ncmp.1 = icmp eq i64 %niter.next.1, %unroll_iter
  br i1 %niter.ncmp.1, label %._crit_edge124.loopexit.unr-lcssa, label %25

._crit_edge124.loopexit.unr-lcssa:                ; preds = %25, %.lr.ph123
  %.unr = phi i64 [ 1, %.lr.ph123 ], [ %46, %25 ]
  %.0121.unr = phi i64 [ undef, %.lr.ph123 ], [ %spec.select.1, %25 ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %._crit_edge124, label %._crit_edge124.loopexit.epilog-lcssa

._crit_edge124.loopexit.epilog-lcssa:             ; preds = %._crit_edge124.loopexit.unr-lcssa
  %47 = add i64 %.unr, %20
  %48 = add i64 %47, -2
  %49 = getelementptr i64, ptr %.unpack, i64 %48
  %50 = load i64, ptr %49, align 8, !tbaa !3
  %51 = add i64 %.unr, -1
  %52 = getelementptr i64, ptr %.unpack, i64 %51
  %53 = load i64, ptr %52, align 8, !tbaa !3
  %54 = sub i64 %50, %53
  %55 = icmp sgt i64 %.0121.unr, %54
  %56 = icmp eq i64 %.unr, 1
  %57 = or i1 %56, %55
  %spec.select.epil = select i1 %57, i64 %54, i64 %.0121.unr
  br label %._crit_edge124

._crit_edge124:                                   ; preds = %._crit_edge124.loopexit.epilog-lcssa, %._crit_edge124.loopexit.unr-lcssa, %._crit_edge
  %.0.lcssa = phi i64 [ undef, %._crit_edge ], [ %.0121.unr, %._crit_edge124.loopexit.unr-lcssa ], [ %spec.select.epil, %._crit_edge124.loopexit.epilog-lcssa ]
  %58 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.1ef9b3e955e3bae9fe31662865d1ec4f, i32 21)
  %59 = call i1 @_FortranAioOutputInteger64(ptr %58, i64 %.0.lcssa)
  %60 = call i32 @_FortranAioEndIoStatement(ptr %58)
  ret void
}

; Function Attrs: nofree norecurse nosync nounwind memory(argmem: readwrite)
define void @makeheap_(ptr nocapture %0, ptr nocapture readonly %1) local_unnamed_addr #1 {
  %3 = load i64, ptr %1, align 8, !tbaa !3
  %4 = icmp sgt i64 %3, 1
  br i1 %4, label %.preheader.preheader, label %._crit_edge33

.preheader.preheader:                             ; preds = %2
  %5 = lshr i64 %3, 1
  br label %.preheader

.preheader:                                       ; preds = %.preheader.preheader, %._crit_edge
  %6 = phi i64 [ %26, %._crit_edge ], [ %3, %.preheader.preheader ]
  %.032 = phi i64 [ %27, %._crit_edge ], [ %5, %.preheader.preheader ]
  %.02126 = shl nuw i64 %.032, 1
  %.not27 = icmp sgt i64 %.02126, %6
  br i1 %.not27, label %._crit_edge, label %.lr.ph

.lr.ph:                                           ; preds = %.preheader, %24
  %7 = phi i64 [ %25, %24 ], [ %6, %.preheader ]
  %.02129 = phi i64 [ %.021, %24 ], [ %.02126, %.preheader ]
  %.01928 = phi i64 [ %spec.select, %24 ], [ %.032, %.preheader ]
  %8 = or i64 %.02129, 1
  %9 = icmp sle i64 %8, %7
  %10 = getelementptr i64, ptr %0, i64 %.02129
  %11 = load i64, ptr %10, align 8, !tbaa !3
  %12 = add i64 %.02129, -1
  %13 = getelementptr i64, ptr %0, i64 %12
  %14 = load i64, ptr %13, align 8, !tbaa !3
  %15 = icmp sgt i64 %11, %14
  %16 = and i1 %9, %15
  %spec.select = select i1 %16, i64 %8, i64 %.02129
  %17 = add i64 %.01928, -1
  %18 = getelementptr i64, ptr %0, i64 %17
  %19 = load i64, ptr %18, align 8, !tbaa !3
  %20 = add i64 %spec.select, -1
  %21 = getelementptr i64, ptr %0, i64 %20
  %22 = load i64, ptr %21, align 8, !tbaa !3
  %23 = icmp slt i64 %19, %22
  br i1 %23, label %24, label %._crit_edge

24:                                               ; preds = %.lr.ph
  store i64 %22, ptr %18, align 8, !tbaa !3
  store i64 %19, ptr %21, align 8, !tbaa !3
  %.021 = shl i64 %spec.select, 1
  %25 = load i64, ptr %1, align 8, !tbaa !3
  %.not = icmp sgt i64 %.021, %25
  br i1 %.not, label %._crit_edge, label %.lr.ph

._crit_edge:                                      ; preds = %24, %.lr.ph, %.preheader
  %26 = phi i64 [ %6, %.preheader ], [ %25, %24 ], [ %7, %.lr.ph ]
  %27 = add nsw i64 %.032, -1
  %28 = icmp sgt i64 %.032, 1
  br i1 %28, label %.preheader, label %._crit_edge33

._crit_edge33:                                    ; preds = %._crit_edge, %2
  ret void
}

; Function Attrs: nofree norecurse nosync nounwind memory(argmem: readwrite)
define void @hsort_(ptr nocapture %0, ptr nocapture readonly %1) local_unnamed_addr #1 {
  %3 = load i64, ptr %1, align 8, !tbaa !3
  %4 = icmp sgt i64 %3, 1
  br i1 %4, label %.preheader.preheader.i, label %makeheap_.exit

.preheader.preheader.i:                           ; preds = %2
  %5 = lshr i64 %3, 1
  br label %.preheader.i

.preheader.i:                                     ; preds = %._crit_edge.i, %.preheader.preheader.i
  %6 = phi i64 [ %26, %._crit_edge.i ], [ %3, %.preheader.preheader.i ]
  %.032.i = phi i64 [ %27, %._crit_edge.i ], [ %5, %.preheader.preheader.i ]
  %.02126.i = shl nuw i64 %.032.i, 1
  %.not27.i = icmp sgt i64 %.02126.i, %6
  br i1 %.not27.i, label %._crit_edge.i, label %.lr.ph.i

.lr.ph.i:                                         ; preds = %.preheader.i, %24
  %7 = phi i64 [ %25, %24 ], [ %6, %.preheader.i ]
  %.02129.i = phi i64 [ %.021.i, %24 ], [ %.02126.i, %.preheader.i ]
  %.01928.i = phi i64 [ %spec.select.i, %24 ], [ %.032.i, %.preheader.i ]
  %8 = or i64 %.02129.i, 1
  %9 = icmp sle i64 %8, %7
  %10 = getelementptr i64, ptr %0, i64 %.02129.i
  %11 = load i64, ptr %10, align 8, !tbaa !3
  %12 = add i64 %.02129.i, -1
  %13 = getelementptr i64, ptr %0, i64 %12
  %14 = load i64, ptr %13, align 8, !tbaa !3
  %15 = icmp sgt i64 %11, %14
  %16 = and i1 %9, %15
  %spec.select.i = select i1 %16, i64 %8, i64 %.02129.i
  %17 = add i64 %.01928.i, -1
  %18 = getelementptr i64, ptr %0, i64 %17
  %19 = load i64, ptr %18, align 8, !tbaa !3
  %20 = add i64 %spec.select.i, -1
  %21 = getelementptr i64, ptr %0, i64 %20
  %22 = load i64, ptr %21, align 8, !tbaa !3
  %23 = icmp slt i64 %19, %22
  br i1 %23, label %24, label %._crit_edge.i

24:                                               ; preds = %.lr.ph.i
  store i64 %22, ptr %18, align 8, !tbaa !3
  store i64 %19, ptr %21, align 8, !tbaa !3
  %.021.i = shl i64 %spec.select.i, 1
  %25 = load i64, ptr %1, align 8, !tbaa !3
  %.not.i = icmp sgt i64 %.021.i, %25
  br i1 %.not.i, label %._crit_edge.i, label %.lr.ph.i

._crit_edge.i:                                    ; preds = %24, %.lr.ph.i, %.preheader.i
  %26 = phi i64 [ %6, %.preheader.i ], [ %7, %.lr.ph.i ], [ %25, %24 ]
  %27 = add nsw i64 %.032.i, -1
  %28 = icmp sgt i64 %.032.i, 1
  br i1 %28, label %.preheader.i, label %makeheap_.exit

makeheap_.exit:                                   ; preds = %._crit_edge.i, %2
  %29 = phi i64 [ %3, %2 ], [ %26, %._crit_edge.i ]
  %.02332 = add i64 %29, -1
  %30 = icmp sgt i64 %.02332, 0
  br i1 %30, label %.lr.ph35, label %._crit_edge36

.lr.ph35:                                         ; preds = %makeheap_.exit, %._crit_edge
  %.02334 = phi i64 [ %.023, %._crit_edge ], [ %.02332, %makeheap_.exit ]
  %.02233 = phi i64 [ %31, %._crit_edge ], [ %29, %makeheap_.exit ]
  %31 = add i64 %.02233, -1
  %32 = getelementptr i64, ptr %0, i64 %31
  %33 = load i64, ptr %32, align 8, !tbaa !3
  %34 = load i64, ptr %0, align 8, !tbaa !3
  store i64 %34, ptr %32, align 8, !tbaa !3
  store i64 %33, ptr %0, align 8, !tbaa !3
  %.not29 = icmp sgt i64 %.02233, 2
  br i1 %.not29, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %.lr.ph35, %49
  %35 = phi i64 [ %52, %49 ], [ 2, %.lr.ph35 ]
  %.030 = phi i64 [ %spec.select, %49 ], [ 1, %.lr.ph35 ]
  %36 = or i64 %35, 1
  %37 = icmp slt i64 %36, %.02233
  %38 = getelementptr i64, ptr %0, i64 %35
  %39 = load i64, ptr %38, align 8, !tbaa !3
  %40 = add i64 %35, -1
  %41 = getelementptr i64, ptr %0, i64 %40
  %42 = load i64, ptr %41, align 8, !tbaa !3
  %43 = icmp sgt i64 %39, %42
  %44 = and i1 %37, %43
  %spec.select = select i1 %44, i64 %36, i64 %35
  %45 = add i64 %spec.select, -1
  %46 = getelementptr i64, ptr %0, i64 %45
  %47 = load i64, ptr %46, align 8, !tbaa !3
  %48 = icmp sgt i64 %47, %33
  br i1 %48, label %49, label %._crit_edge

49:                                               ; preds = %.lr.ph
  %50 = add i64 %.030, -1
  %51 = getelementptr i64, ptr %0, i64 %50
  store i64 %47, ptr %51, align 8, !tbaa !3
  store i64 %33, ptr %46, align 8, !tbaa !3
  %52 = shl i64 %spec.select, 1
  %.not = icmp slt i64 %52, %.02233
  br i1 %.not, label %.lr.ph, label %._crit_edge

._crit_edge:                                      ; preds = %49, %.lr.ph, %.lr.ph35
  %.023 = add i64 %.02334, -1
  %53 = icmp sgt i64 %.023, 0
  br i1 %53, label %.lr.ph35, label %._crit_edge36

._crit_edge36:                                    ; preds = %._crit_edge, %makeheap_.exit
  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 @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, 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) #2

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

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { nofree norecurse nosync nounwind memory(argmem: readwrite) }
attributes #2 = { 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}
