      PROGRAM Lamps
      implicit none
      integer,parameter :: p = 16
      integer(p) :: n,k
      integer(p), allocatable :: a(:)
      
      integer(p) :: i,j, left,right
      integer(p), allocatable :: ant(:),post(:)
      
      
      read*,n,k
      allocate( a(n),ant(n),post(n+1) )
      read*,a(1:n)
      
      ant = a
      do j = 1,k
        post = 0
        do i = 1,n
          left  = max( 1,i-ant(i) )
          right = min( n,i+ant(i) )
          
          right = right + 1
          post(left) = post(left) + 1
          post(right) = post(right) - 1
        end do
        
        do i = 2,n
          post(i) = post(i) + post(i-1)
        end do
        
        if( all(ant(1:n)==post(1:n)) ) exit
        
        ant = post
        
      end do
      
      print'(*(i0,x))',post(1:n)
      
      
      
      END PROGRAM
; 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.0 = internal unnamed_addr global ptr null
@_QFEa.8 = internal unnamed_addr global i64 0
@_QFEant.0 = internal unnamed_addr global ptr null
@_QFEant.7 = internal unnamed_addr global i64 1
@_QFEant.8 = internal unnamed_addr global i64 0
@_QFEpost.0 = internal unnamed_addr global ptr null
@_QFEpost.7 = internal unnamed_addr global i64 1
@_QFEpost.8 = internal unnamed_addr global i64 0
@_QQcl.802de05bfba08f2aa7cb1bee52ad910f = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_1234/source.f\00"
@_QQcl.16373402fa3425c6e46827601abb88fa = linkonce constant [76 x i8] c"array left hand side must be allocated when the right hand side is a scalar\00"
@_QQcl.282A2869302C782929 = linkonce constant [9 x i8] c"(*(i0,x))"
@_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

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

define void @_QQmain() local_unnamed_addr {
  %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 { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %4 = alloca i128, align 8
  %5 = alloca i128, align 8
  %6 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.802de05bfba08f2aa7cb1bee52ad910f, i32 11)
  %7 = call i1 @_FortranAioInputInteger(ptr %6, ptr nonnull %5, i32 16)
  %8 = call i1 @_FortranAioInputInteger(ptr %6, ptr nonnull %4, i32 16)
  %9 = call i32 @_FortranAioEndIoStatement(ptr %6)
  %10 = load i128, ptr %5, align 8, !tbaa !3
  %11 = trunc i128 %10 to i64
  %12 = call i64 @llvm.smax.i64(i64 %11, i64 0)
  %13 = shl i64 %12, 4
  %14 = call ptr @malloc(i64 %13)
  store ptr %14, ptr @_QFEa.0, align 8, !tbaa !7
  store i64 %12, ptr @_QFEa.8, align 8, !tbaa !7
  %15 = call ptr @malloc(i64 %13)
  store ptr %15, ptr @_QFEant.0, align 8, !tbaa !7
  store i64 1, ptr @_QFEant.7, align 8, !tbaa !7
  store i64 %12, ptr @_QFEant.8, align 8, !tbaa !7
  %16 = add i64 %11, 1
  %17 = call i64 @llvm.smax.i64(i64 %16, i64 0)
  %18 = shl i64 %17, 4
  %19 = call ptr @malloc(i64 %18)
  store ptr %19, ptr @_QFEpost.0, align 8, !tbaa !7
  store i64 1, ptr @_QFEpost.7, align 8, !tbaa !7
  store i64 %17, ptr @_QFEpost.8, align 8, !tbaa !7
  %20 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.802de05bfba08f2aa7cb1bee52ad910f, i32 13)
  %.unpack = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %21 = load i128, ptr %5, align 8, !tbaa !3
  %22 = trunc i128 %21 to i64
  %23 = call i64 @llvm.smax.i64(i64 %22, i64 0)
  store ptr %.unpack, ptr %3, align 8, !tbaa !7
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 1
  store i64 16, 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 %3, 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 %3, 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 %3, i64 0, i32 4
  store i8 11, 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 %3, 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 %3, 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 %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, [1 x [3 x i64]] }, ptr %3, i64 0, i32 7, i64 0, i64 1
  store i64 %23, 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 %3, i64 0, i32 7, i64 0, i64 2
  store i64 16, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  %24 = call i1 @_FortranAioInputDescriptor(ptr %20, ptr nonnull %3)
  %25 = call i32 @_FortranAioEndIoStatement(ptr %20)
  %.unpack787 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %.unpack794.unpack.unpack796 = load i64, ptr @_QFEa.8, align 8, !tbaa !7
  %.unpack799 = load ptr, ptr @_QFEant.0, align 8, !tbaa !7
  %.not = icmp eq ptr %.unpack799, null
  br i1 %.not, label %68, label %26

26:                                               ; preds = %0
  %.unpack806.unpack.unpack808 = load i64, ptr @_QFEant.8, align 8, !tbaa !7
  %.not978 = icmp eq i64 %.unpack806.unpack.unpack808, %.unpack794.unpack.unpack796
  br i1 %.not978, label %.preheader984, label %29

.preheader984:                                    ; preds = %26
  %27 = icmp sgt i64 %.unpack794.unpack.unpack796, 0
  br i1 %27, label %.lr.ph986.preheader, label %._crit_edge

.lr.ph986.preheader:                              ; preds = %.preheader984
  %xtraiter1045 = and i64 %.unpack794.unpack.unpack796, 3
  %28 = icmp ult i64 %.unpack794.unpack.unpack796, 4
  br i1 %28, label %._crit_edge.loopexit.unr-lcssa, label %.lr.ph986.preheader.new

.lr.ph986.preheader.new:                          ; preds = %.lr.ph986.preheader
  %unroll_iter1049 = and i64 %.unpack794.unpack.unpack796, -4
  br label %.lr.ph986

29:                                               ; preds = %26
  %30 = shl i64 %.unpack794.unpack.unpack796, 4
  %31 = call ptr @malloc(i64 %30)
  %32 = icmp sgt i64 %.unpack794.unpack.unpack796, 0
  br i1 %32, label %.lr.ph.preheader, label %.thread972

.lr.ph.preheader:                                 ; preds = %29
  %xtraiter = and i64 %.unpack794.unpack.unpack796, 3
  %33 = icmp ult i64 %.unpack794.unpack.unpack796, 4
  br i1 %33, label %.loopexit983.loopexit1044.unr-lcssa, label %.lr.ph.preheader.new

