program main
  implicit none
  integer(8) :: m = 10 ** 9 + 7
  integer(8) :: n, k, i, g, res
  integer(8), allocatable :: s(:), t(:)
  read *, n, k
  allocate (s(k), t(k))
  do i = 1, k
    t(i) = get_t(i)
  end do
  s(:) = t(:)
  do g = k, 1, -1
    do i = 2, k / g
      s(g) = s(g) - s(i * g)
      s(g) = modulo(s(g), m)
    end do
  end do
  res = 0
  do g = 1, k
    res = res + g * s(g)
    res = modulo(res, m)
  end do
  print "(i0)", res

  contains

  integer(8) function get_t(f)
    integer(8), intent(in) :: f
    integer(8) :: ng
    ng = k / f
    get_t = pow(ng, n)
  end function get_t

  function pow(n, p) result(res)
    integer(8), intent(in) :: n, p
    integer(8) :: res, buf(0:31), i, imax
    buf(0) = modulo(n, m)
    imax = bit_size(p) - leadz(p) - 1
    do i = 1, imax
      buf(i) = modulo(buf(i - 1) ** 2, m)
    end do
    res = 1
    do i = 0, imax
      if (btest(p, i)) then
        res = res * buf(i)
        res = modulo(res, m)
      end if
    end do
  end function pow
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"

@_QFEs = internal unnamed_addr global { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] } { ptr null, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64), i32 20180515, i8 1, i8 10, i8 2, i8 0, [1 x [3 x i64]] [[3 x i64] [i64 1, i64 0, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64)]] }
@_QFEt = internal unnamed_addr global { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] } { ptr null, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64), i32 20180515, i8 1, i8 10, i8 2, i8 0, [1 x [3 x i64]] [[3 x i64] [i64 1, i64 0, i64 ptrtoint (ptr getelementptr (i64, ptr null, i32 1) to i64)]] }
@_QQcl.257a15ecbc1aa2e4b186938e5f0c92db = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_1831/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 [32 x i64], align 8
  %2 = alloca i64, align 8
  %3 = alloca i64, align 8
  %4 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.257a15ecbc1aa2e4b186938e5f0c92db, i32 6)
  %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 %2, 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 @_QFEs, align 16, !tbaa !7
  store i64 8, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 1), align 8, !tbaa !7
  store i32 20180515, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 2), align 16, !tbaa !7
  store i8 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 3), align 4, !tbaa !7
  store i8 10, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 4), align 1, !tbaa !7
  store i8 2, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 5), align 2, !tbaa !7
  store i8 0, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 6), align 1, !tbaa !7
  store i64 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 7), align 8, !tbaa !7
  store i64 %9, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEs, 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, [1 x [3 x i64]] }, ptr @_QFEs, i64 0, i32 7, i64 0, i64 2), align 8, !tbaa !7
  %12 = call ptr @malloc(i64 %10)
  store ptr %12, ptr @_QFEt, align 16, !tbaa !7
  store i64 8, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 1), align 8, !tbaa !7
  store i32 20180515, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 2), align 16, !tbaa !7
  store i8 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 3), align 4, !tbaa !7
  store i8 10, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 4), align 1, !tbaa !7
  store i8 2, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 5), align 2, !tbaa !7
  store i8 0, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 6), align 1, !tbaa !7
  store i64 1, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 7), align 8, !tbaa !7
  store i64 %9, ptr getelementptr inbounds ({ ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr @_QFEt, 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, [1 x [3 x i64]] }, ptr @_QFEt, i64 0, i32 7, i64 0, i64 2), align 8, !tbaa !7
  %13 = icmp sgt i64 %8, 0
  br i1 %13, label %.lr.ph, label %._crit_edge280

.lr.ph:                                           ; preds = %0
  %14 = load i64, ptr %3, align 8, !tbaa !3
  %15 = call i64 @llvm.ctlz.i64(i64 %14, i1 false), !range !9
  %16 = icmp ugt i64 %14, 1
  %17 = sub nsw i64 63, %15
  %.not16.i.i = icmp eq i64 %14, 0
  %18 = sub nuw nsw i64 64, %15
  br label %19

.preheader274:                                    ; preds = %_QFPget_t.exit
  %.not = icmp slt i64 %8, 1
  br i1 %.not, label %._crit_edge280, label %.lr.ph277

