program cake_123
  implicit none
  integer :: x, y, z, k, p, q, r, i
  integer(8) :: a(1000), b(1000), c(1000), d(106307)
  integer :: u, v, w
  a = 0_8
  b = 0_8
  c = 0_8
  d = 0_8
  read(*,*) x, y, z, k
  read(*,*) a(1:x)
  read(*,*) b(1:y)
  read(*,*) c(1:z)
  call merge_sort(x,a(1:x))
  call merge_sort(y,b(1:y))
  call merge_sort(z,c(1:z))
  i = 1
  do p = 1, x
    if (p.gt.k) exit
    do q = 1, y
      if (p*q.gt.k) exit
      do r = 1, z
        if (p*q*r.gt.k) exit
        d(i) = a(p)+b(q)+c(r)
        i = i + 1
      end do
    end do
  end do
  call merge_sort(106307,d)
  do i = 1, k
    write(*,'(i0)') d(i)
  end do
contains
  subroutine merge_sort(n,c)
    implicit none
    integer, intent(in)       :: n
    integer(8), intent(inout) :: c(n)
    integer                   :: num, gth, i, ubnd
    num = n
    gth = 1
    do while (num.gt.1)
      do i = 1, num/2
        ubnd = min(2*i*gth,n)
        call merge(c(2*(i-1)*gth+1:(2*i-1)*gth),c((2*i-1)*gth+1:ubnd))
      end do
      gth = 2*gth
      num = (num+1)/2
    end do
    return
  end subroutine merge_sort
  subroutine merge(c1,c2)
    implicit none
    integer(8), intent(inout) :: c1(:), c2(:)
    integer(8)                :: c(size(c1)+size(c2))
    integer                   :: i1, i2, n1, n2
    i1 = 1
    i2 = 1
    n1 = size(c1)
    n2 = size(c2)
    do while (i1.le.n1.and.i2.le.n2)
      if (c1(i1).ge.c2(i2)) then
        c(i1+i2-1) = c1(i1)
        i1 = i1+1
      else
        c(i1+i2-1) = c2(i2)
        i2 = i2+1
      end if
    end do
    if (i1.le.n1) then
      c(i1+i2-1:n1+n2) = c1(i1:n1)
    else if (i2.le.n2) then
      c(i1+i2-1:n1+n2) = c2(i2:n2)
    end if
    c1 = c(1:n1)
    c2 = c(n1+1:n1+n2)
    return
  end subroutine merge
end program cake_123
; 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 = internal global [1000 x i64] undef
@_QFEb = internal global [1000 x i64] undef
@_QFEc = internal global [1000 x i64] undef
@_QFEd = internal global [106307 x i64] undef
@_QQcl.b34438c4c6888eac2fc19166146bb442 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_4596/source.f\00"
@_QQcl.28693029 = linkonce constant [4 x i8] c"(i0)"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

