program String_Formation
    implicit none
    character(100000):: s
    character(1):: fs(200000), bs(200000), ss(300000)
    character(5):: cq
    integer(4):: q
    integer(4):: i, fi, bi
    logical:: flip

    flip = .false.

    read*, s
    read*, q

    fi=0
    bi=0

    do i=1, q
        read(*,'(5a)') cq
        if (cq(1:1) == '1') then
            flip = .not. flip
            cycle
        end if

        if (cq(3:3) == '1' .neqv. flip) then
            fi=fi+1
            fs(fi) = cq(5:5)
        else
            bi=bi+1
            bs(bi) = cq(5:5)
        end if
    end do

    do i=1, len_trim(s)
        ss(i) = s(i:i)
    end do



    if (flip) then
        print*, bs(bi:1:-1) , ss(len_trim(s):1:-1) , fs(1:fi)
    else
        print*, fs(fi:1:-1) , ss(1:len_trim(s)) , bs(1:bi)
    end if
end program String_Formation
; 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"

@_QFEbs = internal global [200000 x [1 x i8]] undef
@_QFEfs = internal global [200000 x [1 x i8]] undef
@_QFEs = internal global [100000 x i8] undef
@_QFEss = internal global [300000 x [1 x i8]] undef
@_QQcl.dfd6dbb2f3836887b90473889e7411cf = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_2220/source.f\00"
@_QQcl.28356129 = linkonce constant [4 x i8] c"(5a)"
@_QQcl.31 = linkonce constant [1 x i8] c"1"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

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 { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %5 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %6 = alloca { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, align 8
  %7 = alloca [5 x i8], align 1
  %8 = alloca i32, align 4
  %9 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.dfd6dbb2f3836887b90473889e7411cf, i32 12)
  %10 = tail call i1 @_FortranAioInputAscii(ptr %9, ptr nonnull @_QFEs, i64 100000)
  %11 = tail call i32 @_FortranAioEndIoStatement(ptr %9)
  %12 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.dfd6dbb2f3836887b90473889e7411cf, i32 13)
  %13 = call i1 @_FortranAioInputInteger(ptr %12, ptr nonnull %8, i32 4)
  %14 = call i32 @_FortranAioEndIoStatement(ptr %12)
  %15 = load i32, ptr %8, align 4, !tbaa !3
  %16 = icmp sgt i32 %15, 0
  br i1 %16, label %.lr.ph, label %.preheader

.lr.ph:                                           ; preds = %0
  %17 = getelementptr inbounds [5 x [1 x i8]], ptr %7, i64 0, i64 2
  %18 = getelementptr inbounds [5 x [1 x i8]], ptr %7, i64 0, i64 4
  br label %19

.preheader:                                       ; preds = %43, %0
  %.0119.lcssa = phi i32 [ 0, %0 ], [ %.1120, %43 ]
  %.0117.lcssa = phi i32 [ 0, %0 ], [ %.1118, %43 ]
  %.0116.lcssa = phi i32 [ 0, %0 ], [ %.1, %43 ]
  br label %46

19:                                               ; preds = %.lr.ph, %43
  %.0116140 = phi i32 [ 0, %.lr.ph ], [ %.1, %43 ]
  %.0117139 = phi i32 [ 0, %.lr.ph ], [ %.1118, %43 ]
  %.0119138 = phi i32 [ 0, %.lr.ph ], [ %.1120, %43 ]
  %.0121137 = phi i32 [ %15, %.lr.ph ], [ %44, %43 ]
  %20 = call ptr @_FortranAioBeginExternalFormattedInput(ptr nonnull @_QQcl.28356129, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.dfd6dbb2f3836887b90473889e7411cf, i32 19)
  %21 = call i1 @_FortranAioInputAscii(ptr %20, ptr nonnull %7, i64 5)
  %22 = call i32 @_FortranAioEndIoStatement(ptr %20)
  %23 = call i32 @_FortranACharacterCompareScalar1(ptr nonnull %7, ptr nonnull @_QQcl.31, i64 1, i64 1)
  %24 = icmp eq i32 %23, 0
  br i1 %24, label %25, label %27

25:                                               ; preds = %19
  %.not131 = icmp eq i32 %.0116140, 0
  %26 = zext i1 %.not131 to i32
  br label %43

