program and_grid
  implicit none
  integer :: h, w, i, j, k
  integer :: r(500,500), b(500,500)
  character(500) :: s
  r = 0
  b = 0
  read(*,*) h, w
  do i = 1, h
    read(*,*) s
    s = trim(adjustl(s))
    do j = 1, w
      if (s(j:j).eq."#") then
        r(i,j) = 1
        b(i,j) = 1
      end if
    end do
  end do
  r(1:h,1) = 1
  b(1:h,w) = 1
  do i = 1, h
    if (mod(i,2).eq.1) then
      r(i,2:w-1) = 1
    else
      b(i,2:w-1) = 1
    end if
  end do
  call output(r(1:h,1:w))
  write(*,*)
  call output(b(1:h,1:w))
  stop
contains
  subroutine output(a)
    implicit none
    integer, intent(in) :: a(:,:)
    integer :: h, w, i
    character(500) :: s
    h = size(a(:,1))
    w = size(a(1,:))
    do i = 1, h
      s = ""
      do j = 1, w
        s(j:j) = "."
        if (a(i,j).gt.0) s(j:j) = "#"
      end do
      write(*,'(a)') trim(adjustl(s))
    end do
    return
  end subroutine output
end program and_grid
; 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"

@_QFEb = internal global [500 x [500 x i32]] undef
@_QFEr = internal global [500 x [500 x i32]] undef
@_QFEs = internal global [500 x i8] undef
@_QQcl.dea6678f63c05531b0e73f4d1f09d690 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_7909/source.f\00"
@_QQcl.23 = linkonce constant [1 x i8] c"#"
@_QQcl.2E = linkonce local_unnamed_addr constant [1 x i8] c"."
@_QQcl.286129 = linkonce constant [3 x i8] c"(a)"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

; Function Attrs: mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite)
declare void @free(ptr allocptr nocapture noundef) local_unnamed_addr #0

; Function Attrs: noreturn
define void @_QQmain() local_unnamed_addr #1 {
.preheader.preheader:
  %0 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %1 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %2 = alloca { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, align 8
  %3 = alloca { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, align 8
  %4 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %5 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %6 = alloca i32, align 4
  %7 = alloca i32, align 4
  %8 = alloca i32, align 4
  %9 = alloca { ptr }, align 8
  store ptr %7, ptr %9, align 8, !tbaa !3
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(1000000) @_QFEr, i8 0, i64 1000000, i1 false), !tbaa !3
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(1000000) @_QFEb, i8 0, i64 1000000, i1 false), !tbaa !3
  %10 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 8)
  %11 = call i1 @_FortranAioInputInteger(ptr %10, ptr nonnull %6, i32 4)
  %12 = call i1 @_FortranAioInputInteger(ptr %10, ptr nonnull %8, i32 4)
  %13 = call i32 @_FortranAioEndIoStatement(ptr %10)
  %14 = load i32, ptr %6, align 4, !tbaa !3
  %15 = icmp sgt i32 %14, 0
  br i1 %15, label %.lr.ph191, label %._crit_edge192.thread

._crit_edge192.thread:                            ; preds = %.preheader.preheader
  %16 = load i32, ptr %8, align 4, !tbaa !3
  br label %._crit_edge205

.lr.ph191:                                        ; preds = %.preheader.preheader
  %17 = zext i32 %14 to i64
  %.fca.1.gep90 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 1
  %.fca.2.gep91 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 2
  %.fca.3.gep92 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 3
  %.fca.4.gep93 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 4
  %.fca.5.gep94 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 5
  %.fca.6.gep95 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 6
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 1
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 2
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 3
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 4
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 5
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 6
  %.fca.1.gep156 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 1
  %.fca.2.gep158 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 2
  %.fca.3.gep160 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 3
  %.fca.4.gep162 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 4
  %.fca.5.gep164 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 5
  %.fca.6.gep166 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %0, i64 0, i32 6
  %.fca.1.gep17 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 1
  %.fca.2.gep19 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 2
  %.fca.3.gep21 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 3
  %.fca.4.gep23 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 4
  %.fca.5.gep25 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 5
  %.fca.6.gep27 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 6
  br label %18

