module mod_or_plus_max
  implicit none
  integer :: n, a(-1:262143), u
  integer :: f(0:262143), s(0:262143)
contains
  recursive subroutine bit_group(x)
    implicit none
    integer, intent(in) :: x
    integer :: i, y
    if ((f(x).ge.0).and.(s(x).ge.0)) return
    if (and(x,x-1).eq.0) then
      f(x) = 0
      s(x) = x
      if (a(0).lt.a(x)) then
        f(x) = x
        s(x) = 0
      end if
      return
    end if
    do i = 0, n
      if (btest(x,i)) call bit_group(ibclr(x,i))
    end do
    f(x) = x
    do i = 0, n
      if (.not.btest(x,i)) cycle
      y = ibclr(x,i)
      if (a(f(x)).lt.a(f(y))) then
        f(x) = f(y)
      end if
    end do
    if (f(x).ne.x) s(x) = x
    do i = 0, n
      if (.not.btest(x,i)) cycle
      y = ibclr(x,i)
      if ((a(s(x)).lt.a(f(y))).and.(f(y).ne.f(x))) then
        s(x) = f(y)
      end if
      if ((a(s(x)).lt.a(s(y))).and.(s(y).ne.f(x))) then
        s(x) = s(y)
      end if
    end do
    return
  end subroutine bit_group
end module mod_or_plus_max
program or_plus_max
  use mod_or_plus_max
  implicit none
  integer :: k, m, t
  a = -1
  f = -1
  s = -1
  read(*,*) n
  u = 2**n-1
  read(*,*) a(0:u)
  call bit_group(u)
  t = 0
  do k = 1, u
    m = a(f(k))+a(s(k))
    if (m.lt.t) m = t
    write(*,'(i0)') m
    t = m
  end do
  stop
end program or_plus_max
; 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"

@_QMmod_or_plus_maxEa = global [262145 x i32] undef
@_QMmod_or_plus_maxEf = local_unnamed_addr global [262144 x i32] undef
@_QMmod_or_plus_maxEn = global i32 undef
@_QMmod_or_plus_maxEs = local_unnamed_addr global [262144 x i32] undef
@_QMmod_or_plus_maxEu = global i32 undef
@_QQcl.9123e9ba42e6de04e074eefaabbbc41a = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_5806/source.f\00"
@_QQcl.28693029 = linkonce constant [4 x i8] c"(i0)"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

; Function Attrs: nofree nosync nounwind memory(readwrite, argmem: read, inaccessiblemem: none)
define void @_QMmod_or_plus_maxPbit_group(ptr nocapture readonly %0) local_unnamed_addr #0 {
  %2 = alloca i32, align 4
  %3 = load i32, ptr %0, align 4, !tbaa !3
  %4 = sext i32 %3 to i64
  %5 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %4
  %6 = load i32, ptr %5, align 4, !tbaa !3
  %7 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %4
  %8 = load i32, ptr %7, align 4, !tbaa !3
  %9 = or i32 %8, %6
  %10 = icmp sgt i32 %9, -1
  br i1 %10, label %.loopexit, label %11

11:                                               ; preds = %1
  %12 = tail call i32 @llvm.ctpop.i32(i32 %3), !range !7
  %13 = icmp ult i32 %12, 2
  br i1 %13, label %14, label %30