19:                                               ; preds = %.lr.ph, %_QFPget_t.exit
  %20 = phi i64 [ 1, %.lr.ph ], [ %58, %_QFPget_t.exit ]
  %21 = sdiv i64 %8, %20
  call void @llvm.lifetime.start.p0(i64 256, ptr nonnull %1)
  %22 = srem i64 %21, 1000000007
  %23 = icmp slt i64 %21, 0
  %24 = icmp ne i64 %22, 0
  %25 = and i1 %23, %24
  %26 = add nsw i64 %22, 1000000007
  %27 = select i1 %25, i64 %26, i64 %22
  store i64 %27, ptr %1, align 8, !tbaa !3
  br i1 %16, label %.lr.ph.i.i, label %._crit_edge.i.i

.lr.ph.i.i:                                       ; preds = %19, %.lr.ph.i.i
  %28 = phi i64 [ %32, %.lr.ph.i.i ], [ %27, %19 ]
  %29 = phi i64 [ %35, %.lr.ph.i.i ], [ %17, %19 ]
  %30 = phi i64 [ %34, %.lr.ph.i.i ], [ 1, %19 ]
  %31 = mul nsw i64 %28, %28
  %32 = urem i64 %31, 1000000007
  %33 = getelementptr [32 x i64], ptr %1, i64 0, i64 %30
  store i64 %32, ptr %33, align 8, !tbaa !3
  %34 = add nuw nsw i64 %30, 1
  %35 = add nsw i64 %29, -1
  %36 = icmp sgt i64 %29, 1
  br i1 %36, label %.lr.ph.i.i, label %._crit_edge.i.i

._crit_edge.i.i:                                  ; preds = %.lr.ph.i.i, %19
  br i1 %.not16.i.i, label %_QFPget_t.exit, label %.lr.ph14.i.i

.lr.ph14.i.i:                                     ; preds = %._crit_edge.i.i, %52
  %37 = phi i64 [ %54, %52 ], [ %18, %._crit_edge.i.i ]
  %38 = phi i64 [ %53, %52 ], [ 0, %._crit_edge.i.i ]
  %.012.i.i = phi i64 [ %.1.i.i, %52 ], [ 1, %._crit_edge.i.i ]
  %sext.i.i = shl i64 %38, 32
  %39 = ashr exact i64 %sext.i.i, 32
  %40 = shl nuw i64 1, %39
  %41 = and i64 %40, %14
  %.not.i.i = icmp eq i64 %41, 0
  br i1 %.not.i.i, label %52, label %42

42:                                               ; preds = %.lr.ph14.i.i
  %43 = getelementptr [32 x i64], ptr %1, i64 0, i64 %38
  %44 = load i64, ptr %43, align 8, !tbaa !3
  %45 = mul i64 %44, %.012.i.i
  %46 = srem i64 %45, 1000000007
  %47 = icmp slt i64 %45, 0
  %48 = icmp ne i64 %46, 0
  %49 = and i1 %47, %48
  %50 = add nsw i64 %46, 1000000007
  %51 = select i1 %49, i64 %50, i64 %46
  br label %52

52:                                               ; preds = %42, %.lr.ph14.i.i
  %.1.i.i = phi i64 [ %51, %42 ], [ %.012.i.i, %.lr.ph14.i.i ]
  %53 = add nuw nsw i64 %38, 1
  %54 = add nsw i64 %37, -1
  %55 = icmp sgt i64 %37, 1
  br i1 %55, label %.lr.ph14.i.i, label %_QFPget_t.exit

_QFPget_t.exit:                                   ; preds = %52, %._crit_edge.i.i
  %.0.lcssa.i.i = phi i64 [ 1, %._crit_edge.i.i ], [ %.1.i.i, %52 ]
  call void @llvm.lifetime.end.p0(i64 256, ptr nonnull %1)
  %56 = add i64 %20, -1
  %57 = getelementptr i64, ptr %12, i64 %56
  store i64 %.0.lcssa.i.i, ptr %57, align 8, !tbaa !3
  %58 = add nuw i64 %20, 1
  %exitcond.not = icmp eq i64 %20, %8
  br i1 %exitcond.not, label %.preheader274, label %19

.lr.ph277:                                        ; preds = %.preheader274
  call void @llvm.memcpy.p0.p0.i64(ptr align 8 %11, ptr nonnull align 8 %12, i64 %10, i1 false), !tbaa !3
  br label %59