18:                                               ; preds = %.lr.ph191, %._crit_edge189
  %indvars.iv = phi i64 [ 1, %.lr.ph191 ], [ %indvars.iv.next, %._crit_edge189 ]
  %19 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 10)
  %20 = call i1 @_FortranAioInputAscii(ptr %19, ptr nonnull @_QFEs, i64 500)
  %21 = call i32 @_FortranAioEndIoStatement(ptr %19)
  store ptr @_QFEs, ptr %1, align 8, !tbaa !7
  store i64 500, ptr %.fca.1.gep90, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep91, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep92, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep93, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep94, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep95, align 1, !tbaa !7
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %5, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep, align 1, !tbaa !7
  store i8 2, ptr %.fca.5.gep, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !7
  %22 = call {} @_FortranAAdjustl(ptr nonnull %5, ptr nonnull %1, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 11)
  %.fca.0.load = load ptr, ptr %5, align 8, !tbaa !7
  %.fca.1.load = load i64, ptr %.fca.1.gep, align 8, !tbaa !7
  store ptr %.fca.0.load, ptr %0, align 8, !tbaa !7
  store i64 %.fca.1.load, ptr %.fca.1.gep156, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep158, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep160, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep162, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep164, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep166, align 1, !tbaa !7
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %4, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep19, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep21, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep23, align 1, !tbaa !7
  store i8 2, ptr %.fca.5.gep25, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep27, align 1, !tbaa !7
  %23 = call {} @_FortranATrim(ptr nonnull %4, ptr nonnull %0, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 11)
  %.fca.0.load29 = load ptr, ptr %4, align 8, !tbaa !7
  %.fca.1.load32 = load i64, ptr %.fca.1.gep17, align 8, !tbaa !7
  %24 = call i64 @llvm.smin.i64(i64 %.fca.1.load32, i64 500)
  call void @llvm.memmove.p0.p0.i64(ptr nonnull align 16 @_QFEs, ptr align 1 %.fca.0.load29, i64 %24, i1 false)
  %25 = sub i64 500, %24
  %26 = icmp sgt i64 %25, 0
  br i1 %26, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %18
  %uglygep = getelementptr i8, ptr @_QFEs, i64 %24
  call void @llvm.memset.p0.i64(ptr align 1 %uglygep, i8 32, i64 %25, i1 false), !tbaa !3
  br label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph.preheader, %18
  call void @free(ptr %.fca.0.load29)
  call void @free(ptr %.fca.0.load)
  %27 = load i32, ptr %8, align 4, !tbaa !3
  %28 = icmp sgt i32 %27, 0
  br i1 %28, label %.lr.ph188, label %._crit_edge189

.lr.ph188:                                        ; preds = %._crit_edge
  %29 = zext i32 %27 to i64
  %30 = add nsw i64 %indvars.iv, -1
  br label %31

31:                                               ; preds = %.lr.ph188, %._crit_edge216
  %32 = phi i64 [ %29, %.lr.ph188 ], [ %46, %._crit_edge216 ]
  %33 = phi i32 [ 1, %.lr.ph188 ], [ %45, %._crit_edge216 ]
  store i32 %33, ptr %7, align 4, !tbaa !3
  %34 = sext i32 %33 to i64
  %35 = add nsw i64 %34, -1
  %36 = getelementptr [500 x [1 x i8]], ptr @_QFEs, i64 0, i64 %35
  %37 = call i32 @_FortranACharacterCompareScalar1(ptr %36, ptr nonnull @_QQcl.23, i64 1, i64 1)
  %38 = icmp eq i32 %37, 0
  %39 = load i32, ptr %7, align 4, !tbaa !3
  br i1 %38, label %40, label %._crit_edge216

40:                                               ; preds = %31
  %41 = sext i32 %39 to i64
  %42 = add nsw i64 %41, -1
  %43 = getelementptr [500 x [500 x i32]], ptr @_QFEr, i64 0, i64 %42, i64 %30
  store i32 1, ptr %43, align 4, !tbaa !3
  %44 = getelementptr [500 x [500 x i32]], ptr @_QFEb, i64 0, i64 %42, i64 %30
  store i32 1, ptr %44, align 4, !tbaa !3
  br label %._crit_edge216

._crit_edge216:                                   ; preds = %31, %40
  %45 = add i32 %39, 1
  %46 = add nsw i64 %32, -1
  %47 = icmp sgt i64 %32, 1
  br i1 %47, label %31, label %._crit_edge189