27:                                               ; preds = %19
  %28 = call i32 @_FortranACharacterCompareScalar1(ptr nonnull %17, ptr nonnull @_QQcl.31, i64 1, i64 1)
  %29 = icmp eq i32 %28, 0
  %30 = icmp ne i32 %.0116140, 0
  %31 = xor i1 %30, %29
  %32 = load i8, ptr %18, align 1
  br i1 %31, label %33, label %38

33:                                               ; preds = %27
  %34 = add i32 %.0117139, 1
  %35 = sext i32 %34 to i64
  %36 = add nsw i64 %35, -1
  %37 = getelementptr [200000 x [1 x i8]], ptr @_QFEfs, i64 0, i64 %36
  store i8 %32, ptr %37, align 1
  br label %43

38:                                               ; preds = %27
  %39 = add i32 %.0119138, 1
  %40 = sext i32 %39 to i64
  %41 = add nsw i64 %40, -1
  %42 = getelementptr [200000 x [1 x i8]], ptr @_QFEbs, i64 0, i64 %41
  store i8 %32, ptr %42, align 1
  br label %43

43:                                               ; preds = %38, %33, %25
  %.1120 = phi i32 [ %.0119138, %25 ], [ %.0119138, %33 ], [ %39, %38 ]
  %.1118 = phi i32 [ %.0117139, %25 ], [ %34, %33 ], [ %.0117139, %38 ]
  %.1 = phi i32 [ %26, %25 ], [ %.0116140, %33 ], [ %.0116140, %38 ]
  %44 = add nsw i32 %.0121137, -1
  %45 = icmp sgt i32 %.0121137, 1
  br i1 %45, label %19, label %.preheader

46:                                               ; preds = %.preheader, %46
  %47 = phi i64 [ 99999, %.preheader ], [ %51, %46 ]
  %48 = getelementptr [100000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %47
  %49 = load i8, ptr %48, align 1, !tbaa !3
  %50 = icmp eq i8 %49, 32
  %51 = add nsw i64 %47, -1
  %52 = icmp ne i64 %47, 0
  %53 = and i1 %50, %52
  br i1 %53, label %46, label %54

54:                                               ; preds = %46
  %55 = shl i64 %47, 32
  %sext = add i64 %55, 4294967296
  %56 = ashr exact i64 %sext, 32
  %spec.select = select i1 %50, i64 0, i64 %56
  %57 = icmp sgt i64 %spec.select, 0
  br i1 %57, label %select.unfold.preheader, label %select.unfold._crit_edge

select.unfold.preheader:                          ; preds = %54
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 16 @_QFEss, ptr nonnull align 16 @_QFEs, i64 %spec.select, i1 false)
  br label %select.unfold._crit_edge

select.unfold._crit_edge:                         ; preds = %select.unfold.preheader, %54
  %.not = icmp eq i32 %.0116.lcssa, 0
  br i1 %.not, label %84, label %58

58:                                               ; preds = %select.unfold._crit_edge
  %59 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.dfd6dbb2f3836887b90473889e7411cf, i32 41)
  %60 = sext i32 %.0119.lcssa to i64
  %61 = add nsw i64 %60, -1
  %62 = call i64 @llvm.smax.i64(i64 %60, i64 0)
  %63 = getelementptr [200000 x [1 x i8]], ptr @_QFEbs, i64 0, i64 %61
  store ptr %63, ptr %3, align 8, !tbaa !7
  %.fca.1.gep59 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 1
  store i64 1, ptr %.fca.1.gep59, align 8, !tbaa !7
  %.fca.2.gep61 = 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.gep61, align 8, !tbaa !7
  %.fca.3.gep63 = 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.gep63, align 4, !tbaa !7
  %.fca.4.gep65 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %3, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep65, align 1, !tbaa !7
  %.fca.5.gep67 = 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.gep67, align 2, !tbaa !7
  %.fca.6.gep69 = 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.gep69, align 1, !tbaa !7
  %.fca.7.0.0.gep71 = 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.gep71, align 8, !tbaa !7
  %.fca.7.0.1.gep73 = 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 %62, ptr %.fca.7.0.1.gep73, align 8, !tbaa !7
  %.fca.7.0.2.gep75 = 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 -1, ptr %.fca.7.0.2.gep75, align 8, !tbaa !7
  %64 = call i1 @_FortranAioOutputDescriptor(ptr %59, ptr nonnull %3)
  br label %65