.preheader:                                       ; preds = %._crit_edge
  br i1 %13, label %.lr.ph279, label %._crit_edge280

59:                                               ; preds = %.lr.ph277, %._crit_edge
  %60 = phi i64 [ %8, %.lr.ph277 ], [ %64, %._crit_edge ]
  %61 = sdiv i64 %8, %60
  %62 = add i64 %61, -1
  %63 = icmp sgt i64 %62, 0
  %64 = add nsw i64 %60, -1
  br i1 %63, label %.lr.ph276, label %._crit_edge

.lr.ph276:                                        ; preds = %59
  %65 = getelementptr i64, ptr %11, i64 %64
  %.promoted = load i64, ptr %65, align 8, !tbaa !3
  br label %66

66:                                               ; preds = %.lr.ph276, %66
  %67 = phi i64 [ %.promoted, %.lr.ph276 ], [ %79, %66 ]
  %68 = phi i64 [ 2, %.lr.ph276 ], [ %80, %66 ]
  %69 = mul i64 %68, %60
  %70 = add i64 %69, -1
  %71 = getelementptr i64, ptr %11, i64 %70
  %72 = load i64, ptr %71, align 8, !tbaa !3
  %73 = sub i64 %67, %72
  %74 = srem i64 %73, 1000000007
  %75 = icmp slt i64 %73, 0
  %76 = icmp ne i64 %74, 0
  %77 = and i1 %75, %76
  %78 = add nsw i64 %74, 1000000007
  %79 = select i1 %77, i64 %78, i64 %74
  store i64 %79, ptr %65, align 8, !tbaa !3
  %80 = add nuw i64 %68, 1
  %exitcond281.not = icmp eq i64 %68, %61
  br i1 %exitcond281.not, label %._crit_edge, label %66

._crit_edge:                                      ; preds = %66, %59
  %81 = icmp sgt i64 %60, 1
  br i1 %81, label %59, label %.preheader

.lr.ph279:                                        ; preds = %.preheader, %.lr.ph279
  %82 = phi i64 [ %94, %.lr.ph279 ], [ 1, %.preheader ]
  %.0278 = phi i64 [ %93, %.lr.ph279 ], [ 0, %.preheader ]
  %83 = add nsw i64 %82, -1
  %84 = getelementptr i64, ptr %11, i64 %83
  %85 = load i64, ptr %84, align 8, !tbaa !3
  %86 = mul i64 %85, %82
  %87 = add i64 %86, %.0278
  %88 = srem i64 %87, 1000000007
  %89 = icmp slt i64 %87, 0
  %90 = icmp ne i64 %88, 0
  %91 = and i1 %89, %90
  %92 = add nsw i64 %88, 1000000007
  %93 = select i1 %91, i64 %92, i64 %88
  %94 = add nuw i64 %82, 1
  %exitcond282.not = icmp eq i64 %82, %8
  br i1 %exitcond282.not, label %._crit_edge280, label %.lr.ph279

._crit_edge280:                                   ; preds = %.lr.ph279, %.preheader274, %0, %.preheader
  %.0.lcssa = phi i64 [ 0, %.preheader ], [ 0, %0 ], [ 0, %.preheader274 ], [ %93, %.lr.ph279 ]
  %95 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.257a15ecbc1aa2e4b186938e5f0c92db, i32 23)
  %96 = call i1 @_FortranAioOutputInteger64(ptr %95, i64 %.0.lcssa)
  %97 = call i32 @_FortranAioEndIoStatement(ptr %95)
  ret void
}

; Function Attrs: nofree nosync nounwind memory(read, inaccessiblemem: none)
define i64 @_QFPget_t(ptr nocapture readonly %0, ptr nest nocapture readonly %1) local_unnamed_addr #1 {
  %3 = alloca [32 x i64], align 8
  %4 = load ptr, ptr %1, align 8, !tbaa !3
  %5 = getelementptr { ptr, ptr }, ptr %1, i64 0, i32 1
  %6 = load ptr, ptr %5, align 8, !tbaa !3
  %7 = load i64, ptr %4, align 8, !tbaa !3
  %8 = load i64, ptr %0, align 8, !tbaa !3
  %9 = sdiv i64 %7, %8
  call void @llvm.lifetime.start.p0(i64 256, ptr nonnull %3)
  %10 = srem i64 %9, 1000000007
  %11 = icmp slt i64 %9, 0
  %12 = icmp ne i64 %10, 0
  %13 = and i1 %11, %12
  %14 = add nsw i64 %10, 1000000007
  %15 = select i1 %13, i64 %14, i64 %10
  store i64 %15, ptr %3, align 8, !tbaa !3
  %16 = load i64, ptr %6, align 8, !tbaa !3
  %17 = tail call i64 @llvm.ctlz.i64(i64 %16, i1 false), !range !9
  %18 = icmp ugt i64 %16, 1
  br i1 %18, label %.lr.ph.preheader.i, label %._crit_edge.i