._crit_edge189:                                   ; preds = %._crit_edge216, %._crit_edge
  %.lcssa = phi i32 [ 1, %._crit_edge ], [ %45, %._crit_edge216 ]
  store i32 %.lcssa, ptr %7, align 4, !tbaa !3
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv, %17
  br i1 %exitcond.not, label %._crit_edge192, label %18

._crit_edge192:                                   ; preds = %._crit_edge189
  %.pre217 = load i32, ptr %6, align 4, !tbaa !3
  %48 = call i32 @llvm.smax.i32(i32 %.pre217, i32 0)
  %49 = zext i32 %48 to i64
  %.not = icmp slt i32 %.pre217, 1
  br i1 %.not, label %._crit_edge195.thread, label %.lr.ph194.preheader

.lr.ph194.preheader:                              ; preds = %._crit_edge192
  %min.iters.check = icmp ult i32 %48, 8
  br i1 %min.iters.check, label %.lr.ph194.preheader243, label %vector.ph

vector.ph:                                        ; preds = %.lr.ph194.preheader
  %n.vec = and i64 %49, 2147483640
  %ind.end = and i64 %49, 7
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %50 = getelementptr i32, ptr @_QFEr, i64 %index
  store <4 x i32> <i32 1, i32 1, i32 1, i32 1>, ptr %50, align 16, !tbaa !3
  %51 = getelementptr i32, ptr %50, i64 4
  store <4 x i32> <i32 1, i32 1, i32 1, i32 1>, ptr %51, align 16, !tbaa !3
  %index.next = add nuw i64 %index, 8
  %52 = icmp eq i64 %index.next, %n.vec
  br i1 %52, label %middle.block, label %vector.body, !llvm.loop !9

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %n.vec, %49
  br i1 %cmp.n, label %._crit_edge195, label %.lr.ph194.preheader243

.lr.ph194.preheader243:                           ; preds = %.lr.ph194.preheader, %middle.block
  %.ph244 = phi i64 [ %49, %.lr.ph194.preheader ], [ %ind.end, %middle.block ]
  %.ph245 = phi i64 [ 0, %.lr.ph194.preheader ], [ %n.vec, %middle.block ]
  br label %.lr.ph194

._crit_edge195.thread:                            ; preds = %._crit_edge192
  %53 = load i32, ptr %8, align 4, !tbaa !3
  br label %._crit_edge205

.lr.ph194:                                        ; preds = %.lr.ph194.preheader243, %.lr.ph194
  %54 = phi i64 [ %58, %.lr.ph194 ], [ %.ph244, %.lr.ph194.preheader243 ]
  %55 = phi i64 [ %56, %.lr.ph194 ], [ %.ph245, %.lr.ph194.preheader243 ]
  %56 = add nuw nsw i64 %55, 1
  %57 = getelementptr i32, ptr @_QFEr, i64 %55
  store i32 1, ptr %57, align 4, !tbaa !3
  %58 = add nsw i64 %54, -1
  %59 = icmp ugt i64 %54, 1
  br i1 %59, label %.lr.ph194, label %._crit_edge195, !llvm.loop !12

._crit_edge195:                                   ; preds = %.lr.ph194, %middle.block
  %60 = load i32, ptr %8, align 4, !tbaa !3
  br i1 %.not, label %._crit_edge198, label %.lr.ph197

.lr.ph197:                                        ; preds = %._crit_edge195
  %61 = sext i32 %60 to i64
  %62 = mul nsw i64 %61, 500
  %63 = add nsw i64 %62, -500
  %64 = call i64 @llvm.smax.i64(i64 %49, i64 1)
  %min.iters.check230 = icmp ult i64 %64, 8
  br i1 %min.iters.check230, label %scalar.ph229.preheader, label %vector.ph231

vector.ph231:                                     ; preds = %.lr.ph197
  %n.vec233 = and i64 %64, 2147483640
  %ind.end234 = sub nsw i64 %49, %n.vec233
  br label %vector.body238