define void @_QQmain() local_unnamed_addr {
.preheader158.preheader:
  %0 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %1 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %2 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %3 = alloca i32, align 4
  %4 = alloca i32, align 4
  %5 = alloca i32, align 4
  %6 = alloca i32, align 4
  %7 = alloca i32, align 4
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(8000) @_QFEa, i8 0, i64 8000, i1 false), !tbaa !3
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(8000) @_QFEb, i8 0, i64 8000, i1 false), !tbaa !3
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(8000) @_QFEc, i8 0, i64 8000, i1 false), !tbaa !3
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(850456) @_QFEd, i8 0, i64 850456, i1 false), !tbaa !3
  %8 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.b34438c4c6888eac2fc19166146bb442, i32 10)
  %9 = call i1 @_FortranAioInputInteger(ptr %8, ptr nonnull %5, i32 4)
  %10 = call i1 @_FortranAioInputInteger(ptr %8, ptr nonnull %6, i32 4)
  %11 = call i1 @_FortranAioInputInteger(ptr %8, ptr nonnull %7, i32 4)
  %12 = call i1 @_FortranAioInputInteger(ptr %8, ptr nonnull %4, i32 4)
  %13 = call i32 @_FortranAioEndIoStatement(ptr %8)
  %14 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.b34438c4c6888eac2fc19166146bb442, i32 11)
  %15 = load i32, ptr %5, align 4, !tbaa !3
  %16 = call i32 @llvm.smax.i32(i32 %15, i32 0)
  %17 = zext i32 %16 to i64
  store ptr @_QFEa, ptr %2, align 8, !tbaa !7
  %.fca.1.gep = 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.gep, align 8, !tbaa !7
  %.fca.2.gep = 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.gep, align 8, !tbaa !7
  %.fca.3.gep = 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.gep, align 4, !tbaa !7
  %.fca.4.gep = 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.gep, align 1, !tbaa !7
  %.fca.5.gep = 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.gep, align 2, !tbaa !7
  %.fca.6.gep = 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.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 %2, 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 %2, i64 0, i32 7, i64 0, i64 1
  store i64 %17, 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 %2, i64 0, i32 7, i64 0, i64 2
  store i64 8, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  %18 = call i1 @_FortranAioInputDescriptor(ptr %14, ptr nonnull %2)
  %19 = call i32 @_FortranAioEndIoStatement(ptr %14)
  %20 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.b34438c4c6888eac2fc19166146bb442, i32 12)
  %21 = load i32, ptr %6, align 4, !tbaa !3
  %22 = call i32 @llvm.smax.i32(i32 %21, i32 0)
  %23 = zext i32 %22 to i64
  store ptr @_QFEb, ptr %1, align 8, !tbaa !7
  %.fca.1.gep25 = 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.gep25, align 8, !tbaa !7
  %.fca.2.gep27 = 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.gep27, align 8, !tbaa !7
  %.fca.3.gep29 = 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.gep29, align 4, !tbaa !7
  %.fca.4.gep31 = 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.gep31, align 1, !tbaa !7
  %.fca.5.gep33 = 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.gep33, align 2, !tbaa !7
  %.fca.6.gep35 = 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.gep35, align 1, !tbaa !7
  %.fca.7.0.0.gep37 = 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.gep37, align 8, !tbaa !7
  %.fca.7.0.1.gep39 = 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 %23, ptr %.fca.7.0.1.gep39, align 8, !tbaa !7
  %.fca.7.0.2.gep41 = 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.gep41, align 8, !tbaa !7
  %24 = call i1 @_FortranAioInputDescriptor(ptr %20, ptr nonnull %1)
  %25 = call i32 @_FortranAioEndIoStatement(ptr %20)
  %26 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.b34438c4c6888eac2fc19166146bb442, i32 13)
  %27 = load i32, ptr %7, align 4, !tbaa !3
  %28 = call i32 @llvm.smax.i32(i32 %27, i32 0)
  %29 = zext i32 %28 to i64
  store ptr @_QFEc, ptr %0, align 8, !tbaa !7
  %.fca.1.gep45 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 1
  store i64 8, ptr %.fca.1.gep45, align 8, !tbaa !7
  %.fca.2.gep47 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep47, align 8, !tbaa !7
  %.fca.3.gep49 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep49, align 4, !tbaa !7
  %.fca.4.gep51 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 4
  store i8 10, ptr %.fca.4.gep51, align 1, !tbaa !7
  %.fca.5.gep53 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep53, align 2, !tbaa !7
  %.fca.6.gep55 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep55, align 1, !tbaa !7
  %.fca.7.0.0.gep57 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep57, align 8, !tbaa !7
  %.fca.7.0.1.gep59 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 1
  store i64 %29, ptr %.fca.7.0.1.gep59, align 8, !tbaa !7
  %.fca.7.0.2.gep61 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  store i64 8, ptr %.fca.7.0.2.gep61, align 8, !tbaa !7
  %30 = call i1 @_FortranAioInputDescriptor(ptr %26, ptr nonnull %0)
  %31 = call i32 @_FortranAioEndIoStatement(ptr %26)
  call void @_QFPmerge_sort(ptr nonnull %5, ptr nonnull @_QFEa)
  call void @_QFPmerge_sort(ptr nonnull %6, ptr nonnull @_QFEb)
  call void @_QFPmerge_sort(ptr nonnull %7, ptr nonnull @_QFEc)
  %32 = load i32, ptr %5, align 4, !tbaa !3
  %33 = load i32, ptr %4, align 4
  %34 = icmp slt i32 %32, 1
  %35 = icmp slt i32 %33, 1
  %or.cond173 = select i1 %34, i1 true, i1 %35
  br i1 %or.cond173, label %._crit_edge180, label %.lr.ph179

.lr.ph179:                                        ; preds = %.preheader158.preheader
  %36 = load i32, ptr %6, align 4, !tbaa !3
  %37 = icmp slt i32 %36, 1
  %38 = load i32, ptr %7, align 4
  %.fr186 = freeze i32 %38
  %39 = icmp slt i32 %.fr186, 1
  %or.cond = or i1 %37, %39
  br i1 %or.cond, label %._crit_edge180, label %.lr.ph167.us