14:                                               ; preds = %11
  store i32 0, ptr %5, align 4, !tbaa !3
  %15 = load i32, ptr %0, align 4, !tbaa !3
  %16 = sext i32 %15 to i64
  %17 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %16
  store i32 %15, ptr %17, align 4, !tbaa !3
  %18 = load i32, ptr getelementptr inbounds ([262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 1), align 4, !tbaa !3
  %19 = load i32, ptr %0, align 4, !tbaa !3
  %20 = sext i32 %19 to i64
  %21 = add nsw i64 %20, 1
  %22 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %21
  %23 = load i32, ptr %22, align 4, !tbaa !3
  %24 = icmp slt i32 %18, %23
  br i1 %24, label %25, label %.loopexit

25:                                               ; preds = %14
  %26 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %20
  store i32 %19, ptr %26, align 4, !tbaa !3
  %27 = load i32, ptr %0, align 4, !tbaa !3
  %28 = sext i32 %27 to i64
  %29 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %28
  store i32 0, ptr %29, align 4, !tbaa !3
  br label %.loopexit

30:                                               ; preds = %11
  %31 = load i32, ptr @_QMmod_or_plus_maxEn, align 4, !tbaa !3
  %32 = sext i32 %31 to i64
  %33 = add nsw i64 %32, 1
  %34 = icmp sgt i32 %31, -1
  br i1 %34, label %.lr.ph, label %._crit_edge.thread

._crit_edge.thread:                               ; preds = %30
  %35 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %4
  store i32 %3, ptr %35, align 4, !tbaa !3
  br label %._crit_edge.._crit_edge25_crit_edge

.lr.ph:                                           ; preds = %30, %44
  %36 = phi i32 [ %45, %44 ], [ %3, %30 ]
  %37 = phi i64 [ %47, %44 ], [ %33, %30 ]
  %38 = phi i32 [ %46, %44 ], [ 0, %30 ]
  %39 = shl nuw i32 1, %38
  %40 = and i32 %36, %39
  %.not22 = icmp eq i32 %40, 0
  br i1 %.not22, label %44, label %41

41:                                               ; preds = %.lr.ph
  %42 = xor i32 %39, -1
  %43 = and i32 %36, %42
  store i32 %43, ptr %2, align 4, !tbaa !3
  call void @_QMmod_or_plus_maxPbit_group(ptr nonnull %2)
  %.pre = load i32, ptr %0, align 4, !tbaa !3
  br label %44

44:                                               ; preds = %41, %.lr.ph
  %45 = phi i32 [ %.pre, %41 ], [ %36, %.lr.ph ]
  %46 = add nuw i32 %38, 1
  %47 = add nsw i64 %37, -1
  %48 = icmp sgt i64 %37, 1
  br i1 %48, label %.lr.ph, label %._crit_edge

._crit_edge:                                      ; preds = %44
  %.pre29 = load i32, ptr @_QMmod_or_plus_maxEn, align 4, !tbaa !3
  %.pre36 = sext i32 %45 to i64
  %.pre37 = sext i32 %.pre29 to i64
  %.pre39 = add nsw i64 %.pre37, 1
  %49 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %.pre36
  store i32 %45, ptr %49, align 4, !tbaa !3
  %50 = icmp sgt i32 %.pre29, -1
  br i1 %50, label %.lr.ph24.preheader, label %._crit_edge.._crit_edge25_crit_edge

._crit_edge.._crit_edge25_crit_edge:              ; preds = %._crit_edge.thread, %._crit_edge
  %.pre-phi4044 = phi i64 [ %33, %._crit_edge.thread ], [ %.pre39, %._crit_edge ]
  %.pre32 = load i32, ptr %0, align 4, !tbaa !3
  br label %._crit_edge25

.lr.ph24.preheader:                               ; preds = %._crit_edge
  %.pre31 = load i32, ptr %0, align 4, !tbaa !3
  br label %.lr.ph24

.lr.ph24:                                         ; preds = %.lr.ph24.preheader, %75
  %51 = phi i32 [ %76, %75 ], [ %.pre31, %.lr.ph24.preheader ]
  %52 = phi i64 [ %78, %75 ], [ %.pre39, %.lr.ph24.preheader ]
  %53 = phi i32 [ %77, %75 ], [ 0, %.lr.ph24.preheader ]
  %54 = shl nuw i32 1, %53
  %55 = and i32 %51, %54
  %.not21 = icmp eq i32 %55, 0
  br i1 %.not21, label %75, label %56

56:                                               ; preds = %.lr.ph24
  %57 = xor i32 %54, -1
  %58 = and i32 %51, %57
  %59 = sext i32 %51 to i64
  %60 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %59
  %61 = load i32, ptr %60, align 4, !tbaa !3
  %62 = sext i32 %61 to i64
  %63 = add nsw i64 %62, 1
  %64 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %63
  %65 = load i32, ptr %64, align 4, !tbaa !3
  %66 = sext i32 %58 to i64
  %67 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %66
  %68 = load i32, ptr %67, align 4, !tbaa !3
  %69 = sext i32 %68 to i64
  %70 = add nsw i64 %69, 1
  %71 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %70
  %72 = load i32, ptr %71, align 4, !tbaa !3
  %73 = icmp slt i32 %65, %72
  br i1 %73, label %74, label %75

74:                                               ; preds = %56
  store i32 %68, ptr %60, align 4, !tbaa !3
  %.pre30 = load i32, ptr %0, align 4, !tbaa !3
  br label %75

75:                                               ; preds = %74, %56, %.lr.ph24
  %76 = phi i32 [ %.pre30, %74 ], [ %51, %56 ], [ %51, %.lr.ph24 ]
  %77 = add nuw i32 %53, 1
  %78 = add nsw i64 %52, -1
  %79 = icmp sgt i64 %52, 1
  br i1 %79, label %.lr.ph24, label %._crit_edge25

._crit_edge25:                                    ; preds = %75, %._crit_edge.._crit_edge25_crit_edge
  %80 = phi i1 [ false, %._crit_edge.._crit_edge25_crit_edge ], [ %50, %75 ]
  %.pre-phi4043 = phi i64 [ %.pre-phi4044, %._crit_edge.._crit_edge25_crit_edge ], [ %.pre39, %75 ]
  %81 = phi i32 [ %.pre32, %._crit_edge.._crit_edge25_crit_edge ], [ %76, %75 ]
  %82 = sext i32 %81 to i64
  %83 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %82
  %84 = load i32, ptr %83, align 4, !tbaa !3
  %.not = icmp eq i32 %84, %81
  br i1 %.not, label %87, label %85

85:                                               ; preds = %._crit_edge25
  %86 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %82
  store i32 %81, ptr %86, align 4, !tbaa !3
  br label %87

87:                                               ; preds = %85, %._crit_edge25
  br i1 %80, label %.lr.ph27.preheader, label %.loopexit

.lr.ph27.preheader:                               ; preds = %87
  %.pre34 = load i32, ptr %0, align 4, !tbaa !3
  br label %.lr.ph27

.lr.ph27:                                         ; preds = %.lr.ph27.preheader, %138
  %88 = phi i32 [ %139, %138 ], [ %.pre34, %.lr.ph27.preheader ]
  %89 = phi i32 [ %140, %138 ], [ %.pre34, %.lr.ph27.preheader ]
  %90 = phi i64 [ %142, %138 ], [ %.pre-phi4043, %.lr.ph27.preheader ]
  %91 = phi i32 [ %141, %138 ], [ 0, %.lr.ph27.preheader ]
  %92 = shl nuw i32 1, %91
  %93 = and i32 %89, %92
  %.not20 = icmp eq i32 %93, 0
  br i1 %.not20, label %138, label %94

94:                                               ; preds = %.lr.ph27
  %95 = xor i32 %92, -1
  %96 = and i32 %89, %95
  %97 = sext i32 %89 to i64
  %98 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %97
  %99 = load i32, ptr %98, align 4, !tbaa !3
  %100 = sext i32 %99 to i64
  %101 = add nsw i64 %100, 1
  %102 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %101
  %103 = load i32, ptr %102, align 4, !tbaa !3
  %104 = sext i32 %96 to i64
  %105 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %104
  %106 = load i32, ptr %105, align 4, !tbaa !3
  %107 = sext i32 %106 to i64
  %108 = add nsw i64 %107, 1
  %109 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %108
  %110 = load i32, ptr %109, align 4, !tbaa !3
  %111 = icmp slt i32 %103, %110
  %112 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %97
  %113 = load i32, ptr %112, align 4, !tbaa !3
  %114 = icmp ne i32 %106, %113
  %115 = and i1 %111, %114
  br i1 %115, label %116, label %117

116:                                              ; preds = %94
  store i32 %106, ptr %98, align 4, !tbaa !3
  %.pre35 = load i32, ptr %0, align 4, !tbaa !3
  br label %117

117:                                              ; preds = %116, %94
  %118 = phi i32 [ %.pre35, %116 ], [ %88, %94 ]
  %119 = sext i32 %118 to i64
  %120 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %119
  %121 = load i32, ptr %120, align 4, !tbaa !3
  %122 = sext i32 %121 to i64
  %123 = add nsw i64 %122, 1
  %124 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %123
  %125 = load i32, ptr %124, align 4, !tbaa !3
  %126 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %104
  %127 = load i32, ptr %126, align 4, !tbaa !3
  %128 = sext i32 %127 to i64
  %129 = add nsw i64 %128, 1
  %130 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %129
  %131 = load i32, ptr %130, align 4, !tbaa !3
  %132 = icmp slt i32 %125, %131
  %133 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %119
  %134 = load i32, ptr %133, align 4, !tbaa !3
  %135 = icmp ne i32 %127, %134
  %136 = and i1 %132, %135
  br i1 %136, label %137, label %138

137:                                              ; preds = %117
  store i32 %127, ptr %120, align 4, !tbaa !3
  %.pre33 = load i32, ptr %0, align 4, !tbaa !3
  br label %138

138:                                              ; preds = %137, %117, %.lr.ph27
  %139 = phi i32 [ %.pre33, %137 ], [ %118, %117 ], [ %88, %.lr.ph27 ]
  %140 = phi i32 [ %.pre33, %137 ], [ %118, %117 ], [ %89, %.lr.ph27 ]
  %141 = add nuw i32 %91, 1
  %142 = add nsw i64 %90, -1
  %143 = icmp sgt i64 %90, 1
  br i1 %143, label %.lr.ph27, label %.loopexit

.loopexit:                                        ; preds = %138, %87, %25, %14, %1
  ret void
}