vector.body238:                                   ; preds = %vector.body238, %vector.ph231
  %index239 = phi i64 [ 0, %vector.ph231 ], [ %index.next240, %vector.body238 ]
  %65 = add nsw i64 %63, %index239
  %66 = getelementptr i32, ptr @_QFEb, i64 %65
  store <4 x i32> <i32 1, i32 1, i32 1, i32 1>, ptr %66, align 16, !tbaa !3
  %67 = getelementptr i32, ptr %66, i64 4
  store <4 x i32> <i32 1, i32 1, i32 1, i32 1>, ptr %67, align 16, !tbaa !3
  %index.next240 = add nuw i64 %index239, 8
  %68 = icmp eq i64 %index.next240, %n.vec233
  br i1 %68, label %middle.block228, label %vector.body238, !llvm.loop !13

middle.block228:                                  ; preds = %vector.body238
  %cmp.n237 = icmp eq i64 %64, %n.vec233
  br i1 %cmp.n237, label %._crit_edge198, label %scalar.ph229.preheader

scalar.ph229.preheader:                           ; preds = %.lr.ph197, %middle.block228
  %.ph = phi i64 [ %49, %.lr.ph197 ], [ %ind.end234, %middle.block228 ]
  %.ph242 = phi i64 [ 0, %.lr.ph197 ], [ %n.vec233, %middle.block228 ]
  br label %scalar.ph229

scalar.ph229:                                     ; preds = %scalar.ph229.preheader, %scalar.ph229
  %69 = phi i64 [ %74, %scalar.ph229 ], [ %.ph, %scalar.ph229.preheader ]
  %70 = phi i64 [ %71, %scalar.ph229 ], [ %.ph242, %scalar.ph229.preheader ]
  %71 = add nuw nsw i64 %70, 1
  %72 = add nsw i64 %63, %70
  %73 = getelementptr i32, ptr @_QFEb, i64 %72
  store i32 1, ptr %73, align 4, !tbaa !3
  %74 = add nsw i64 %69, -1
  %75 = icmp sgt i64 %69, 1
  br i1 %75, label %scalar.ph229, label %._crit_edge198, !llvm.loop !14

._crit_edge198:                                   ; preds = %scalar.ph229, %middle.block228, %._crit_edge195
  %76 = icmp sgt i32 %.pre217, 0
  br i1 %76, label %.lr.ph204, label %._crit_edge205

.lr.ph204:                                        ; preds = %._crit_edge198
  %77 = zext i32 %.pre217 to i64
  %78 = add i32 %60, -1
  %79 = call i32 @llvm.smax.i32(i32 %78, i32 1)
  %80 = zext i32 %79 to i64
  %81 = add nsw i64 %80, -1
  %82 = icmp ugt i32 %79, 1
  %83 = add nsw i64 %80, -2
  %xtraiter = and i64 %81, 3
  %84 = icmp ult i64 %83, 3
  %unroll_iter = and i64 %81, -4
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  %xtraiter248 = and i64 %81, 3
  %85 = icmp ult i64 %83, 3
  %unroll_iter252 = and i64 %81, -4
  %lcmp.mod251.not = icmp eq i64 %xtraiter248, 0
  br label %86

86:                                               ; preds = %.lr.ph204, %.loopexit
  %indvars.iv212 = phi i64 [ 1, %.lr.ph204 ], [ %indvars.iv.next213, %.loopexit ]
  %87 = and i64 %indvars.iv212, 2147483649
  %88 = icmp eq i64 %87, 1
  br i1 %88, label %89, label %108

89:                                               ; preds = %86
  br i1 %82, label %.lr.ph202, label %.loopexit

.lr.ph202:                                        ; preds = %89
  %90 = add nsw i64 %indvars.iv212, -1
  br i1 %85, label %.loopexit.loopexit.unr-lcssa, label %.lr.ph202.new

.lr.ph202.new:                                    ; preds = %.lr.ph202, %.lr.ph202.new
  %91 = phi i64 [ %104, %.lr.ph202.new ], [ 0, %.lr.ph202 ]
  %niter253 = phi i64 [ %niter253.next.3, %.lr.ph202.new ], [ 0, %.lr.ph202 ]
  %92 = mul nuw i64 %91, 500
  %93 = add nuw i64 %92, 500
  %94 = add nuw nsw i64 %90, %93
  %95 = getelementptr i32, ptr @_QFEr, i64 %94
  store i32 1, ptr %95, align 4, !tbaa !3
  %96 = mul nuw i64 %91, 500
  %97 = add nuw i64 %96, 1000
  %98 = add nuw nsw i64 %90, %97
  %99 = getelementptr i32, ptr @_QFEr, i64 %98
  store i32 1, ptr %99, align 4, !tbaa !3
  %100 = mul nuw i64 %91, 500
  %101 = add nuw i64 %100, 1500
  %102 = add nuw nsw i64 %90, %101
  %103 = getelementptr i32, ptr @_QFEr, i64 %102
  store i32 1, ptr %103, align 4, !tbaa !3
  %104 = add nuw nsw i64 %91, 4
  %105 = mul nuw nsw i64 %104, 500
  %106 = add nuw nsw i64 %90, %105
  %107 = getelementptr i32, ptr @_QFEr, i64 %106
  store i32 1, ptr %107, align 4, !tbaa !3
  %niter253.next.3 = add i64 %niter253, 4
  %niter253.ncmp.3 = icmp eq i64 %niter253.next.3, %unroll_iter252
  br i1 %niter253.ncmp.3, label %.loopexit.loopexit.unr-lcssa, label %.lr.ph202.new