.lr.ph.preheader.i:                               ; preds = %2
  %19 = sub nsw i64 63, %17
  br label %.lr.ph.i

.lr.ph.i:                                         ; preds = %.lr.ph.i, %.lr.ph.preheader.i
  %20 = phi i64 [ %24, %.lr.ph.i ], [ %15, %.lr.ph.preheader.i ]
  %21 = phi i64 [ %27, %.lr.ph.i ], [ %19, %.lr.ph.preheader.i ]
  %22 = phi i64 [ %26, %.lr.ph.i ], [ 1, %.lr.ph.preheader.i ]
  %23 = mul nsw i64 %20, %20
  %24 = urem i64 %23, 1000000007
  %25 = getelementptr [32 x i64], ptr %3, i64 0, i64 %22
  store i64 %24, ptr %25, align 8, !tbaa !3
  %26 = add nuw nsw i64 %22, 1
  %27 = add nsw i64 %21, -1
  %28 = icmp sgt i64 %21, 1
  br i1 %28, label %.lr.ph.i, label %._crit_edge.i

._crit_edge.i:                                    ; preds = %.lr.ph.i, %2
  %.not16.i = icmp eq i64 %16, 0
  br i1 %.not16.i, label %_QFPpow.exit, label %.lr.ph14.preheader.i

.lr.ph14.preheader.i:                             ; preds = %._crit_edge.i
  %29 = sub nuw nsw i64 64, %17
  br label %.lr.ph14.i

.lr.ph14.i:                                       ; preds = %45, %.lr.ph14.preheader.i
  %30 = phi i64 [ %47, %45 ], [ %29, %.lr.ph14.preheader.i ]
  %31 = phi i64 [ %46, %45 ], [ 0, %.lr.ph14.preheader.i ]
  %.012.i = phi i64 [ %.1.i, %45 ], [ 1, %.lr.ph14.preheader.i ]
  %sext.i = shl i64 %31, 32
  %32 = ashr exact i64 %sext.i, 32
  %33 = shl nuw i64 1, %32
  %34 = and i64 %33, %16
  %.not.i = icmp eq i64 %34, 0
  br i1 %.not.i, label %45, label %35

35:                                               ; preds = %.lr.ph14.i
  %36 = getelementptr [32 x i64], ptr %3, i64 0, i64 %31
  %37 = load i64, ptr %36, align 8, !tbaa !3
  %38 = mul i64 %37, %.012.i
  %39 = srem i64 %38, 1000000007
  %40 = icmp slt i64 %38, 0
  %41 = icmp ne i64 %39, 0
  %42 = and i1 %40, %41
  %43 = add nsw i64 %39, 1000000007
  %44 = select i1 %42, i64 %43, i64 %39
  br label %45

45:                                               ; preds = %35, %.lr.ph14.i
  %.1.i = phi i64 [ %44, %35 ], [ %.012.i, %.lr.ph14.i ]
  %46 = add nuw nsw i64 %31, 1
  %47 = add nsw i64 %30, -1
  %48 = icmp sgt i64 %30, 1
  br i1 %48, label %.lr.ph14.i, label %_QFPpow.exit

_QFPpow.exit:                                     ; preds = %45, %._crit_edge.i
  %.0.lcssa.i = phi i64 [ 1, %._crit_edge.i ], [ %.1.i, %45 ]
  call void @llvm.lifetime.end.p0(i64 256, ptr nonnull %3)
  ret i64 %.0.lcssa.i
}