.lr.ph167.us:                                     ; preds = %.lr.ph179, %._crit_edge168.split.us183
  %.0143176.us = phi i32 [ %61, %._crit_edge168.split.us183 ], [ 1, %.lr.ph179 ]
  %.0144175.us = phi i32 [ %.1.lcssa.us, %._crit_edge168.split.us183 ], [ 1, %.lr.ph179 ]
  %.0145174.us = phi i32 [ %60, %._crit_edge168.split.us183 ], [ %32, %.lr.ph179 ]
  %40 = sext i32 %.0143176.us to i64
  %41 = add nsw i64 %40, -1
  %42 = getelementptr [1000 x i64], ptr @_QFEa, i64 0, i64 %41
  br label %43

43:                                               ; preds = %.lr.ph167.us, %._crit_edge.us
  %.0142165.us181 = phi i32 [ 1, %.lr.ph167.us ], [ %70, %._crit_edge.us ]
  %.1164.us = phi i32 [ %.0144175.us, %.lr.ph167.us ], [ %54, %._crit_edge.us ]
  %44 = mul i32 %.0142165.us181, %.0143176.us
  %45 = icmp sgt i32 %44, %33
  br i1 %45, label %._crit_edge168.split.us183, label %.lr.ph.us

46:                                               ; preds = %.lr.ph.us, %46
  %indvars.iv = phi i64 [ 1, %.lr.ph.us ], [ %indvars.iv.next, %46 ]
  %.2161.us = phi i32 [ %.1164.us, %.lr.ph.us ], [ %54, %46 ]
  %.0147160.us = phi i32 [ %.fr186, %.lr.ph.us ], [ %55, %46 ]
  %47 = add nsw i64 %indvars.iv, -1
  %48 = getelementptr [1000 x i64], ptr @_QFEc, i64 0, i64 %47
  %49 = load i64, ptr %48, align 8, !tbaa !3
  %50 = add i64 %69, %49
  %51 = sext i32 %.2161.us to i64
  %52 = add nsw i64 %51, -1
  %53 = getelementptr [106307 x i64], ptr @_QFEd, i64 0, i64 %52
  store i64 %50, ptr %53, align 8, !tbaa !3
  %54 = add i32 %.2161.us, 1
  %55 = add nsw i32 %.0147160.us, -1
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %56 = icmp slt i32 %.0147160.us, 2
  %57 = trunc i64 %indvars.iv.next to i32
  %58 = mul i32 %44, %57
  %59 = icmp sgt i32 %58, %33
  %or.cond156.us = select i1 %56, i1 true, i1 %59
  br i1 %or.cond156.us, label %._crit_edge.us, label %46

._crit_edge168.split.us183:                       ; preds = %._crit_edge.us, %43
  %.1.lcssa.us = phi i32 [ %.1164.us, %43 ], [ %54, %._crit_edge.us ]
  %60 = add nsw i32 %.0145174.us, -1
  %61 = add nuw i32 %.0143176.us, 1
  %62 = icmp slt i32 %.0145174.us, 2
  %63 = icmp sgt i32 %61, %33
  %or.cond.us = select i1 %62, i1 true, i1 %63
  br i1 %or.cond.us, label %._crit_edge180, label %.lr.ph167.us

.lr.ph.us:                                        ; preds = %43
  %64 = load i64, ptr %42, align 8, !tbaa !3
  %65 = sext i32 %.0142165.us181 to i64
  %66 = add nsw i64 %65, -1
  %67 = getelementptr [1000 x i64], ptr @_QFEb, i64 0, i64 %66
  %68 = load i64, ptr %67, align 8, !tbaa !3
  %69 = add i64 %68, %64
  br label %46

._crit_edge.us:                                   ; preds = %46
  %70 = add nuw i32 %.0142165.us181, 1
  %exitcond.not = icmp eq i32 %.0142165.us181, %36
  br i1 %exitcond.not, label %._crit_edge168.split.us183, label %43