.lr.ph.preheader.new:                             ; preds = %.lr.ph.preheader
  %unroll_iter = and i64 %.unpack794.unpack.unpack796, -4
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph, %.lr.ph.preheader.new
  %34 = phi i64 [ 0, %.lr.ph.preheader.new ], [ %49, %.lr.ph ]
  %niter = phi i64 [ 0, %.lr.ph.preheader.new ], [ %niter.next.3, %.lr.ph ]
  %35 = getelementptr i128, ptr %.unpack787, i64 %34
  %36 = load i128, ptr %35, align 8, !tbaa !3
  %37 = or i64 %34, 1
  %38 = getelementptr i128, ptr %31, i64 %34
  store i128 %36, ptr %38, align 8, !tbaa !3
  %39 = getelementptr i128, ptr %.unpack787, i64 %37
  %40 = load i128, ptr %39, align 8, !tbaa !3
  %41 = or i64 %34, 2
  %42 = getelementptr i128, ptr %31, i64 %37
  store i128 %40, ptr %42, align 8, !tbaa !3
  %43 = getelementptr i128, ptr %.unpack787, i64 %41
  %44 = load i128, ptr %43, align 8, !tbaa !3
  %45 = or i64 %34, 3
  %46 = getelementptr i128, ptr %31, i64 %41
  store i128 %44, ptr %46, align 8, !tbaa !3
  %47 = getelementptr i128, ptr %.unpack787, i64 %45
  %48 = load i128, ptr %47, align 8, !tbaa !3
  %49 = add nuw nsw i64 %34, 4
  %50 = getelementptr i128, ptr %31, i64 %45
  store i128 %48, ptr %50, 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 %.loopexit983.loopexit1044.unr-lcssa, label %.lr.ph

.lr.ph986:                                        ; preds = %.lr.ph986, %.lr.ph986.preheader.new
  %51 = phi i64 [ 0, %.lr.ph986.preheader.new ], [ %66, %.lr.ph986 ]
  %niter1050 = phi i64 [ 0, %.lr.ph986.preheader.new ], [ %niter1050.next.3, %.lr.ph986 ]
  %52 = getelementptr i128, ptr %.unpack787, i64 %51
  %53 = load i128, ptr %52, align 8, !tbaa !3
  %54 = or i64 %51, 1
  %55 = getelementptr i128, ptr %.unpack799, i64 %51
  store i128 %53, ptr %55, align 8, !tbaa !3
  %56 = getelementptr i128, ptr %.unpack787, i64 %54
  %57 = load i128, ptr %56, align 8, !tbaa !3
  %58 = or i64 %51, 2
  %59 = getelementptr i128, ptr %.unpack799, i64 %54
  store i128 %57, ptr %59, align 8, !tbaa !3
  %60 = getelementptr i128, ptr %.unpack787, i64 %58
  %61 = load i128, ptr %60, align 8, !tbaa !3
  %62 = or i64 %51, 3
  %63 = getelementptr i128, ptr %.unpack799, i64 %58
  store i128 %61, ptr %63, align 8, !tbaa !3
  %64 = getelementptr i128, ptr %.unpack787, i64 %62
  %65 = load i128, ptr %64, align 8, !tbaa !3
  %66 = add nuw nsw i64 %51, 4
  %67 = getelementptr i128, ptr %.unpack799, i64 %62
  store i128 %65, ptr %67, align 8, !tbaa !3
  %niter1050.next.3 = add i64 %niter1050, 4
  %niter1050.ncmp.3 = icmp eq i64 %niter1050.next.3, %unroll_iter1049
  br i1 %niter1050.ncmp.3, label %._crit_edge.loopexit.unr-lcssa, label %.lr.ph986

68:                                               ; preds = %0
  %69 = shl i64 %.unpack794.unpack.unpack796, 4
  %70 = call ptr @malloc(i64 %69)
  %71 = icmp sgt i64 %.unpack794.unpack.unpack796, 0
  br i1 %71, label %.lr.ph988.preheader, label %.loopexit983.thread

.lr.ph988.preheader:                              ; preds = %68
  %xtraiter1051 = and i64 %.unpack794.unpack.unpack796, 3
  %72 = icmp ult i64 %.unpack794.unpack.unpack796, 4
  br i1 %72, label %.loopexit983.loopexit.unr-lcssa, label %.lr.ph988.preheader.new

.lr.ph988.preheader.new:                          ; preds = %.lr.ph988.preheader
  %unroll_iter1055 = and i64 %.unpack794.unpack.unpack796, -4
  br label %.lr.ph988

.lr.ph988:                                        ; preds = %.lr.ph988, %.lr.ph988.preheader.new
  %73 = phi i64 [ 0, %.lr.ph988.preheader.new ], [ %88, %.lr.ph988 ]
  %niter1056 = phi i64 [ 0, %.lr.ph988.preheader.new ], [ %niter1056.next.3, %.lr.ph988 ]
  %74 = getelementptr i128, ptr %.unpack787, i64 %73
  %75 = load i128, ptr %74, align 8, !tbaa !3
  %76 = or i64 %73, 1
  %77 = getelementptr i128, ptr %70, i64 %73
  store i128 %75, ptr %77, align 8, !tbaa !3
  %78 = getelementptr i128, ptr %.unpack787, i64 %76
  %79 = load i128, ptr %78, align 8, !tbaa !3
  %80 = or i64 %73, 2
  %81 = getelementptr i128, ptr %70, i64 %76
  store i128 %79, ptr %81, align 8, !tbaa !3
  %82 = getelementptr i128, ptr %.unpack787, i64 %80
  %83 = load i128, ptr %82, align 8, !tbaa !3
  %84 = or i64 %73, 3
  %85 = getelementptr i128, ptr %70, i64 %80
  store i128 %83, ptr %85, align 8, !tbaa !3
  %86 = getelementptr i128, ptr %.unpack787, i64 %84
  %87 = load i128, ptr %86, align 8, !tbaa !3
  %88 = add nuw nsw i64 %73, 4
  %89 = getelementptr i128, ptr %70, i64 %84
  store i128 %87, ptr %89, align 8, !tbaa !3
  %niter1056.next.3 = add i64 %niter1056, 4
  %niter1056.ncmp.3 = icmp eq i64 %niter1056.next.3, %unroll_iter1055
  br i1 %niter1056.ncmp.3, label %.loopexit983.loopexit.unr-lcssa, label %.lr.ph988