; Function Attrs: noreturn
define void @_QQmain() local_unnamed_addr #1 {
.preheader13.preheader:
  %0 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(1048580) @_QMmod_or_plus_maxEa, i8 -1, i64 1048580, i1 false), !tbaa !3
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(1048576) @_QMmod_or_plus_maxEf, i8 -1, i64 1048576, i1 false), !tbaa !3
  tail call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(1048576) @_QMmod_or_plus_maxEs, i8 -1, i64 1048576, i1 false), !tbaa !3
  %1 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.9123e9ba42e6de04e074eefaabbbc41a, i32 52)
  %2 = tail call i1 @_FortranAioInputInteger(ptr %1, ptr nonnull @_QMmod_or_plus_maxEn, i32 4)
  %3 = tail call i32 @_FortranAioEndIoStatement(ptr %1)
  %4 = load i32, ptr @_QMmod_or_plus_maxEn, align 4, !tbaa !3
  %5 = icmp eq i32 %4, 0
  br i1 %5, label %__mlir_math_ipowi_i32.exit, label %6

6:                                                ; preds = %.preheader13.preheader
  %7 = icmp slt i32 %4, 1
  br i1 %7, label %__mlir_math_ipowi_i32.exit, label %.preheader.i

.preheader.i:                                     ; preds = %6
  %8 = and i32 %4, 1
  %.not3.i = icmp eq i32 %8, 0
  %9 = select i1 %.not3.i, i32 1, i32 2
  %10 = icmp eq i32 %4, 1
  br i1 %10, label %__mlir_math_ipowi_i32.exit, label %.lr.ph.i