108:                                              ; preds = %86
  br i1 %82, label %.lr.ph200, label %.loopexit

.lr.ph200:                                        ; preds = %108
  %109 = add nsw i64 %indvars.iv212, -1
  br i1 %84, label %.loopexit.loopexit241.unr-lcssa, label %.lr.ph200.new

.lr.ph200.new:                                    ; preds = %.lr.ph200, %.lr.ph200.new
  %110 = phi i64 [ %123, %.lr.ph200.new ], [ 0, %.lr.ph200 ]
  %niter = phi i64 [ %niter.next.3, %.lr.ph200.new ], [ 0, %.lr.ph200 ]
  %111 = mul nuw i64 %110, 500
  %112 = add nuw i64 %111, 500
  %113 = add nuw nsw i64 %109, %112
  %114 = getelementptr i32, ptr @_QFEb, i64 %113
  store i32 1, ptr %114, align 4, !tbaa !3
  %115 = mul nuw i64 %110, 500
  %116 = add nuw i64 %115, 1000
  %117 = add nuw nsw i64 %109, %116
  %118 = getelementptr i32, ptr @_QFEb, i64 %117
  store i32 1, ptr %118, align 4, !tbaa !3
  %119 = mul nuw i64 %110, 500
  %120 = add nuw i64 %119, 1500
  %121 = add nuw nsw i64 %109, %120
  %122 = getelementptr i32, ptr @_QFEb, i64 %121
  store i32 1, ptr %122, align 4, !tbaa !3
  %123 = add nuw nsw i64 %110, 4
  %124 = mul nuw nsw i64 %123, 500
  %125 = add nuw nsw i64 %109, %124
  %126 = getelementptr i32, ptr @_QFEb, i64 %125
  store i32 1, ptr %126, align 4, !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 %.loopexit.loopexit241.unr-lcssa, label %.lr.ph200.new

.loopexit.loopexit.unr-lcssa:                     ; preds = %.lr.ph202.new, %.lr.ph202
  %.unr250 = phi i64 [ 0, %.lr.ph202 ], [ %104, %.lr.ph202.new ]
  br i1 %lcmp.mod251.not, label %.loopexit, label %.epil.preheader247

.epil.preheader247:                               ; preds = %.loopexit.loopexit.unr-lcssa, %.epil.preheader247
  %127 = phi i64 [ %128, %.epil.preheader247 ], [ %.unr250, %.loopexit.loopexit.unr-lcssa ]
  %epil.iter249 = phi i64 [ %epil.iter249.next, %.epil.preheader247 ], [ 0, %.loopexit.loopexit.unr-lcssa ]
  %128 = add nuw nsw i64 %127, 1
  %129 = mul nuw nsw i64 %128, 500
  %130 = add nuw nsw i64 %90, %129
  %131 = getelementptr i32, ptr @_QFEr, i64 %130
  store i32 1, ptr %131, align 4, !tbaa !3
  %epil.iter249.next = add i64 %epil.iter249, 1
  %epil.iter249.cmp.not = icmp eq i64 %epil.iter249.next, %xtraiter248
  br i1 %epil.iter249.cmp.not, label %.loopexit, label %.epil.preheader247, !llvm.loop !15

.loopexit.loopexit241.unr-lcssa:                  ; preds = %.lr.ph200.new, %.lr.ph200
  %.unr = phi i64 [ 0, %.lr.ph200 ], [ %123, %.lr.ph200.new ]
  br i1 %lcmp.mod.not, label %.loopexit, label %.epil.preheader