; Function Attrs: nofree nosync nounwind memory(argmem: read)
define i64 @_QFPpow(ptr nocapture readonly %0, ptr nocapture readonly %1, ptr nest nocapture readnone %2) local_unnamed_addr #2 {
  %4 = alloca [32 x i64], align 8
  %5 = load i64, ptr %0, align 8, !tbaa !3
  %6 = srem i64 %5, 1000000007
  %7 = icmp slt i64 %5, 0
  %8 = icmp ne i64 %6, 0
  %9 = and i1 %7, %8
  %10 = add nsw i64 %6, 1000000007
  %11 = select i1 %9, i64 %10, i64 %6
  store i64 %11, ptr %4, align 8, !tbaa !3
  %12 = load i64, ptr %1, align 8, !tbaa !3
  %13 = tail call i64 @llvm.ctlz.i64(i64 %12, i1 false), !range !9
  %14 = icmp ugt i64 %12, 1
  br i1 %14, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %3
  %15 = sub nsw i64 63, %13
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %.lr.ph
  %16 = phi i64 [ %20, %.lr.ph ], [ %11, %.lr.ph.preheader ]
  %17 = phi i64 [ %23, %.lr.ph ], [ %15, %.lr.ph.preheader ]
  %18 = phi i64 [ %22, %.lr.ph ], [ 1, %.lr.ph.preheader ]
  %19 = mul nsw i64 %16, %16
  %20 = urem i64 %19, 1000000007
  %21 = getelementptr [32 x i64], ptr %4, i64 0, i64 %18
  store i64 %20, ptr %21, align 8, !tbaa !3
  %22 = add nuw nsw i64 %18, 1
  %23 = add nsw i64 %17, -1
  %24 = icmp sgt i64 %17, 1
  br i1 %24, label %.lr.ph, label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph, %3
  %.not16 = icmp eq i64 %12, 0
  br i1 %.not16, label %._crit_edge15, label %.lr.ph14.preheader

.lr.ph14.preheader:                               ; preds = %._crit_edge
  %25 = sub nuw nsw i64 64, %13
  br label %.lr.ph14

.lr.ph14:                                         ; preds = %.lr.ph14.preheader, %41
  %26 = phi i64 [ %43, %41 ], [ %25, %.lr.ph14.preheader ]
  %27 = phi i64 [ %42, %41 ], [ 0, %.lr.ph14.preheader ]
  %.012 = phi i64 [ %.1, %41 ], [ 1, %.lr.ph14.preheader ]
  %sext = shl i64 %27, 32
  %28 = ashr exact i64 %sext, 32
  %29 = shl nuw i64 1, %28
  %30 = and i64 %29, %12
  %.not = icmp eq i64 %30, 0
  br i1 %.not, label %41, label %31

31:                                               ; preds = %.lr.ph14
  %32 = getelementptr [32 x i64], ptr %4, i64 0, i64 %27
  %33 = load i64, ptr %32, align 8, !tbaa !3
  %34 = mul i64 %33, %.012
  %35 = srem i64 %34, 1000000007
  %36 = icmp slt i64 %34, 0
  %37 = icmp ne i64 %35, 0
  %38 = and i1 %36, %37
  %39 = add nsw i64 %35, 1000000007
  %40 = select i1 %38, i64 %39, i64 %35
  br label %41

41:                                               ; preds = %31, %.lr.ph14
  %.1 = phi i64 [ %40, %31 ], [ %.012, %.lr.ph14 ]
  %42 = add nuw nsw i64 %27, 1
  %43 = add nsw i64 %26, -1
  %44 = icmp sgt i64 %26, 1
  br i1 %44, label %.lr.ph14, label %._crit_edge15

._crit_edge15:                                    ; preds = %41, %._crit_edge
  %.0.lcssa = phi i64 [ 1, %._crit_edge ], [ %.1, %41 ]
  ret i64 %.0.lcssa
}

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: mustprogress nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i64 @llvm.ctlz.i64(i64, i1 immarg) #3

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

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.start.p0(i64 immarg, ptr nocapture) #5

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.end.p0(i64 immarg, ptr nocapture) #5

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

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { nofree nosync nounwind memory(read, inaccessiblemem: none) }
attributes #2 = { nofree nosync nounwind memory(argmem: read) }
attributes #3 = { mustprogress nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #4 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #5 = { nocallback nofree nosync nounwind willreturn memory(argmem: readwrite) }
attributes #6 = { nocallback nofree nounwind willreturn memory(argmem: readwrite) }

!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 = !{i64 0, i64 65}