65:                                               ; preds = %58, %65
  %66 = phi i64 [ 99999, %58 ], [ %70, %65 ]
  %67 = getelementptr [100000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %66
  %68 = load i8, ptr %67, align 1, !tbaa !3
  %69 = icmp eq i8 %68, 32
  %70 = add nsw i64 %66, -1
  %71 = icmp ne i64 %66, 0
  %72 = and i1 %69, %71
  br i1 %72, label %65, label %73

73:                                               ; preds = %65
  %74 = shl i64 %66, 32
  %sext130 = add i64 %74, 4294967296
  %75 = ashr exact i64 %sext130, 32
  %76 = select i1 %69, i64 0, i64 %75
  %77 = add nsw i64 %76, -1
  %78 = call i64 @llvm.smax.i64(i64 %76, i64 0)
  %79 = getelementptr [300000 x [1 x i8]], ptr @_QFEss, i64 0, i64 %77
  store ptr %79, ptr %2, align 8, !tbaa !7
  %.fca.1.gep79 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 1
  store i64 1, ptr %.fca.1.gep79, align 8, !tbaa !7
  %.fca.2.gep81 = 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.gep81, align 8, !tbaa !7
  %.fca.3.gep83 = 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.gep83, align 4, !tbaa !7
  %.fca.4.gep85 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %2, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep85, align 1, !tbaa !7
  %.fca.5.gep87 = 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.gep87, align 2, !tbaa !7
  %.fca.6.gep89 = 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.gep89, align 1, !tbaa !7
  %.fca.7.0.0.gep91 = 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.gep91, align 8, !tbaa !7
  %.fca.7.0.1.gep93 = 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 %78, ptr %.fca.7.0.1.gep93, align 8, !tbaa !7
  %.fca.7.0.2.gep95 = 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 -1, ptr %.fca.7.0.2.gep95, align 8, !tbaa !7
  %80 = call i1 @_FortranAioOutputDescriptor(ptr %59, ptr nonnull %2)
  %81 = call i32 @llvm.smax.i32(i32 %.0117.lcssa, i32 0)
  %82 = zext i32 %81 to i64
  store ptr @_QFEfs, ptr %1, align 8, !tbaa !7
  %.fca.1.gep99 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 1
  store i64 1, ptr %.fca.1.gep99, align 8, !tbaa !7
  %.fca.2.gep101 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep101, align 8, !tbaa !7
  %.fca.3.gep103 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep103, align 4, !tbaa !7
  %.fca.4.gep105 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep105, align 1, !tbaa !7
  %.fca.5.gep107 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep107, align 2, !tbaa !7
  %.fca.6.gep109 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep109, align 1, !tbaa !7
  %.fca.7.0.0.gep111 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep111, align 8, !tbaa !7
  %.fca.7.0.1.gep113 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 1
  store i64 %82, ptr %.fca.7.0.1.gep113, align 8, !tbaa !7
  %.fca.7.0.2.gep115 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %1, i64 0, i32 7, i64 0, i64 2
  store i64 1, ptr %.fca.7.0.2.gep115, align 8, !tbaa !7
  %83 = call i1 @_FortranAioOutputDescriptor(ptr %59, ptr nonnull %1)
  br label %108

84:                                               ; preds = %select.unfold._crit_edge
  %85 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.dfd6dbb2f3836887b90473889e7411cf, i32 43)
  %86 = sext i32 %.0117.lcssa to i64
  %87 = add nsw i64 %86, -1
  %88 = call i64 @llvm.smax.i64(i64 %86, i64 0)
  %89 = getelementptr [200000 x [1 x i8]], ptr @_QFEfs, i64 0, i64 %87
  store ptr %89, ptr %6, align 8, !tbaa !7
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %6, i64 0, i32 1
  store i64 1, 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 %6, 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 %6, 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 %6, i64 0, i32 4
  store i8 40, 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 %6, 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 %6, 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 %6, 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 %6, i64 0, i32 7, i64 0, i64 1
  store i64 %88, 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 %6, i64 0, i32 7, i64 0, i64 2
  store i64 -1, ptr %.fca.7.0.2.gep, align 8, !tbaa !7
  %90 = call i1 @_FortranAioOutputDescriptor(ptr %85, ptr nonnull %6)
  br label %91