.lr.ph.i:                                         ; preds = %.preheader.i, %.lr.ph.i
  %spec.select4.i = phi i32 [ %spec.select.i, %.lr.ph.i ], [ %9, %.preheader.i ]
  %11 = phi i32 [ %13, %.lr.ph.i ], [ %4, %.preheader.i ]
  %12 = phi i32 [ %14, %.lr.ph.i ], [ 2, %.preheader.i ]
  %13 = lshr i32 %11, 1
  %14 = mul i32 %12, %12
  %15 = and i32 %11, 2
  %.not.i = icmp eq i32 %15, 0
  %16 = select i1 %.not.i, i32 1, i32 %14
  %spec.select.i = mul i32 %16, %spec.select4.i
  %17 = icmp ult i32 %11, 4
  br i1 %17, label %__mlir_math_ipowi_i32.exit, label %.lr.ph.i

__mlir_math_ipowi_i32.exit:                       ; preds = %.lr.ph.i, %6, %.preheader13.preheader, %.preheader.i
  %common.ret.op.i = phi i32 [ 1, %.preheader13.preheader ], [ %9, %.preheader.i ], [ 0, %6 ], [ %spec.select.i, %.lr.ph.i ]
  %18 = add i32 %common.ret.op.i, -1
  store i32 %18, ptr @_QMmod_or_plus_maxEu, align 4, !tbaa !3
  %19 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.9123e9ba42e6de04e074eefaabbbc41a, i32 54)
  %20 = load i32, ptr @_QMmod_or_plus_maxEu, align 4, !tbaa !3
  %21 = tail call i32 @llvm.smax.i32(i32 %20, i32 -1)
  %22 = sext i32 %21 to i64
  %23 = add nsw i64 %22, 1
  store ptr getelementptr inbounds ([262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 1), ptr %0, align 8, !tbaa !8
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 1
  store i64 4, ptr %.fca.1.gep, align 8, !tbaa !8
  %.fca.2.gep = 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.gep, align 8, !tbaa !8
  %.fca.3.gep = 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.gep, align 4, !tbaa !8
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %0, i64 0, i32 4
  store i8 9, ptr %.fca.4.gep, align 1, !tbaa !8
  %.fca.5.gep = 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.gep, align 2, !tbaa !8
  %.fca.6.gep = 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.gep, align 1, !tbaa !8
  %.fca.7.0.0.gep = 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.gep, align 8, !tbaa !8
  %.fca.7.0.1.gep = 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 %23, ptr %.fca.7.0.1.gep, align 8, !tbaa !8
  %.fca.7.0.2.gep = 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 4, ptr %.fca.7.0.2.gep, align 8, !tbaa !8
  %24 = call i1 @_FortranAioInputDescriptor(ptr %19, ptr nonnull %0)
  %25 = call i32 @_FortranAioEndIoStatement(ptr %19)
  call void @_QMmod_or_plus_maxPbit_group(ptr nonnull @_QMmod_or_plus_maxEu)
  %26 = load i32, ptr @_QMmod_or_plus_maxEu, align 4, !tbaa !3
  %27 = icmp sgt i32 %26, 0
  br i1 %27, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %__mlir_math_ipowi_i32.exit
  %28 = zext i32 %26 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 ]
  %.014 = phi i32 [ 0, %.lr.ph.preheader ], [ %spec.select, %.lr.ph ]
  %29 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEf, i64 0, i64 %indvars.iv
  %30 = load i32, ptr %29, align 4, !tbaa !3
  %31 = sext i32 %30 to i64
  %32 = add nsw i64 %31, 1
  %33 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %32
  %34 = load i32, ptr %33, align 4, !tbaa !3
  %35 = getelementptr [262144 x i32], ptr @_QMmod_or_plus_maxEs, i64 0, i64 %indvars.iv
  %36 = load i32, ptr %35, align 4, !tbaa !3
  %37 = sext i32 %36 to i64
  %38 = add nsw i64 %37, 1
  %39 = getelementptr [262145 x i32], ptr @_QMmod_or_plus_maxEa, i64 0, i64 %38
  %40 = load i32, ptr %39, align 4, !tbaa !3
  %41 = add i32 %40, %34
  %spec.select = call i32 @llvm.smax.i32(i32 %41, i32 %.014)
  %42 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.9123e9ba42e6de04e074eefaabbbc41a, i32 60)
  %43 = call i1 @_FortranAioOutputInteger32(ptr %42, i32 %spec.select)
  %44 = call i32 @_FortranAioEndIoStatement(ptr %42)
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv, %28
  br i1 %exitcond.not, label %._crit_edge, label %.lr.ph

._crit_edge:                                      ; preds = %.lr.ph, %__mlir_math_ipowi_i32.exit
  %45 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable
}

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 @_FortranAioOutputInteger32(ptr, i32) local_unnamed_addr

declare {} @_FortranAStopStatement(i32, i1, i1) local_unnamed_addr

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

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

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: write)
declare void @llvm.memset.p0.i64(ptr nocapture writeonly, i8, i64, i1 immarg) #3

attributes #0 = { nofree nosync nounwind memory(readwrite, argmem: read, inaccessiblemem: none) }
attributes #1 = { noreturn }
attributes #2 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #3 = { 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 = !{i32 0, i32 33}
!8 = !{!9, !9, i64 0}
!9 = !{!"descriptor member", !5, i64 0}