.epil.preheader:                                  ; preds = %.loopexit.loopexit241.unr-lcssa, %.epil.preheader
  %132 = phi i64 [ %133, %.epil.preheader ], [ %.unr, %.loopexit.loopexit241.unr-lcssa ]
  %epil.iter = phi i64 [ %epil.iter.next, %.epil.preheader ], [ 0, %.loopexit.loopexit241.unr-lcssa ]
  %133 = add nuw nsw i64 %132, 1
  %134 = mul nuw nsw i64 %133, 500
  %135 = add nuw nsw i64 %109, %134
  %136 = getelementptr i32, ptr @_QFEb, i64 %135
  store i32 1, ptr %136, align 4, !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 %.loopexit, label %.epil.preheader, !llvm.loop !17

.loopexit:                                        ; preds = %.loopexit.loopexit241.unr-lcssa, %.epil.preheader, %.loopexit.loopexit.unr-lcssa, %.epil.preheader247, %108, %89
  %indvars.iv.next213 = add nuw nsw i64 %indvars.iv212, 1
  %exitcond215.not = icmp eq i64 %indvars.iv212, %77
  br i1 %exitcond215.not, label %._crit_edge205, label %86

._crit_edge205:                                   ; preds = %.loopexit, %._crit_edge192.thread, %._crit_edge195.thread, %._crit_edge198
  %137 = phi i64 [ %49, %._crit_edge198 ], [ 0, %._crit_edge192.thread ], [ %49, %._crit_edge195.thread ], [ %49, %.loopexit ]
  %138 = phi i32 [ %60, %._crit_edge198 ], [ %16, %._crit_edge192.thread ], [ %53, %._crit_edge195.thread ], [ %60, %.loopexit ]
  %139 = call i32 @llvm.smax.i32(i32 %138, i32 0)
  %140 = zext i32 %139 to i64
  store ptr @_QFEr, ptr %3, align 8, !tbaa !7
  %.fca.1.gep52 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 1
  store i64 4, ptr %.fca.1.gep52, align 8, !tbaa !7
  %.fca.2.gep54 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep54, align 8, !tbaa !7
  %.fca.3.gep56 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 3
  store i8 2, ptr %.fca.3.gep56, align 4, !tbaa !7
  %.fca.4.gep58 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 4
  store i8 9, ptr %.fca.4.gep58, align 1, !tbaa !7
  %.fca.5.gep60 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep60, align 2, !tbaa !7
  %.fca.6.gep62 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep62, align 1, !tbaa !7
  %.fca.7.0.0.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, 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, [2 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 1
  store i64 %137, ptr %.fca.7.0.1.gep, align 8, !tbaa !7
  %.fca.7.0.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 2
  store i64 4, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  %.fca.7.1.0.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 1, i64 0
  store i64 1, ptr %.fca.7.1.0.gep, align 8, !tbaa !7
  %.fca.7.1.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 1, i64 1
  store i64 %140, ptr %.fca.7.1.1.gep, align 8, !tbaa !7
  %.fca.7.1.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 1, i64 2
  store i64 2000, ptr %.fca.7.1.2.gep, align 8, !tbaa !7
  call void @_QFPoutput(ptr nonnull %3, ptr nonnull %9)
  %141 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 29)
  %142 = call i32 @_FortranAioEndIoStatement(ptr %141)
  %143 = load i32, ptr %6, align 4, !tbaa !3
  %144 = load i32, ptr %8, align 4, !tbaa !3
  %145 = call i32 @llvm.smax.i32(i32 %143, i32 0)
  %146 = zext i32 %145 to i64
  %147 = call i32 @llvm.smax.i32(i32 %144, i32 0)
  %148 = zext i32 %147 to i64
  store ptr @_QFEb, ptr %2, align 8, !tbaa !7
  %.fca.1.gep66 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 1
  store i64 4, ptr %.fca.1.gep66, align 8, !tbaa !7
  %.fca.2.gep68 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep68, align 8, !tbaa !7
  %.fca.3.gep70 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 3
  store i8 2, ptr %.fca.3.gep70, align 4, !tbaa !7
  %.fca.4.gep72 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 4
  store i8 9, ptr %.fca.4.gep72, align 1, !tbaa !7
  %.fca.5.gep74 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep74, align 2, !tbaa !7
  %.fca.6.gep76 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep76, align 1, !tbaa !7
  %.fca.7.0.0.gep78 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep78, align 8, !tbaa !7
  %.fca.7.0.1.gep80 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 1
  store i64 %146, ptr %.fca.7.0.1.gep80, align 8, !tbaa !7
  %.fca.7.0.2.gep82 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 0, i64 2
  store i64 4, ptr %.fca.7.0.2.gep82, align 8, !tbaa !7
  %.fca.7.1.0.gep84 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 1, i64 0
  store i64 1, ptr %.fca.7.1.0.gep84, align 8, !tbaa !7
  %.fca.7.1.1.gep86 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 1, i64 1
  store i64 %148, ptr %.fca.7.1.1.gep86, align 8, !tbaa !7
  %.fca.7.1.2.gep88 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %2, i64 0, i32 7, i64 1, i64 2
  store i64 2000, ptr %.fca.7.1.2.gep88, align 8, !tbaa !7
  call void @_QFPoutput(ptr nonnull %2, ptr nonnull %9)
  %149 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable
}