91:                                               ; preds = %84, %91
  %92 = phi i64 [ 99999, %84 ], [ %96, %91 ]
  %93 = getelementptr [100000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %92
  %94 = load i8, ptr %93, align 1, !tbaa !3
  %95 = icmp eq i8 %94, 32
  %96 = add nsw i64 %92, -1
  %97 = icmp ne i64 %92, 0
  %98 = and i1 %95, %97
  br i1 %98, label %91, label %99

99:                                               ; preds = %91
  %100 = shl i64 %92, 32
  %sext129 = add i64 %100, 4294967296
  %101 = ashr exact i64 %sext129, 32
  %102 = call i64 @llvm.smax.i64(i64 %101, i64 0)
  %103 = select i1 %95, i64 0, i64 %102
  store ptr @_QFEss, ptr %5, align 8, !tbaa !7
  %.fca.1.gep19 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 1
  store i64 1, ptr %.fca.1.gep19, align 8, !tbaa !7
  %.fca.2.gep21 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep21, align 8, !tbaa !7
  %.fca.3.gep23 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep23, align 4, !tbaa !7
  %.fca.4.gep25 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep25, align 1, !tbaa !7
  %.fca.5.gep27 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep27, align 2, !tbaa !7
  %.fca.6.gep29 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep29, align 1, !tbaa !7
  %.fca.7.0.0.gep31 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep31, align 8, !tbaa !7
  %.fca.7.0.1.gep33 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 7, i64 0, i64 1
  store i64 %103, ptr %.fca.7.0.1.gep33, align 8, !tbaa !7
  %.fca.7.0.2.gep35 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %5, i64 0, i32 7, i64 0, i64 2
  store i64 1, ptr %.fca.7.0.2.gep35, align 8, !tbaa !7
  %104 = call i1 @_FortranAioOutputDescriptor(ptr %85, ptr nonnull %5)
  %105 = call i32 @llvm.smax.i32(i32 %.0119.lcssa, i32 0)
  %106 = zext i32 %105 to i64
  store ptr @_QFEbs, ptr %4, align 8, !tbaa !7
  %.fca.1.gep39 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 1
  store i64 1, ptr %.fca.1.gep39, align 8, !tbaa !7
  %.fca.2.gep41 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep41, align 8, !tbaa !7
  %.fca.3.gep43 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 3
  store i8 1, ptr %.fca.3.gep43, align 4, !tbaa !7
  %.fca.4.gep45 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep45, align 1, !tbaa !7
  %.fca.5.gep47 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep47, align 2, !tbaa !7
  %.fca.6.gep49 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep49, align 1, !tbaa !7
  %.fca.7.0.0.gep51 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 0
  store i64 1, ptr %.fca.7.0.0.gep51, align 8, !tbaa !7
  %.fca.7.0.1.gep53 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 1
  store i64 %106, ptr %.fca.7.0.1.gep53, align 8, !tbaa !7
  %.fca.7.0.2.gep55 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8, [1 x [3 x i64]] }, ptr %4, i64 0, i32 7, i64 0, i64 2
  store i64 1, ptr %.fca.7.0.2.gep55, align 8, !tbaa !7
  %107 = call i1 @_FortranAioOutputDescriptor(ptr %85, ptr nonnull %4)
  br label %108

108:                                              ; preds = %73, %99
  %.sink = phi ptr [ %59, %73 ], [ %85, %99 ]
  %109 = call i32 @_FortranAioEndIoStatement(ptr %.sink)
  ret void
}

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

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

declare i32 @_FortranAioEndIoStatement(ptr) local_unnamed_addr

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

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

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

declare ptr @_FortranAioBeginExternalListOutput(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) #0

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

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

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

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

!0 = !{i32 2, !"Debug Info Version", i32 3}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{!4, !4, i64 0}
!4 = !{!"any data access", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
!7 = !{!8, !8, i64 0}
!8 = !{!"descriptor member", !5, i64 0}