._crit_edge180:                                   ; preds = %._crit_edge168.split.us183, %.lr.ph179, %.preheader158.preheader
  store i32 106307, ptr %3, align 4, !tbaa !3
  call void @_QFPmerge_sort(ptr nonnull %3, ptr nonnull @_QFEd)
  %71 = load i32, ptr %4, align 4, !tbaa !3
  %72 = icmp sgt i32 %71, 0
  br i1 %72, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %._crit_edge180
  %73 = zext i32 %71 to i64
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %.lr.ph
  %indvars.iv191 = phi i64 [ 1, %.lr.ph.preheader ], [ %indvars.iv.next192, %.lr.ph ]
  %74 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.b34438c4c6888eac2fc19166146bb442, i32 31)
  %75 = add nsw i64 %indvars.iv191, -1
  %76 = getelementptr [106307 x i64], ptr @_QFEd, i64 0, i64 %75
  %77 = load i64, ptr %76, align 8, !tbaa !3
  %78 = call i1 @_FortranAioOutputInteger64(ptr %74, i64 %77)
  %79 = call i32 @_FortranAioEndIoStatement(ptr %74)
  %indvars.iv.next192 = add nuw nsw i64 %indvars.iv191, 1
  %exitcond194.not = icmp eq i64 %indvars.iv191, %73
  br i1 %exitcond194.not, label %._crit_edge, label %.lr.ph

._crit_edge:                                      ; preds = %.lr.ph, %._crit_edge180
  ret void
}

; Function Attrs: nofree nosync nounwind memory(readwrite, inaccessiblemem: none)
define void @_QFPmerge_sort(ptr nocapture readonly %0, ptr %1) local_unnamed_addr #0 {
  %3 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %4 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %5 = load i32, ptr %0, align 4, !tbaa !3
  %6 = icmp sgt i32 %5, 1
  br i1 %6, label %.lr.ph35, label %._crit_edge36

.lr.ph35:                                         ; preds = %2
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 1
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 2
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 3
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 4
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 5
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 6
  %.fca.7.0.0.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 0
  %.fca.7.0.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 1
  %.fca.7.0.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 2
  %.fca.1.gep13 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 1
  %.fca.2.gep15 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 2
  %.fca.3.gep17 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 3
  %.fca.4.gep19 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 4
  %.fca.5.gep21 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 5
  %.fca.6.gep23 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 6
  %.fca.7.0.0.gep25 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 0
  %.fca.7.0.1.gep27 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 1
  %.fca.7.0.2.gep29 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 2
  br label %7

7:                                                ; preds = %.lr.ph35, %._crit_edge
  %.033 = phi i32 [ 1, %.lr.ph35 ], [ %40, %._crit_edge ]
  %.03032 = phi i32 [ %5, %.lr.ph35 ], [ %42, %._crit_edge ]
  %.not = icmp ult i32 %.03032, 2
  br i1 %.not, label %._crit_edge36, label %.lr.ph.preheader

.lr.ph.preheader:                                 ; preds = %7
  %8 = lshr i32 %.03032, 1
  %9 = zext i32 %8 to i64
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %.lr.ph
  %indvars.iv = phi i64 [ 1, %.lr.ph.preheader ], [ %indvars.iv.next, %.lr.ph ]
  %10 = phi i64 [ %9, %.lr.ph.preheader ], [ %38, %.lr.ph ]
  %11 = shl nuw i64 %indvars.iv, 1
  %12 = trunc i64 %11 to i32
  %13 = mul i32 %.033, %12
  %14 = load i32, ptr %0, align 4, !tbaa !3
  %15 = tail call i32 @llvm.smin.i32(i32 %13, i32 %14)
  %16 = trunc i64 %11 to i32
  %17 = add i32 %16, -2
  %18 = mul i32 %17, %.033
  %19 = or i32 %18, 1
  %20 = sext i32 %19 to i64
  %21 = trunc i64 %11 to i32
  %22 = add i32 %21, -1
  %23 = mul i32 %22, %.033
  %24 = sext i32 %23 to i64
  %25 = add nsw i64 %20, -1
  %26 = sub nsw i64 %24, %20
  %27 = tail call i64 @llvm.smax.i64(i64 %26, i64 -1)
  %28 = add nsw i64 %27, 1
  %29 = getelementptr i64, ptr %1, i64 %25
  store ptr %29, ptr %4, align 8, !tbaa !7
  store i64 8, ptr %.fca.1.gep, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !7
  store i8 1, ptr %.fca.3.gep, align 4, !tbaa !7
  store i8 10, ptr %.fca.4.gep, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !7
  store i64 1, ptr %.fca.7.0.0.gep, align 8, !tbaa !7
  store i64 %28, ptr %.fca.7.0.1.gep, align 8, !tbaa !7
  store i64 8, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  %30 = add i32 %23, 1
  %31 = sext i32 %30 to i64
  %32 = sext i32 %15 to i64
  %33 = add nsw i64 %31, -1
  %34 = sub nsw i64 %32, %31
  %35 = tail call i64 @llvm.smax.i64(i64 %34, i64 -1)
  %36 = add nsw i64 %35, 1
  %37 = getelementptr i64, ptr %1, i64 %33
  store ptr %37, ptr %3, align 8, !tbaa !7
  store i64 8, ptr %.fca.1.gep13, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep15, align 8, !tbaa !7
  store i8 1, ptr %.fca.3.gep17, align 4, !tbaa !7
  store i8 10, ptr %.fca.4.gep19, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep21, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep23, align 1, !tbaa !7
  store i64 1, ptr %.fca.7.0.0.gep25, align 8, !tbaa !7
  store i64 %36, ptr %.fca.7.0.1.gep27, align 8, !tbaa !7
  store i64 8, ptr %.fca.7.0.2.gep29, align 8, !tbaa !7
  call void @_QFPmerge(ptr nonnull %4, ptr nonnull %3)
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %38 = add nsw i64 %10, -1
  %39 = icmp ugt i64 %10, 1
  br i1 %39, label %.lr.ph, label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph
  %40 = shl i32 %.033, 1
  %41 = add i32 %.03032, 1
  %42 = lshr i32 %41, 1
  %43 = icmp sgt i32 %41, 3
  br i1 %43, label %7, label %._crit_edge36

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