define void @_QFPoutput(ptr nocapture readonly %0, ptr nest nocapture readonly %1) local_unnamed_addr {
  %3 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %4 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %5 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %6 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %7 = load ptr, ptr %1, align 8, !tbaa !3
  %8 = alloca [500 x i8], align 1
  %9 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 1
  %10 = load i64, ptr %9, align 8, !tbaa !7
  %11 = tail call i64 @llvm.smax.i64(i64 %10, i64 0)
  %12 = trunc i64 %11 to i32
  %13 = icmp sgt i32 %12, 0
  br i1 %13, label %.preheader.lr.ph, label %._crit_edge146

.preheader.lr.ph:                                 ; preds = %2
  %14 = and i64 %11, 4294967295
  %15 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 1, i64 1
  %16 = load i64, ptr %15, align 8, !tbaa !7
  %17 = tail call i64 @llvm.smax.i64(i64 %16, i64 0)
  %sext145 = shl i64 %17, 32
  %18 = ashr exact i64 %sext145, 32
  %19 = icmp sgt i64 %sext145, 0
  %20 = load i8, ptr @_QQcl.2E, align 1
  %21 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 0, i64 2
  %22 = getelementptr { ptr, i64, i32, i8, i8, i8, i8, [2 x [3 x i64]] }, ptr %0, i64 0, i32 7, i64 1, i64 2
  %23 = load i8, ptr @_QQcl.23, align 1
  %.fca.1.gep52 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 1
  %.fca.2.gep54 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 2
  %.fca.3.gep56 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 3
  %.fca.4.gep58 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 4
  %.fca.5.gep60 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 5
  %.fca.6.gep62 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 6
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 1
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 2
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 3
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 4
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 5
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 6
  %.fca.1.gep123 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 1
  %.fca.2.gep125 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 2
  %.fca.3.gep127 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 3
  %.fca.4.gep129 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 4
  %.fca.5.gep131 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 5
  %.fca.6.gep133 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 6
  %.fca.1.gep17 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 1
  %.fca.2.gep19 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 2
  %.fca.3.gep21 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 3
  %.fca.4.gep23 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 4
  %.fca.5.gep25 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 5
  %.fca.6.gep27 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 6
  br label %.preheader

.preheader:                                       ; preds = %.preheader.lr.ph, %._crit_edge
  %indvars.iv = phi i64 [ 1, %.preheader.lr.ph ], [ %indvars.iv.next, %._crit_edge ]
  %24 = phi i64 [ %14, %.preheader.lr.ph ], [ %56, %._crit_edge ]
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 1 dereferenceable(500) %8, i8 32, i64 500, i1 false), !tbaa !3
  br i1 %19, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %.preheader
  %25 = add nsw i64 %indvars.iv, -1
  %26 = load ptr, ptr %0, align 8, !tbaa !7
  %27 = load i64, ptr %21, align 8, !tbaa !7
  %28 = mul i64 %27, %25
  %29 = load i64, ptr %22, align 8, !tbaa !7
  br label %30