.loopexit983.loopexit.unr-lcssa:                  ; preds = %.lr.ph988, %.lr.ph988.preheader
  %.unr1053 = phi i64 [ 0, %.lr.ph988.preheader ], [ %88, %.lr.ph988 ]
  %lcmp.mod1054.not = icmp eq i64 %xtraiter1051, 0
  br i1 %lcmp.mod1054.not, label %.loopexit983, label %.lr.ph988.epil

.lr.ph988.epil:                                   ; preds = %.loopexit983.loopexit.unr-lcssa, %.lr.ph988.epil
  %90 = phi i64 [ %93, %.lr.ph988.epil ], [ %.unr1053, %.loopexit983.loopexit.unr-lcssa ]
  %epil.iter1052 = phi i64 [ %epil.iter1052.next, %.lr.ph988.epil ], [ 0, %.loopexit983.loopexit.unr-lcssa ]
  %91 = getelementptr i128, ptr %.unpack787, i64 %90
  %92 = load i128, ptr %91, align 8, !tbaa !3
  %93 = add nuw nsw i64 %90, 1
  %94 = getelementptr i128, ptr %70, i64 %90
  store i128 %92, ptr %94, align 8, !tbaa !3
  %epil.iter1052.next = add i64 %epil.iter1052, 1
  %epil.iter1052.cmp.not = icmp eq i64 %epil.iter1052.next, %xtraiter1051
  br i1 %epil.iter1052.cmp.not, label %.loopexit983, label %.lr.ph988.epil, !llvm.loop !9