; Function Attrs: nofree nosync nounwind memory(readwrite, inaccessiblemem: none)
define void @_QFPmerge(ptr nocapture readonly %0, ptr nocapture readonly %1) local_unnamed_addr #0 {
  %3 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 1
  %4 = load i64, ptr %3, align 8, !tbaa !7
  %5 = trunc i64 %4 to i32
  %6 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 1
  %7 = load i64, ptr %6, align 8, !tbaa !7
  %8 = trunc i64 %7 to i32
  %9 = add i64 %7, %4
  %sext = shl i64 %9, 32
  %10 = ashr exact i64 %sext, 32
  %11 = tail call i64 @llvm.smax.i64(i64 %10, i64 0)
  %12 = alloca i64, i64 %11, align 8
  %13 = icmp sgt i32 %8, 0
  %14 = icmp sgt i32 %5, 0
  %15 = and i1 %13, %14
  br i1 %15, label %.lr.ph.lr.ph, label %.outer._crit_edge

.lr.ph.lr.ph:                                     ; preds = %2
  %16 = load ptr, ptr %0, align 8, !tbaa !7
  %17 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %18 = load i64, ptr %17, align 8, !tbaa !7
  %19 = load ptr, ptr %1, align 8, !tbaa !7
  %20 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  %21 = load i64, ptr %20, align 8, !tbaa !7
  br label %.lr.ph.split.preheader

.lr.ph.split.preheader:                           ; preds = %.outer, %.lr.ph.lr.ph
  %.0.ph61 = phi i32 [ 1, %.lr.ph.lr.ph ], [ %.041, %.outer ]
  %.027.ph60 = phi i32 [ 1, %.lr.ph.lr.ph ], [ %39, %.outer ]
  %22 = sext i32 %.027.ph60 to i64
  %23 = add nsw i64 %22, -1
  %24 = mul i64 %21, %23
  %25 = getelementptr i8, ptr %19, i64 %24
  %26 = load i64, ptr %25, align 8, !tbaa !3
  %27 = add i32 %.027.ph60, -1
  br label %.lr.ph.split

.lr.ph.split:                                     ; preds = %.lr.ph.split.preheader, %37
  %.041 = phi i32 [ %38, %37 ], [ %.0.ph61, %.lr.ph.split.preheader ]
  %28 = sext i32 %.041 to i64
  %29 = add nsw i64 %28, -1
  %30 = mul i64 %18, %29
  %31 = getelementptr i8, ptr %16, i64 %30
  %32 = load i64, ptr %31, align 8, !tbaa !3
  %.not = icmp slt i64 %32, %26
  %33 = add i32 %27, %.041
  %34 = sext i32 %33 to i64
  %35 = add nsw i64 %34, -1
  %36 = getelementptr i64, ptr %12, i64 %35
  br i1 %.not, label %.outer, label %37