30:                                               ; preds = %.lr.ph, %46
  %31 = phi i64 [ %18, %.lr.ph ], [ %49, %46 ]
  %32 = phi i32 [ 1, %.lr.ph ], [ %48, %46 ]
  store i32 %32, ptr %7, align 4, !tbaa !3
  %33 = sext i32 %32 to i64
  %34 = add nsw i64 %33, -1
  %35 = getelementptr [500 x [1 x i8]], ptr %8, i64 0, i64 %34
  store i8 %20, ptr %35, align 1
  %36 = load i32, ptr %7, align 4, !tbaa !3
  %37 = sext i32 %36 to i64
  %38 = add nsw i64 %37, -1
  %39 = mul i64 %29, %38
  %40 = add i64 %39, %28
  %41 = getelementptr i8, ptr %26, i64 %40
  %42 = load i32, ptr %41, align 4, !tbaa !3
  %43 = icmp sgt i32 %42, 0
  br i1 %43, label %44, label %46

44:                                               ; preds = %30
  %45 = getelementptr [500 x [1 x i8]], ptr %8, i64 0, i64 %38
  store i8 %23, ptr %45, align 1
  %.pre = load i32, ptr %7, align 4, !tbaa !3
  br label %46

46:                                               ; preds = %44, %30
  %47 = phi i32 [ %.pre, %44 ], [ %36, %30 ]
  %48 = add i32 %47, 1
  %49 = add nsw i64 %31, -1
  %50 = icmp sgt i64 %31, 1
  br i1 %50, label %30, label %._crit_edge

._crit_edge:                                      ; preds = %46, %.preheader
  %.lcssa = phi i32 [ 1, %.preheader ], [ %48, %46 ]
  store i32 %.lcssa, ptr %7, align 4, !tbaa !3
  %51 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.286129, i64 3, ptr null, i32 -1, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 46)
  store ptr %8, ptr %4, align 8, !tbaa !7
  store i64 500, ptr %.fca.1.gep52, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep54, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep56, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep58, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep60, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep62, align 1, !tbaa !7
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %6, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep, align 1, !tbaa !7
  store i8 2, ptr %.fca.5.gep, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !7
  %52 = call {} @_FortranAAdjustl(ptr nonnull %6, ptr nonnull %4, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 46)
  %.fca.0.load = load ptr, ptr %6, align 8, !tbaa !7
  %.fca.1.load = load i64, ptr %.fca.1.gep, align 8, !tbaa !7
  store ptr %.fca.0.load, ptr %3, align 8, !tbaa !7
  store i64 %.fca.1.load, ptr %.fca.1.gep123, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep125, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep127, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep129, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep131, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep133, align 1, !tbaa !7
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %5, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep19, align 8, !tbaa !7
  store i8 0, ptr %.fca.3.gep21, align 4, !tbaa !7
  store i8 40, ptr %.fca.4.gep23, align 1, !tbaa !7
  store i8 2, ptr %.fca.5.gep25, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep27, align 1, !tbaa !7
  %53 = call {} @_FortranATrim(ptr nonnull %5, ptr nonnull %3, ptr nonnull @_QQcl.dea6678f63c05531b0e73f4d1f09d690, i32 46)
  %.fca.0.load29 = load ptr, ptr %5, align 8, !tbaa !7
  %.fca.1.load32 = load i64, ptr %.fca.1.gep17, align 8, !tbaa !7
  %54 = call i1 @_FortranAioOutputAscii(ptr %51, ptr %.fca.0.load29, i64 %.fca.1.load32)
  call void @free(ptr %.fca.0.load29)
  call void @free(ptr %.fca.0.load)
  %55 = call i32 @_FortranAioEndIoStatement(ptr %51)
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %56 = add nsw i64 %24, -1
  %57 = icmp sgt i64 %24, 1
  br i1 %57, label %.preheader, label %._crit_edge146

._crit_edge146:                                   ; preds = %._crit_edge, %2
  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 @_FortranAioInputAscii(ptr, ptr, i64) local_unnamed_addr

declare {} @_FortranAAdjustl(ptr, ptr, ptr, i32) local_unnamed_addr

declare {} @_FortranATrim(ptr, ptr, ptr, i32) local_unnamed_addr

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

declare i32 @_FortranACharacterCompareScalar1(ptr, ptr, i64, i64) local_unnamed_addr

declare ptr @_FortranAioBeginExternalListOutput(i32, ptr, i32) local_unnamed_addr

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

declare ptr @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioOutputAscii(ptr, ptr, i64) local_unnamed_addr

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

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

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

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

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