.loopexit983.loopexit1044.unr-lcssa:              ; preds = %.lr.ph, %.lr.ph.preheader
  %.unr = phi i64 [ 0, %.lr.ph.preheader ], [ %49, %.lr.ph ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %.loopexit983, label %.lr.ph.epil

.lr.ph.epil:                                      ; preds = %.loopexit983.loopexit1044.unr-lcssa, %.lr.ph.epil
  %95 = phi i64 [ %98, %.lr.ph.epil ], [ %.unr, %.loopexit983.loopexit1044.unr-lcssa ]
  %epil.iter = phi i64 [ %epil.iter.next, %.lr.ph.epil ], [ 0, %.loopexit983.loopexit1044.unr-lcssa ]
  %96 = getelementptr i128, ptr %.unpack787, i64 %95
  %97 = load i128, ptr %96, align 8, !tbaa !3
  %98 = add nuw nsw i64 %95, 1
  %99 = getelementptr i128, ptr %31, i64 %95
  store i128 %97, ptr %99, 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 %.loopexit983, label %.lr.ph.epil, !llvm.loop !11

.loopexit983:                                     ; preds = %.loopexit983.loopexit1044.unr-lcssa, %.lr.ph.epil, %.loopexit983.loopexit.unr-lcssa, %.lr.ph988.epil
  %.ph = phi ptr [ %70, %.lr.ph988.epil ], [ %70, %.loopexit983.loopexit.unr-lcssa ], [ %31, %.lr.ph.epil ], [ %31, %.loopexit983.loopexit1044.unr-lcssa ]
  br i1 %.not, label %.loopexit983.thread, label %.thread972

.thread972:                                       ; preds = %29, %.loopexit983
  %.ph1032 = phi ptr [ %.ph, %.loopexit983 ], [ %31, %29 ]
  call void @free(ptr nonnull %.unpack799)
  br label %.loopexit983.thread

.loopexit983.thread:                              ; preds = %68, %.thread972, %.loopexit983
  %.ph1029 = phi ptr [ %.ph1032, %.thread972 ], [ %.ph, %.loopexit983 ], [ %70, %68 ]
  store ptr %.ph1029, ptr @_QFEant.0, align 8, !tbaa !7
  store i64 1, ptr @_QFEant.7, align 8, !tbaa !7
  store i64 %.unpack794.unpack.unpack796, ptr @_QFEant.8, align 8, !tbaa !7
  br label %._crit_edge

._crit_edge.loopexit.unr-lcssa:                   ; preds = %.lr.ph986, %.lr.ph986.preheader
  %.unr1047 = phi i64 [ 0, %.lr.ph986.preheader ], [ %66, %.lr.ph986 ]
  %lcmp.mod1048.not = icmp eq i64 %xtraiter1045, 0
  br i1 %lcmp.mod1048.not, label %._crit_edge, label %.lr.ph986.epil

.lr.ph986.epil:                                   ; preds = %._crit_edge.loopexit.unr-lcssa, %.lr.ph986.epil
  %100 = phi i64 [ %103, %.lr.ph986.epil ], [ %.unr1047, %._crit_edge.loopexit.unr-lcssa ]
  %epil.iter1046 = phi i64 [ %epil.iter1046.next, %.lr.ph986.epil ], [ 0, %._crit_edge.loopexit.unr-lcssa ]
  %101 = getelementptr i128, ptr %.unpack787, i64 %100
  %102 = load i128, ptr %101, align 8, !tbaa !3
  %103 = add nuw nsw i64 %100, 1
  %104 = getelementptr i128, ptr %.unpack799, i64 %100
  store i128 %102, ptr %104, align 8, !tbaa !3
  %epil.iter1046.next = add i64 %epil.iter1046, 1
  %epil.iter1046.cmp.not = icmp eq i64 %epil.iter1046.next, %xtraiter1045
  br i1 %epil.iter1046.cmp.not, label %._crit_edge, label %.lr.ph986.epil, !llvm.loop !12

._crit_edge:                                      ; preds = %._crit_edge.loopexit.unr-lcssa, %.lr.ph986.epil, %.preheader984, %.loopexit983.thread
  %105 = load i128, ptr %4, align 8, !tbaa !3
  %106 = icmp sgt i128 %105, 0
  br i1 %106, label %.lr.ph1007, label %._crit_edge1008

.lr.ph1007:                                       ; preds = %._crit_edge
  %.fca.1.gep333 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 1
  %.fca.2.gep335 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 2
  %.fca.3.gep337 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 3
  %.fca.4.gep339 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 4
  %.fca.5.gep341 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 5
  %.fca.6.gep343 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 6
  %.fca.7.0.0.gep345 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 0
  %.fca.7.0.1.gep347 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 1
  %.fca.7.0.2.gep349 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  %.unpack823.pre = load ptr, ptr @_QFEpost.0, align 8, !tbaa !7
  %.unpack830.unpack.unpack832.pre = load i64, ptr @_QFEpost.8, align 8, !tbaa !7
  br label %107

107:                                              ; preds = %.lr.ph1007, %._crit_edge1002
  %.unpack830.unpack.unpack832 = phi i64 [ %.unpack830.unpack.unpack832.pre, %.lr.ph1007 ], [ %.unpack867.unpack.unpack869, %._crit_edge1002 ]
  %.unpack823 = phi ptr [ %.unpack823.pre, %.lr.ph1007 ], [ %.unpack860, %._crit_edge1002 ]
  %.01005 = phi i128 [ %105, %.lr.ph1007 ], [ %283, %._crit_edge1002 ]
  %.not835 = icmp eq ptr %.unpack823, null
  br i1 %.not835, label %110, label %.preheader981

.preheader981:                                    ; preds = %107
  %108 = icmp sgt i64 %.unpack830.unpack.unpack832, 0
  br i1 %108, label %.lr.ph989.preheader, label %.loopexit982

.lr.ph989.preheader:                              ; preds = %.preheader981
  %109 = shl nuw i64 %.unpack830.unpack.unpack832, 4
  call void @llvm.memset.p0.i64(ptr nonnull align 8 %.unpack823, i8 0, i64 %109, i1 false), !tbaa !3
  br label %.loopexit982

110:                                              ; preds = %107
  %111 = call {} @_FortranAReportFatalUserError(ptr nonnull @_QQcl.16373402fa3425c6e46827601abb88fa, ptr nonnull @_QQcl.802de05bfba08f2aa7cb1bee52ad910f, i32 17)
  %.unpack949.unpack.unpack = load i64, ptr @_QFEpost.7, align 8, !tbaa !7
  %112 = icmp eq i64 %.unpack830.unpack.unpack832, 0
  %113 = select i1 %112, i64 1, i64 %.unpack949.unpack.unpack
  store ptr null, ptr @_QFEpost.0, align 8, !tbaa !7
  store i64 %113, ptr @_QFEpost.7, align 8, !tbaa !7
  store i64 %.unpack830.unpack.unpack832, ptr @_QFEpost.8, align 8, !tbaa !7
  br label %.loopexit982

.loopexit982:                                     ; preds = %.lr.ph989.preheader, %.preheader981, %110
  %114 = load i128, ptr %5, align 8, !tbaa !3
  %115 = trunc i128 %114 to i64
  %116 = icmp sgt i64 %115, 0
  br i1 %116, label %.lr.ph991, label %._crit_edge992

.lr.ph991:                                        ; preds = %.loopexit982
  %.unpack906 = load ptr, ptr @_QFEant.0, align 8, !tbaa !7
  %.unpack913.unpack.unpack = load i64, ptr @_QFEant.7, align 8, !tbaa !7
  %.unpack925.unpack.unpack = load i64, ptr @_QFEpost.7, align 8, !tbaa !7
  br label %117

117:                                              ; preds = %.lr.ph991, %117
  %118 = phi i64 [ %115, %.lr.ph991 ], [ %141, %117 ]
  %119 = phi i128 [ 1, %.lr.ph991 ], [ %140, %117 ]
  %120 = trunc i128 %119 to i64
  %121 = sub i64 %120, %.unpack913.unpack.unpack
  %122 = getelementptr i128, ptr %.unpack906, i64 %121
  %123 = load i128, ptr %122, align 8, !tbaa !3
  %124 = sub i128 %119, %123
  %125 = call i128 @llvm.smax.i128(i128 %124, i128 1)
  %126 = load i128, ptr %5, align 8, !tbaa !3
  %127 = add i128 %123, %119
  %128 = call i128 @llvm.smin.i128(i128 %126, i128 %127)
  %129 = trunc i128 %125 to i64
  %130 = sub i64 %129, %.unpack925.unpack.unpack
  %131 = getelementptr i128, ptr %.unpack823, i64 %130
  %132 = load i128, ptr %131, align 8, !tbaa !3
  %133 = add i128 %132, 1
  store i128 %133, ptr %131, align 8, !tbaa !3
  %134 = trunc i128 %128 to i64
  %135 = add i64 %134, 1
  %136 = sub i64 %135, %.unpack925.unpack.unpack
  %137 = getelementptr i128, ptr %.unpack823, i64 %136
  %138 = load i128, ptr %137, align 8, !tbaa !3
  %139 = add i128 %138, -1
  store i128 %139, ptr %137, align 8, !tbaa !3
  %140 = add nuw nsw i128 %119, 1
  %141 = add nsw i64 %118, -1
  %142 = icmp ugt i64 %118, 1
  br i1 %142, label %117, label %._crit_edge992.loopexit

._crit_edge992.loopexit:                          ; preds = %117
  %.pre = load i128, ptr %5, align 8, !tbaa !3
  %.pre1025 = trunc i128 %.pre to i64
  br label %._crit_edge992

._crit_edge992:                                   ; preds = %._crit_edge992.loopexit, %.loopexit982
  %.pre-phi = phi i64 [ %.pre1025, %._crit_edge992.loopexit ], [ %115, %.loopexit982 ]
  %143 = add i64 %.pre-phi, -1
  %144 = icmp sgt i64 %143, 0
  %.unpack901.unpack.unpack = load i64, ptr @_QFEpost.7, align 8, !tbaa !7
  br i1 %144, label %.lr.ph994, label %._crit_edge995

.lr.ph994:                                        ; preds = %._crit_edge992
  %uglygep = getelementptr i8, ptr %.unpack823, i64 16
  %145 = mul i64 %.unpack901.unpack.unpack, -16
  %uglygep1042 = getelementptr i8, ptr %uglygep, i64 %145
  %load_initial = load i128, ptr %uglygep1042, align 8
  %xtraiter1057 = and i64 %143, 1
  %146 = icmp eq i64 %.pre-phi, 2
  br i1 %146, label %._crit_edge995.loopexit.unr-lcssa, label %.lr.ph994.new

.lr.ph994.new:                                    ; preds = %.lr.ph994
  %unroll_iter1061 = and i64 %143, -2
  br label %147

147:                                              ; preds = %147, %.lr.ph994.new
  %store_forwarded = phi i128 [ %load_initial, %.lr.ph994.new ], [ %157, %147 ]
  %148 = phi i64 [ 2, %.lr.ph994.new ], [ %158, %147 ]
  %niter1062 = phi i64 [ 0, %.lr.ph994.new ], [ %niter1062.next.1, %147 ]
  %149 = sub i64 %148, %.unpack901.unpack.unpack
  %150 = getelementptr i128, ptr %.unpack823, i64 %149
  %151 = load i128, ptr %150, align 8, !tbaa !3
  %152 = add i128 %store_forwarded, %151
  store i128 %152, ptr %150, align 8, !tbaa !3
  %153 = or i64 %148, 1
  %154 = sub i64 %153, %.unpack901.unpack.unpack
  %155 = getelementptr i128, ptr %.unpack823, i64 %154
  %156 = load i128, ptr %155, align 8, !tbaa !3
  %157 = add i128 %152, %156
  store i128 %157, ptr %155, align 8, !tbaa !3
  %158 = add nuw i64 %148, 2
  %niter1062.next.1 = add i64 %niter1062, 2
  %niter1062.ncmp.1 = icmp eq i64 %niter1062.next.1, %unroll_iter1061
  br i1 %niter1062.ncmp.1, label %._crit_edge995.loopexit.unr-lcssa, label %147

._crit_edge995.loopexit.unr-lcssa:                ; preds = %147, %.lr.ph994
  %store_forwarded.unr = phi i128 [ %load_initial, %.lr.ph994 ], [ %157, %147 ]
  %.unr1059 = phi i64 [ 2, %.lr.ph994 ], [ %158, %147 ]
  %lcmp.mod1060.not = icmp eq i64 %xtraiter1057, 0
  br i1 %lcmp.mod1060.not, label %._crit_edge995.loopexit, label %._crit_edge995.loopexit.epilog-lcssa

._crit_edge995.loopexit.epilog-lcssa:             ; preds = %._crit_edge995.loopexit.unr-lcssa
  %159 = sub i64 %.unr1059, %.unpack901.unpack.unpack
  %160 = getelementptr i128, ptr %.unpack823, i64 %159
  %161 = load i128, ptr %160, align 8, !tbaa !3
  %162 = add i128 %store_forwarded.unr, %161
  store i128 %162, ptr %160, align 8, !tbaa !3
  br label %._crit_edge995.loopexit

._crit_edge995.loopexit:                          ; preds = %._crit_edge995.loopexit.unr-lcssa, %._crit_edge995.loopexit.epilog-lcssa
  %.pre1023 = load i128, ptr %5, align 8, !tbaa !3
  %.pre1026 = trunc i128 %.pre1023 to i64
  br label %._crit_edge995

._crit_edge995:                                   ; preds = %._crit_edge992, %._crit_edge995.loopexit
  %.pre-phi1027 = phi i64 [ %.pre1026, %._crit_edge995.loopexit ], [ %.pre-phi, %._crit_edge992 ]
  %.unpack836 = load ptr, ptr @_QFEant.0, align 8, !tbaa !7
  %.unpack843.unpack.unpack = load i64, ptr @_QFEant.7, align 8, !tbaa !7
  %163 = call i64 @llvm.smax.i64(i64 %.pre-phi1027, i64 0)
  %164 = shl i64 %163, 2
  %165 = call ptr @malloc(i64 %164)
  %.not1010 = icmp slt i64 %.pre-phi1027, 1
  br i1 %.not1010, label %._crit_edge998, label %.lr.ph997

.lr.ph997:                                        ; preds = %._crit_edge995
  %166 = sub i64 1, %.unpack843.unpack.unpack
  %167 = sub i64 1, %.unpack901.unpack.unpack
  %xtraiter1064 = and i64 %163, 1
  %168 = icmp eq i64 %163, 1
  br i1 %168, label %._crit_edge998.loopexit.unr-lcssa, label %.lr.ph997.new

.lr.ph997.new:                                    ; preds = %.lr.ph997
  %unroll_iter1068 = and i64 %163, 9223372036854775806
  br label %169

169:                                              ; preds = %169, %.lr.ph997.new
  %170 = phi i64 [ 0, %.lr.ph997.new ], [ %189, %169 ]
  %niter1069 = phi i64 [ 0, %.lr.ph997.new ], [ %niter1069.next.1, %169 ]
  %171 = add i64 %166, %170
  %172 = getelementptr i128, ptr %.unpack836, i64 %171
  %173 = load i128, ptr %172, align 8, !tbaa !3
  %174 = add i64 %167, %170
  %175 = getelementptr i128, ptr %.unpack823, i64 %174
  %176 = load i128, ptr %175, align 8, !tbaa !3
  %177 = icmp eq i128 %173, %176
  %178 = zext i1 %177 to i32
  %179 = or i64 %170, 1
  %180 = getelementptr i32, ptr %165, i64 %170
  store i32 %178, ptr %180, align 4, !tbaa !3
  %181 = add i64 %166, %179
  %182 = getelementptr i128, ptr %.unpack836, i64 %181
  %183 = load i128, ptr %182, align 8, !tbaa !3
  %184 = add i64 %167, %179
  %185 = getelementptr i128, ptr %.unpack823, i64 %184
  %186 = load i128, ptr %185, align 8, !tbaa !3
  %187 = icmp eq i128 %183, %186
  %188 = zext i1 %187 to i32
  %189 = add nuw nsw i64 %170, 2
  %190 = getelementptr i32, ptr %165, i64 %179
  store i32 %188, ptr %190, align 4, !tbaa !3
  %niter1069.next.1 = add i64 %niter1069, 2
  %niter1069.ncmp.1 = icmp eq i64 %niter1069.next.1, %unroll_iter1068
  br i1 %niter1069.ncmp.1, label %._crit_edge998.loopexit.unr-lcssa, label %169

._crit_edge998.loopexit.unr-lcssa:                ; preds = %169, %.lr.ph997
  %.unr1066 = phi i64 [ 0, %.lr.ph997 ], [ %189, %169 ]
  %lcmp.mod1067.not = icmp eq i64 %xtraiter1064, 0
  br i1 %lcmp.mod1067.not, label %._crit_edge998, label %._crit_edge998.loopexit.epilog-lcssa

._crit_edge998.loopexit.epilog-lcssa:             ; preds = %._crit_edge998.loopexit.unr-lcssa
  %191 = add i64 %166, %.unr1066
  %192 = getelementptr i128, ptr %.unpack836, i64 %191
  %193 = load i128, ptr %192, align 8, !tbaa !3
  %194 = add i64 %167, %.unr1066
  %195 = getelementptr i128, ptr %.unpack823, i64 %194
  %196 = load i128, ptr %195, align 8, !tbaa !3
  %197 = icmp eq i128 %193, %196
  %198 = zext i1 %197 to i32
  %199 = getelementptr i32, ptr %165, i64 %.unr1066
  store i32 %198, ptr %199, align 4, !tbaa !3
  br label %._crit_edge998

._crit_edge998:                                   ; preds = %._crit_edge998.loopexit.epilog-lcssa, %._crit_edge998.loopexit.unr-lcssa, %._crit_edge995
  store ptr %165, ptr %1, align 8, !tbaa !7
  store i64 4, ptr %.fca.1.gep333, align 8, !tbaa !7
  store i32 20180515, ptr %.fca.2.gep335, align 8, !tbaa !7
  store i8 1, ptr %.fca.3.gep337, align 4, !tbaa !7
  store i8 14, ptr %.fca.4.gep339, align 1, !tbaa !7
  store i8 0, ptr %.fca.5.gep341, align 2, !tbaa !7
  store i8 0, ptr %.fca.6.gep343, align 1, !tbaa !7
  store i64 1, ptr %.fca.7.0.0.gep345, align 8, !tbaa !7
  store i64 %163, ptr %.fca.7.0.1.gep347, align 8, !tbaa !7
  store i64 4, ptr %.fca.7.0.2.gep349, align 8, !tbaa !7
  %200 = call i1 @_FortranAAll(ptr nonnull %1, ptr nonnull @_QQcl.802de05bfba08f2aa7cb1bee52ad910f, i32 29, i32 1)
  call void @free(ptr %165)
  br i1 %200, label %._crit_edge1008, label %201

201:                                              ; preds = %._crit_edge998
  %.unpack860 = load ptr, ptr @_QFEpost.0, align 8, !tbaa !7
  %.unpack867.unpack.unpack = load i64, ptr @_QFEpost.7, align 8, !tbaa !7
  %.unpack867.unpack.unpack869 = load i64, ptr @_QFEpost.8, align 8, !tbaa !7
  %.unpack872 = load ptr, ptr @_QFEant.0, align 8, !tbaa !7
  %.not884 = icmp eq ptr %.unpack872, null
  br i1 %.not884, label %244, label %202

202:                                              ; preds = %201
  %.unpack879.unpack.unpack881 = load i64, ptr @_QFEant.8, align 8, !tbaa !7
  %.not979 = icmp eq i64 %.unpack879.unpack.unpack881, %.unpack867.unpack.unpack869
  br i1 %.not979, label %.preheader, label %205

.preheader:                                       ; preds = %202
  %203 = icmp sgt i64 %.unpack867.unpack.unpack869, 0
  br i1 %203, label %.lr.ph1001.preheader, label %._crit_edge1002

.lr.ph1001.preheader:                             ; preds = %.preheader
  %xtraiter1076 = and i64 %.unpack867.unpack.unpack869, 3
  %204 = icmp ult i64 %.unpack867.unpack.unpack869, 4
  br i1 %204, label %._crit_edge1002.loopexit.unr-lcssa, label %.lr.ph1001.preheader.new

.lr.ph1001.preheader.new:                         ; preds = %.lr.ph1001.preheader
  %unroll_iter1080 = and i64 %.unpack867.unpack.unpack869, -4
  br label %.lr.ph1001

205:                                              ; preds = %202
  %206 = shl i64 %.unpack867.unpack.unpack869, 4
  %207 = call ptr @malloc(i64 %206)
  %208 = icmp sgt i64 %.unpack867.unpack.unpack869, 0
  br i1 %208, label %.lr.ph1000.preheader, label %.thread977

.lr.ph1000.preheader:                             ; preds = %205
  %xtraiter1070 = and i64 %.unpack867.unpack.unpack869, 3
  %209 = icmp ult i64 %.unpack867.unpack.unpack869, 4
  br i1 %209, label %.loopexit.loopexit1043.unr-lcssa, label %.lr.ph1000.preheader.new

.lr.ph1000.preheader.new:                         ; preds = %.lr.ph1000.preheader
  %unroll_iter1074 = and i64 %.unpack867.unpack.unpack869, -4
  br label %.lr.ph1000

.lr.ph1000:                                       ; preds = %.lr.ph1000, %.lr.ph1000.preheader.new
  %210 = phi i64 [ 0, %.lr.ph1000.preheader.new ], [ %225, %.lr.ph1000 ]
  %niter1075 = phi i64 [ 0, %.lr.ph1000.preheader.new ], [ %niter1075.next.3, %.lr.ph1000 ]
  %211 = getelementptr i128, ptr %.unpack860, i64 %210
  %212 = load i128, ptr %211, align 8, !tbaa !3
  %213 = or i64 %210, 1
  %214 = getelementptr i128, ptr %207, i64 %210
  store i128 %212, ptr %214, align 8, !tbaa !3
  %215 = getelementptr i128, ptr %.unpack860, i64 %213
  %216 = load i128, ptr %215, align 8, !tbaa !3
  %217 = or i64 %210, 2
  %218 = getelementptr i128, ptr %207, i64 %213
  store i128 %216, ptr %218, align 8, !tbaa !3
  %219 = getelementptr i128, ptr %.unpack860, i64 %217
  %220 = load i128, ptr %219, align 8, !tbaa !3
  %221 = or i64 %210, 3
  %222 = getelementptr i128, ptr %207, i64 %217
  store i128 %220, ptr %222, align 8, !tbaa !3
  %223 = getelementptr i128, ptr %.unpack860, i64 %221
  %224 = load i128, ptr %223, align 8, !tbaa !3
  %225 = add nuw nsw i64 %210, 4
  %226 = getelementptr i128, ptr %207, i64 %221
  store i128 %224, ptr %226, align 8, !tbaa !3
  %niter1075.next.3 = add i64 %niter1075, 4
  %niter1075.ncmp.3 = icmp eq i64 %niter1075.next.3, %unroll_iter1074
  br i1 %niter1075.ncmp.3, label %.loopexit.loopexit1043.unr-lcssa, label %.lr.ph1000

.lr.ph1001:                                       ; preds = %.lr.ph1001, %.lr.ph1001.preheader.new
  %227 = phi i64 [ 0, %.lr.ph1001.preheader.new ], [ %242, %.lr.ph1001 ]
  %niter1081 = phi i64 [ 0, %.lr.ph1001.preheader.new ], [ %niter1081.next.3, %.lr.ph1001 ]
  %228 = getelementptr i128, ptr %.unpack860, i64 %227
  %229 = load i128, ptr %228, align 8, !tbaa !3
  %230 = or i64 %227, 1
  %231 = getelementptr i128, ptr %.unpack872, i64 %227
  store i128 %229, ptr %231, align 8, !tbaa !3
  %232 = getelementptr i128, ptr %.unpack860, i64 %230
  %233 = load i128, ptr %232, align 8, !tbaa !3
  %234 = or i64 %227, 2
  %235 = getelementptr i128, ptr %.unpack872, i64 %230
  store i128 %233, ptr %235, align 8, !tbaa !3
  %236 = getelementptr i128, ptr %.unpack860, i64 %234
  %237 = load i128, ptr %236, align 8, !tbaa !3
  %238 = or i64 %227, 3
  %239 = getelementptr i128, ptr %.unpack872, i64 %234
  store i128 %237, ptr %239, align 8, !tbaa !3
  %240 = getelementptr i128, ptr %.unpack860, i64 %238
  %241 = load i128, ptr %240, align 8, !tbaa !3
  %242 = add nuw nsw i64 %227, 4
  %243 = getelementptr i128, ptr %.unpack872, i64 %238
  store i128 %241, ptr %243, align 8, !tbaa !3
  %niter1081.next.3 = add i64 %niter1081, 4
  %niter1081.ncmp.3 = icmp eq i64 %niter1081.next.3, %unroll_iter1080
  br i1 %niter1081.ncmp.3, label %._crit_edge1002.loopexit.unr-lcssa, label %.lr.ph1001

244:                                              ; preds = %201
  %245 = shl i64 %.unpack867.unpack.unpack869, 4
  %246 = call ptr @malloc(i64 %245)
  %247 = icmp sgt i64 %.unpack867.unpack.unpack869, 0
  br i1 %247, label %.lr.ph1004.preheader, label %.loopexit.thread

.lr.ph1004.preheader:                             ; preds = %244
  %xtraiter1082 = and i64 %.unpack867.unpack.unpack869, 3
  %248 = icmp ult i64 %.unpack867.unpack.unpack869, 4
  br i1 %248, label %.loopexit.loopexit.unr-lcssa, label %.lr.ph1004.preheader.new

.lr.ph1004.preheader.new:                         ; preds = %.lr.ph1004.preheader
  %unroll_iter1086 = and i64 %.unpack867.unpack.unpack869, -4
  br label %.lr.ph1004

.lr.ph1004:                                       ; preds = %.lr.ph1004, %.lr.ph1004.preheader.new
  %249 = phi i64 [ 0, %.lr.ph1004.preheader.new ], [ %264, %.lr.ph1004 ]
  %niter1087 = phi i64 [ 0, %.lr.ph1004.preheader.new ], [ %niter1087.next.3, %.lr.ph1004 ]
  %250 = getelementptr i128, ptr %.unpack860, i64 %249
  %251 = load i128, ptr %250, align 8, !tbaa !3
  %252 = or i64 %249, 1
  %253 = getelementptr i128, ptr %246, i64 %249
  store i128 %251, ptr %253, align 8, !tbaa !3
  %254 = getelementptr i128, ptr %.unpack860, i64 %252
  %255 = load i128, ptr %254, align 8, !tbaa !3
  %256 = or i64 %249, 2
  %257 = getelementptr i128, ptr %246, i64 %252
  store i128 %255, ptr %257, align 8, !tbaa !3
  %258 = getelementptr i128, ptr %.unpack860, i64 %256
  %259 = load i128, ptr %258, align 8, !tbaa !3
  %260 = or i64 %249, 3
  %261 = getelementptr i128, ptr %246, i64 %256
  store i128 %259, ptr %261, align 8, !tbaa !3
  %262 = getelementptr i128, ptr %.unpack860, i64 %260
  %263 = load i128, ptr %262, align 8, !tbaa !3
  %264 = add nuw nsw i64 %249, 4
  %265 = getelementptr i128, ptr %246, i64 %260
  store i128 %263, ptr %265, align 8, !tbaa !3
  %niter1087.next.3 = add i64 %niter1087, 4
  %niter1087.ncmp.3 = icmp eq i64 %niter1087.next.3, %unroll_iter1086
  br i1 %niter1087.ncmp.3, label %.loopexit.loopexit.unr-lcssa, label %.lr.ph1004

.loopexit.loopexit.unr-lcssa:                     ; preds = %.lr.ph1004, %.lr.ph1004.preheader
  %.unr1084 = phi i64 [ 0, %.lr.ph1004.preheader ], [ %264, %.lr.ph1004 ]
  %lcmp.mod1085.not = icmp eq i64 %xtraiter1082, 0
  br i1 %lcmp.mod1085.not, label %.loopexit, label %.lr.ph1004.epil

.lr.ph1004.epil:                                  ; preds = %.loopexit.loopexit.unr-lcssa, %.lr.ph1004.epil
  %266 = phi i64 [ %269, %.lr.ph1004.epil ], [ %.unr1084, %.loopexit.loopexit.unr-lcssa ]
  %epil.iter1083 = phi i64 [ %epil.iter1083.next, %.lr.ph1004.epil ], [ 0, %.loopexit.loopexit.unr-lcssa ]
  %267 = getelementptr i128, ptr %.unpack860, i64 %266
  %268 = load i128, ptr %267, align 8, !tbaa !3
  %269 = add nuw nsw i64 %266, 1
  %270 = getelementptr i128, ptr %246, i64 %266
  store i128 %268, ptr %270, align 8, !tbaa !3
  %epil.iter1083.next = add i64 %epil.iter1083, 1
  %epil.iter1083.cmp.not = icmp eq i64 %epil.iter1083.next, %xtraiter1082
  br i1 %epil.iter1083.cmp.not, label %.loopexit, label %.lr.ph1004.epil, !llvm.loop !13

.loopexit.loopexit1043.unr-lcssa:                 ; preds = %.lr.ph1000, %.lr.ph1000.preheader
  %.unr1072 = phi i64 [ 0, %.lr.ph1000.preheader ], [ %225, %.lr.ph1000 ]
  %lcmp.mod1073.not = icmp eq i64 %xtraiter1070, 0
  br i1 %lcmp.mod1073.not, label %.loopexit, label %.lr.ph1000.epil

.lr.ph1000.epil:                                  ; preds = %.loopexit.loopexit1043.unr-lcssa, %.lr.ph1000.epil
  %271 = phi i64 [ %274, %.lr.ph1000.epil ], [ %.unr1072, %.loopexit.loopexit1043.unr-lcssa ]
  %epil.iter1071 = phi i64 [ %epil.iter1071.next, %.lr.ph1000.epil ], [ 0, %.loopexit.loopexit1043.unr-lcssa ]
  %272 = getelementptr i128, ptr %.unpack860, i64 %271
  %273 = load i128, ptr %272, align 8, !tbaa !3
  %274 = add nuw nsw i64 %271, 1
  %275 = getelementptr i128, ptr %207, i64 %271
  store i128 %273, ptr %275, align 8, !tbaa !3
  %epil.iter1071.next = add i64 %epil.iter1071, 1
  %epil.iter1071.cmp.not = icmp eq i64 %epil.iter1071.next, %xtraiter1070
  br i1 %epil.iter1071.cmp.not, label %.loopexit, label %.lr.ph1000.epil, !llvm.loop !14

.loopexit:                                        ; preds = %.loopexit.loopexit1043.unr-lcssa, %.lr.ph1000.epil, %.loopexit.loopexit.unr-lcssa, %.lr.ph1004.epil
  %.ph975 = phi ptr [ %246, %.lr.ph1004.epil ], [ %246, %.loopexit.loopexit.unr-lcssa ], [ %207, %.lr.ph1000.epil ], [ %207, %.loopexit.loopexit1043.unr-lcssa ]
  br i1 %.not884, label %.loopexit.thread, label %.thread977

.thread977:                                       ; preds = %205, %.loopexit
  %.ph9751037 = phi ptr [ %.ph975, %.loopexit ], [ %207, %205 ]
  call void @free(ptr nonnull %.unpack872)
  br label %.loopexit.thread

.loopexit.thread:                                 ; preds = %244, %.thread977, %.loopexit
  %.ph9751034 = phi ptr [ %.ph9751037, %.thread977 ], [ %.ph975, %.loopexit ], [ %246, %244 ]
  %276 = icmp eq i64 %.unpack867.unpack.unpack869, 0
  %277 = select i1 %276, i64 1, i64 %.unpack867.unpack.unpack
  store ptr %.ph9751034, ptr @_QFEant.0, align 8, !tbaa !7
  store i64 %277, ptr @_QFEant.7, align 8, !tbaa !7
  store i64 %.unpack867.unpack.unpack869, ptr @_QFEant.8, align 8, !tbaa !7
  br label %._crit_edge1002

._crit_edge1002.loopexit.unr-lcssa:               ; preds = %.lr.ph1001, %.lr.ph1001.preheader
  %.unr1078 = phi i64 [ 0, %.lr.ph1001.preheader ], [ %242, %.lr.ph1001 ]
  %lcmp.mod1079.not = icmp eq i64 %xtraiter1076, 0
  br i1 %lcmp.mod1079.not, label %._crit_edge1002, label %.lr.ph1001.epil

.lr.ph1001.epil:                                  ; preds = %._crit_edge1002.loopexit.unr-lcssa, %.lr.ph1001.epil
  %278 = phi i64 [ %281, %.lr.ph1001.epil ], [ %.unr1078, %._crit_edge1002.loopexit.unr-lcssa ]
  %epil.iter1077 = phi i64 [ %epil.iter1077.next, %.lr.ph1001.epil ], [ 0, %._crit_edge1002.loopexit.unr-lcssa ]
  %279 = getelementptr i128, ptr %.unpack860, i64 %278
  %280 = load i128, ptr %279, align 8, !tbaa !3
  %281 = add nuw nsw i64 %278, 1
  %282 = getelementptr i128, ptr %.unpack872, i64 %278
  store i128 %280, ptr %282, align 8, !tbaa !3
  %epil.iter1077.next = add i64 %epil.iter1077, 1
  %epil.iter1077.cmp.not = icmp eq i64 %epil.iter1077.next, %xtraiter1076
  br i1 %epil.iter1077.cmp.not, label %._crit_edge1002, label %.lr.ph1001.epil, !llvm.loop !15

._crit_edge1002:                                  ; preds = %._crit_edge1002.loopexit.unr-lcssa, %.lr.ph1001.epil, %.preheader, %.loopexit.thread
  %283 = add nsw i128 %.01005, -1
  %284 = icmp sgt i128 %.01005, 1
  br i1 %284, label %107, label %._crit_edge1008

._crit_edge1008:                                  ; preds = %._crit_edge1002, %._crit_edge998, %._crit_edge
  %285 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.282A2869302C782929, i64 9, ptr null, i32 -1, ptr nonnull @_QQcl.802de05bfba08f2aa7cb1bee52ad910f, i32 37)
  %.unpack811 = load ptr, ptr @_QFEpost.0, align 8, !tbaa !7
  %.unpack818.unpack.unpack = load i64, ptr @_QFEpost.7, align 8, !tbaa !7
  %286 = load i128, ptr %5, align 8, !tbaa !3
  %287 = trunc i128 %286 to i64
  %288 = sub i64 1, %.unpack818.unpack.unpack
  %289 = call i64 @llvm.smax.i64(i64 %287, i64 0)
  %290 = getelementptr i128, ptr %.unpack811, i64 %288
  store ptr %290, ptr %2, align 8, !tbaa !7
  %.fca.1.gep221 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 1
  store i64 16, ptr %.fca.1.gep221, align 8, !tbaa !7
  %.fca.2.gep223 = 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.gep223, align 8, !tbaa !7
  %.fca.3.gep225 = 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.gep225, align 4, !tbaa !7
  %.fca.4.gep227 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 4
  store i8 11, ptr %.fca.4.gep227, align 1, !tbaa !7
  %.fca.5.gep229 = 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.gep229, align 2, !tbaa !7
  %.fca.6.gep231 = 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.gep231, align 1, !tbaa !7
  %.fca.7.0.0.gep233 = 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.gep233, align 8, !tbaa !7
  %.fca.7.0.1.gep235 = 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 %289, ptr %.fca.7.0.1.gep235, align 8, !tbaa !7
  %.fca.7.0.2.gep237 = 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 16, ptr %.fca.7.0.2.gep237, align 8, !tbaa !7
  %291 = call i1 @_FortranAioOutputDescriptor(ptr %285, ptr nonnull %2)
  %292 = call i32 @_FortranAioEndIoStatement(ptr %285)
  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 {} @_FortranAReportFatalUserError(ptr, ptr, i32) local_unnamed_addr

declare i1 @_FortranAAll(ptr, ptr, i32, i32) local_unnamed_addr

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

declare i1 @_FortranAioOutputDescriptor(ptr, ptr) local_unnamed_addr

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

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

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i128 @llvm.smin.i128(i128, i128) #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 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite) "alloc-family"="malloc" }
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 = !{!8, !8, i64 0}
!8 = !{!"descriptor member", !5, i64 0}
!9 = distinct !{!9, !10}
!10 = !{!"llvm.loop.unroll.disable"}
!11 = distinct !{!11, !10}
!12 = distinct !{!12, !10}
!13 = distinct !{!13, !10}
!14 = distinct !{!14, !10}
!15 = distinct !{!15, !10}