37:                                               ; preds = %.lr.ph.split
  store i64 %32, ptr %36, align 8, !tbaa !3
  %38 = add i32 %.041, 1
  %.not93 = icmp sgt i32 %38, %5
  br i1 %.not93, label %.thread, label %.lr.ph.split

.outer:                                           ; preds = %.lr.ph.split
  store i64 %26, ptr %36, align 8, !tbaa !3
  %39 = add i32 %.027.ph60, 1
  %40 = icmp sle i32 %39, %8
  %41 = icmp sle i32 %.041, %5
  %42 = and i1 %40, %41
  br i1 %42, label %.lr.ph.split.preheader, label %.outer._crit_edge

.outer._crit_edge:                                ; preds = %.outer, %2
  %.027.ph.lcssa = phi i32 [ 1, %2 ], [ %39, %.outer ]
  %.0.lcssa = phi i32 [ 1, %2 ], [ %.041, %.outer ]
  %.lcssa37 = phi i1 [ %14, %2 ], [ %41, %.outer ]
  %.lcssa = phi i1 [ %13, %2 ], [ %40, %.outer ]
  br i1 %.lcssa37, label %43, label %67

43:                                               ; preds = %.outer._crit_edge
  %44 = add i32 %.027.ph.lcssa, -1
  %45 = add i32 %44, %.0.lcssa
  %46 = sext i32 %45 to i64
  %47 = sub nsw i64 %10, %46
  %48 = sext i32 %.0.lcssa to i64
  %49 = icmp sgt i64 %47, -1
  br i1 %49, label %.lr.ph69, label %.loopexit

.lr.ph69:                                         ; preds = %43
  %50 = add nuw nsw i64 %47, 1
  %51 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %52 = load i64, ptr %51, align 8, !tbaa !7
  %53 = load ptr, ptr %0, align 8, !tbaa !7
  br label %54

54:                                               ; preds = %.lr.ph69, %54
  %55 = phi i64 [ %50, %.lr.ph69 ], [ %65, %54 ]
  %56 = phi i64 [ 0, %.lr.ph69 ], [ %57, %54 ]
  %57 = add nuw nsw i64 %56, 1
  %58 = add nsw i64 %56, -1
  %59 = add nsw i64 %58, %48
  %60 = mul i64 %52, %59
  %61 = getelementptr i8, ptr %53, i64 %60
  %62 = load i64, ptr %61, align 8, !tbaa !3
  %63 = add nsw i64 %58, %46
  %64 = getelementptr i64, ptr %12, i64 %63
  store i64 %62, ptr %64, align 8, !tbaa !3
  %65 = add nsw i64 %55, -1
  %66 = icmp ugt i64 %55, 1
  br i1 %66, label %54, label %.loopexit

67:                                               ; preds = %.outer._crit_edge
  br i1 %.lcssa, label %.thread, label %.loopexit

.thread:                                          ; preds = %37, %67
  %.027.ph.lcssa98105 = phi i32 [ %.027.ph.lcssa, %67 ], [ %.027.ph60, %37 ]
  %.0.lcssa99104 = phi i32 [ %.0.lcssa, %67 ], [ %38, %37 ]
  %68 = add i32 %.027.ph.lcssa98105, -1
  %69 = add i32 %68, %.0.lcssa99104
  %70 = sext i32 %69 to i64
  %71 = sub nsw i64 %10, %70
  %72 = sext i32 %.027.ph.lcssa98105 to i64
  %73 = icmp sgt i64 %71, -1
  br i1 %73, label %.lr.ph67, label %.loopexit

.lr.ph67:                                         ; preds = %.thread
  %74 = add nuw nsw i64 %71, 1
  %75 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  %76 = load i64, ptr %75, align 8, !tbaa !7
  %77 = load ptr, ptr %1, align 8, !tbaa !7
  br label %78

78:                                               ; preds = %.lr.ph67, %78
  %79 = phi i64 [ %74, %.lr.ph67 ], [ %89, %78 ]
  %80 = phi i64 [ 0, %.lr.ph67 ], [ %81, %78 ]
  %81 = add nuw nsw i64 %80, 1
  %82 = add nsw i64 %80, -1
  %83 = add nsw i64 %82, %72
  %84 = mul i64 %76, %83
  %85 = getelementptr i8, ptr %77, i64 %84
  %86 = load i64, ptr %85, align 8, !tbaa !3
  %87 = add nsw i64 %82, %70
  %88 = getelementptr i64, ptr %12, i64 %87
  store i64 %86, ptr %88, align 8, !tbaa !3
  %89 = add nsw i64 %79, -1
  %90 = icmp ugt i64 %79, 1
  br i1 %90, label %78, label %.loopexit

.loopexit:                                        ; preds = %78, %54, %.thread, %43, %67
  %91 = icmp sgt i64 %4, 0
  br i1 %91, label %.lr.ph71, label %._crit_edge72

.lr.ph71:                                         ; preds = %.loopexit
  %92 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %93 = load i64, ptr %92, align 8, !tbaa !7
  %94 = load ptr, ptr %0, align 8, !tbaa !7
  %xtraiter = and i64 %4, 3
  %95 = icmp ult i64 %4, 4
  br i1 %95, label %._crit_edge72.loopexit.unr-lcssa, label %.lr.ph71.new

.lr.ph71.new:                                     ; preds = %.lr.ph71
  %unroll_iter = and i64 %4, -4
  br label %96

96:                                               ; preds = %96, %.lr.ph71.new
  %97 = phi i64 [ 0, %.lr.ph71.new ], [ %113, %96 ]
  %niter = phi i64 [ 0, %.lr.ph71.new ], [ %niter.next.3, %96 ]
  %98 = or i64 %97, 1
  %99 = getelementptr i64, ptr %12, i64 %97
  %100 = load i64, ptr %99, align 8, !tbaa !3
  %101 = mul i64 %93, %97
  %102 = getelementptr i8, ptr %94, i64 %101
  store i64 %100, ptr %102, align 8, !tbaa !3
  %103 = or i64 %97, 2
  %104 = getelementptr i64, ptr %12, i64 %98
  %105 = load i64, ptr %104, align 8, !tbaa !3
  %106 = mul i64 %93, %98
  %107 = getelementptr i8, ptr %94, i64 %106
  store i64 %105, ptr %107, align 8, !tbaa !3
  %108 = or i64 %97, 3
  %109 = getelementptr i64, ptr %12, i64 %103
  %110 = load i64, ptr %109, align 8, !tbaa !3
  %111 = mul i64 %93, %103
  %112 = getelementptr i8, ptr %94, i64 %111
  store i64 %110, ptr %112, align 8, !tbaa !3
  %113 = add nuw nsw i64 %97, 4
  %114 = getelementptr i64, ptr %12, i64 %108
  %115 = load i64, ptr %114, align 8, !tbaa !3
  %116 = mul i64 %93, %108
  %117 = getelementptr i8, ptr %94, i64 %116
  store i64 %115, ptr %117, align 8, !tbaa !3
  %niter.next.3 = add i64 %niter, 4
  %niter.ncmp.3 = icmp eq i64 %niter.next.3, %unroll_iter
  br i1 %niter.ncmp.3, label %._crit_edge72.loopexit.unr-lcssa, label %96

._crit_edge72.loopexit.unr-lcssa:                 ; preds = %96, %.lr.ph71
  %.unr = phi i64 [ 0, %.lr.ph71 ], [ %113, %96 ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %._crit_edge72, label %.epil.preheader

.epil.preheader:                                  ; preds = %._crit_edge72.loopexit.unr-lcssa, %.epil.preheader
  %118 = phi i64 [ %119, %.epil.preheader ], [ %.unr, %._crit_edge72.loopexit.unr-lcssa ]
  %epil.iter = phi i64 [ %epil.iter.next, %.epil.preheader ], [ 0, %._crit_edge72.loopexit.unr-lcssa ]
  %119 = add nuw nsw i64 %118, 1
  %120 = getelementptr i64, ptr %12, i64 %118
  %121 = load i64, ptr %120, align 8, !tbaa !3
  %122 = mul i64 %93, %118
  %123 = getelementptr i8, ptr %94, i64 %122
  store i64 %121, ptr %123, 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 %._crit_edge72, label %.epil.preheader, !llvm.loop !9

._crit_edge72:                                    ; preds = %._crit_edge72.loopexit.unr-lcssa, %.epil.preheader, %.loopexit
  %124 = icmp sgt i64 %7, 0
  br i1 %124, label %.lr.ph74, label %._crit_edge75

.lr.ph74:                                         ; preds = %._crit_edge72
  %125 = shl i64 %4, 32
  %sext34 = add i64 %125, 4294967296
  %126 = ashr exact i64 %sext34, 32
  %127 = add nsw i64 %126, -1
  %128 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  %129 = load i64, ptr %128, align 8, !tbaa !7
  %130 = load ptr, ptr %1, align 8, !tbaa !7
  %xtraiter130 = and i64 %7, 3
  %131 = icmp ult i64 %7, 4
  br i1 %131, label %._crit_edge75.loopexit.unr-lcssa, label %.lr.ph74.new

.lr.ph74.new:                                     ; preds = %.lr.ph74
  %unroll_iter134 = and i64 %7, -4
  br label %132

132:                                              ; preds = %132, %.lr.ph74.new
  %133 = phi i64 [ 0, %.lr.ph74.new ], [ %152, %132 ]
  %niter135 = phi i64 [ 0, %.lr.ph74.new ], [ %niter135.next.3, %132 ]
  %134 = or i64 %133, 1
  %135 = add i64 %127, %133
  %136 = getelementptr i64, ptr %12, i64 %135
  %137 = load i64, ptr %136, align 8, !tbaa !3
  %138 = mul i64 %129, %133
  %139 = getelementptr i8, ptr %130, i64 %138
  store i64 %137, ptr %139, align 8, !tbaa !3
  %140 = or i64 %133, 2
  %141 = add i64 %126, %133
  %142 = getelementptr i64, ptr %12, i64 %141
  %143 = load i64, ptr %142, align 8, !tbaa !3
  %144 = mul i64 %129, %134
  %145 = getelementptr i8, ptr %130, i64 %144
  store i64 %143, ptr %145, align 8, !tbaa !3
  %146 = or i64 %133, 3
  %147 = add i64 %127, %140
  %148 = getelementptr i64, ptr %12, i64 %147
  %149 = load i64, ptr %148, align 8, !tbaa !3
  %150 = mul i64 %129, %140
  %151 = getelementptr i8, ptr %130, i64 %150
  store i64 %149, ptr %151, align 8, !tbaa !3
  %152 = add nuw nsw i64 %133, 4
  %153 = add i64 %127, %146
  %154 = getelementptr i64, ptr %12, i64 %153
  %155 = load i64, ptr %154, align 8, !tbaa !3
  %156 = mul i64 %129, %146
  %157 = getelementptr i8, ptr %130, i64 %156
  store i64 %155, ptr %157, align 8, !tbaa !3
  %niter135.next.3 = add i64 %niter135, 4
  %niter135.ncmp.3 = icmp eq i64 %niter135.next.3, %unroll_iter134
  br i1 %niter135.ncmp.3, label %._crit_edge75.loopexit.unr-lcssa, label %132

._crit_edge75.loopexit.unr-lcssa:                 ; preds = %132, %.lr.ph74
  %.unr132 = phi i64 [ 0, %.lr.ph74 ], [ %152, %132 ]
  %lcmp.mod133.not = icmp eq i64 %xtraiter130, 0
  br i1 %lcmp.mod133.not, label %._crit_edge75, label %.epil.preheader129

.epil.preheader129:                               ; preds = %._crit_edge75.loopexit.unr-lcssa, %.epil.preheader129
  %158 = phi i64 [ %159, %.epil.preheader129 ], [ %.unr132, %._crit_edge75.loopexit.unr-lcssa ]
  %epil.iter131 = phi i64 [ %epil.iter131.next, %.epil.preheader129 ], [ 0, %._crit_edge75.loopexit.unr-lcssa ]
  %159 = add nuw nsw i64 %158, 1
  %160 = add i64 %127, %158
  %161 = getelementptr i64, ptr %12, i64 %160
  %162 = load i64, ptr %161, align 8, !tbaa !3
  %163 = mul i64 %129, %158
  %164 = getelementptr i8, ptr %130, i64 %163
  store i64 %162, ptr %164, align 8, !tbaa !3
  %epil.iter131.next = add i64 %epil.iter131, 1
  %epil.iter131.cmp.not = icmp eq i64 %epil.iter131.next, %xtraiter130
  br i1 %epil.iter131.cmp.not, label %._crit_edge75, label %.epil.preheader129, !llvm.loop !11

._crit_edge75:                                    ; preds = %._crit_edge75.loopexit.unr-lcssa, %.epil.preheader129, %._crit_edge72
  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 i1 @_FortranAioInputDescriptor(ptr, 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) #1

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

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i32 @llvm.smin.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

attributes #0 = { nofree nosync nounwind memory(readwrite, inaccessiblemem: none) }
attributes #1 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #2 = { nocallback nofree nounwind willreturn memory(argmem: write) }

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

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