program atcoder
    implicit none
    integer(8) :: i,j,w,h,a,b,ans=0
    integer,allocatable,dimension(:,:) :: did
    character(len=401) :: s(401)

    read*,h,w
    allocate(did(h,w))
    did = 0

    do i=1,h
        read(*,*)s(i)
    enddo

    do i = 1,h
        do j = 1,w
            a=0
            b=0
            if(did(i,j)==0)then
                call dfs(i,j)
                ans = ans + a*b
            endif
        enddo
    enddo
    write(*,'(I0)')ans

    stop 
contains

recursive subroutine dfs(x,y)
    implicit none
    integer(8) :: x,y
    did(x,y) = 1
    if(s(x)(y:y)=='#')then
        b = b+1;
    else
        a = a+1;
    endif
    if(x>1 .and. did(x-1,y)==0 .and. s(x)(y:y)/=s(x-1)(y:y))Then
        call dfs(x-1,y)
    endif
    if(x<h .and. did(x+1,y)==0 .and. s(x)(y:y)/=s(x+1)(y:y))Then
        call dfs(x+1,y)
    endif
    if(y>1 .and. did(x,y-1)==0 .and. s(x)(y:y)/=s(x)(y-1:y-1))Then
        call dfs(x,y-1)
    endif
    if(y<w .and. did(x,y+1)==0 .and. s(x)(y:y)/=s(x)(y+1:y+1))Then
        call dfs(x,y+1)
    endif
end subroutine dfs

end program atcoder

; 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"

@_QFEans = internal unnamed_addr global i64 0
@_QFEdid.0 = internal unnamed_addr global ptr null
@_QFEdid.7 = internal unnamed_addr global i64 1
@_QFEdid.8 = internal unnamed_addr global i64 0
@_QFEdid.10 = internal unnamed_addr global i64 1
@_QFEs = internal global [401 x [401 x i8]] undef
@_QQcl.6ec3cf5c436196e1ec3fe483d4730d9f = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_5145/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.28493029 = linkonce constant [4 x i8] c"(I0)"
@_QQcl.23 = linkonce constant [1 x i8] c"#"
@_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: noreturn
define void @_QQmain() local_unnamed_addr #1 {
  %1 = alloca i64, align 8
  %2 = alloca i64, align 8
  %3 = alloca i64, align 8
  %4 = alloca i64, align 8
  %5 = alloca i64, align 8
  %6 = alloca i64, align 8
  %7 = alloca { ptr, ptr, ptr, ptr }, align 8
  store ptr %2, ptr %7, align 8, !tbaa !3
  %8 = getelementptr inbounds { ptr, ptr, ptr, ptr }, ptr %7, i64 0, i32 1
  store ptr %1, ptr %8, align 8, !tbaa !3
  %9 = getelementptr inbounds { ptr, ptr, ptr, ptr }, ptr %7, i64 0, i32 2
  store ptr %3, ptr %9, align 8, !tbaa !3
  %10 = getelementptr inbounds { ptr, ptr, ptr, ptr }, ptr %7, i64 0, i32 3
  store ptr %6, ptr %10, align 8, !tbaa !3
  %11 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.6ec3cf5c436196e1ec3fe483d4730d9f, i32 7)
  %12 = call i1 @_FortranAioInputInteger(ptr %11, ptr nonnull %3, i32 8)
  %13 = call i1 @_FortranAioInputInteger(ptr %11, ptr nonnull %6, i32 8)
  %14 = call i32 @_FortranAioEndIoStatement(ptr %11)
  %15 = load i64, ptr %3, align 8, !tbaa !3
  %16 = load i64, ptr %6, align 8, !tbaa !3
  %17 = call i64 @llvm.smax.i64(i64 %15, i64 0)
  %18 = call i64 @llvm.smax.i64(i64 %16, i64 0)
  %19 = shl i64 %17, 2
  %20 = mul i64 %19, %18
  %21 = call ptr @malloc(i64 %20)
  store ptr %21, ptr @_QFEdid.0, align 8, !tbaa !7
  store i64 1, ptr @_QFEdid.7, align 8, !tbaa !7
  store i64 %17, ptr @_QFEdid.8, align 8, !tbaa !7
  store i64 1, ptr @_QFEdid.10, align 8, !tbaa !7
  %.not = icmp eq ptr %21, null
  br i1 %.not, label %24, label %.preheader198

.preheader198:                                    ; preds = %0
  %.not211 = icmp slt i64 %16, 1
  br i1 %.not211, label %._crit_edge201, label %.preheader.lr.ph

.preheader.lr.ph:                                 ; preds = %.preheader198
  %.not212 = icmp slt i64 %15, 1
  br i1 %.not212, label %._crit_edge208, label %._crit_edge201.thread

._crit_edge201.thread:                            ; preds = %.preheader.lr.ph
  %22 = mul i64 %17, %18
  %23 = shl i64 %22, 2
  call void @llvm.memset.p0.i64(ptr nonnull align 4 %21, i8 0, i64 %23, i1 false), !tbaa !3
  br label %.lr.ph.preheader

24:                                               ; preds = %0
  %25 = call {} @_FortranAReportFatalUserError(ptr nonnull @_QQcl.16373402fa3425c6e46827601abb88fa, ptr nonnull @_QQcl.6ec3cf5c436196e1ec3fe483d4730d9f, i32 9)
  %.pre.pre = load i64, ptr %3, align 8, !tbaa !3
  %.unpack177.unpack178.unpack.pre = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %.unpack177.unpack.unpack.pre = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %26 = icmp slt i64 %15, 1
  %27 = select i1 %26, i64 1, i64 %.unpack177.unpack.unpack.pre
  %28 = icmp slt i64 %16, 1
  %29 = select i1 %28, i64 1, i64 %.unpack177.unpack178.unpack.pre
  store ptr %21, ptr @_QFEdid.0, align 8, !tbaa !7
  store i64 %27, ptr @_QFEdid.7, align 8, !tbaa !7
  store i64 %17, ptr @_QFEdid.8, align 8, !tbaa !7
  store i64 %29, ptr @_QFEdid.10, align 8, !tbaa !7
  br label %._crit_edge201

._crit_edge201:                                   ; preds = %.preheader198, %24
  %30 = phi i64 [ %.pre.pre, %24 ], [ %15, %.preheader198 ]
  %31 = icmp sgt i64 %30, 0
  br i1 %31, label %.lr.ph.preheader, label %._crit_edge208

.lr.ph.preheader:                                 ; preds = %._crit_edge201.thread, %._crit_edge201
  %.ph = phi i64 [ %30, %._crit_edge201 ], [ %15, %._crit_edge201.thread ]
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %.lr.ph
  %32 = phi i64 [ %40, %.lr.ph ], [ %.ph, %.lr.ph.preheader ]
  %33 = phi i64 [ %39, %.lr.ph ], [ 1, %.lr.ph.preheader ]
  %34 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.6ec3cf5c436196e1ec3fe483d4730d9f, i32 12)
  %35 = add i64 %33, -1
  %36 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %35
  %37 = call i1 @_FortranAioInputAscii(ptr %34, ptr %36, i64 401)
  %38 = call i32 @_FortranAioEndIoStatement(ptr %34)
  %39 = add i64 %33, 1
  %40 = add nsw i64 %32, -1
  %41 = icmp ugt i64 %32, 1
  br i1 %41, label %.lr.ph, label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph
  %.pre221 = load i64, ptr %3, align 8, !tbaa !3
  %42 = icmp sgt i64 %.pre221, 0
  br i1 %42, label %.lr.ph207, label %._crit_edge208

.lr.ph207:                                        ; preds = %._crit_edge
  %43 = load i64, ptr %6, align 8, !tbaa !3
  %44 = icmp sgt i64 %43, 0
  br i1 %44, label %.lr.ph207.split, label %.lr.ph207.split.us.preheader

.lr.ph207.split.us.preheader:                     ; preds = %.lr.ph207
  %45 = add nuw i64 %.pre221, 1
  store i64 1, ptr %5, align 8, !tbaa !3
  br label %._crit_edge208

.lr.ph207.splitthread-pre-split:                  ; preds = %._crit_edge204
  %46 = add nsw i64 %48, -1
  %.pr = load i64, ptr %6, align 8, !tbaa !3
  br label %.lr.ph207.split

.lr.ph207.split:                                  ; preds = %.lr.ph207, %.lr.ph207.splitthread-pre-split
  %47 = phi i64 [ %.pr, %.lr.ph207.splitthread-pre-split ], [ %43, %.lr.ph207 ]
  %48 = phi i64 [ %46, %.lr.ph207.splitthread-pre-split ], [ %.pre221, %.lr.ph207 ]
  %49 = phi i64 [ %73, %.lr.ph207.splitthread-pre-split ], [ 1, %.lr.ph207 ]
  store i64 %49, ptr %4, align 8, !tbaa !3
  %50 = icmp sgt i64 %47, 0
  br i1 %50, label %.lr.ph203.preheader, label %._crit_edge204

.lr.ph203.preheader:                              ; preds = %.lr.ph207.split
  %.unpack.pre222 = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack161.unpack.unpack.pre225 = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack161.unpack.unpack164.pre228 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack161.unpack162.unpack.pre231 = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  br label %.lr.ph203

.lr.ph203:                                        ; preds = %.lr.ph203.preheader, %67
  %.unpack161.unpack162.unpack = phi i64 [ %.unpack161.unpack162.unpack232, %67 ], [ %.unpack161.unpack162.unpack.pre231, %.lr.ph203.preheader ]
  %.unpack161.unpack.unpack164 = phi i64 [ %.unpack161.unpack.unpack164229, %67 ], [ %.unpack161.unpack.unpack164.pre228, %.lr.ph203.preheader ]
  %.unpack161.unpack.unpack = phi i64 [ %.unpack161.unpack.unpack226, %67 ], [ %.unpack161.unpack.unpack.pre225, %.lr.ph203.preheader ]
  %.unpack = phi ptr [ %.unpack223, %67 ], [ %.unpack.pre222, %.lr.ph203.preheader ]
  %51 = phi i64 [ %70, %67 ], [ %47, %.lr.ph203.preheader ]
  %52 = phi i64 [ %69, %67 ], [ 1, %.lr.ph203.preheader ]
  store i64 %52, ptr %5, align 8, !tbaa !3
  store i64 0, ptr %1, align 8, !tbaa !3
  store i64 0, ptr %2, align 8, !tbaa !3
  %53 = load i64, ptr %4, align 8, !tbaa !3
  %54 = sub i64 %53, %.unpack161.unpack.unpack
  %55 = sub i64 %52, %.unpack161.unpack162.unpack
  %56 = mul i64 %55, %.unpack161.unpack.unpack164
  %57 = add i64 %54, %56
  %58 = getelementptr i32, ptr %.unpack, i64 %57
  %59 = load i32, ptr %58, align 4, !tbaa !3
  %60 = icmp eq i32 %59, 0
  br i1 %60, label %61, label %67

61:                                               ; preds = %.lr.ph203
  call void @_QFPdfs(ptr nonnull %4, ptr nonnull %5, ptr nonnull %7)
  %62 = load i64, ptr @_QFEans, align 8, !tbaa !3
  %63 = load i64, ptr %1, align 8, !tbaa !3
  %64 = load i64, ptr %2, align 8, !tbaa !3
  %65 = mul i64 %64, %63
  %66 = add i64 %65, %62
  store i64 %66, ptr @_QFEans, align 8, !tbaa !3
  %.unpack.pre = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack161.unpack.unpack.pre = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack161.unpack.unpack164.pre = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack161.unpack162.unpack.pre = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %.pre234 = load i64, ptr %5, align 8, !tbaa !3
  br label %67

67:                                               ; preds = %61, %.lr.ph203
  %68 = phi i64 [ %.pre234, %61 ], [ %52, %.lr.ph203 ]
  %.unpack161.unpack162.unpack232 = phi i64 [ %.unpack161.unpack162.unpack.pre, %61 ], [ %.unpack161.unpack162.unpack, %.lr.ph203 ]
  %.unpack161.unpack.unpack164229 = phi i64 [ %.unpack161.unpack.unpack164.pre, %61 ], [ %.unpack161.unpack.unpack164, %.lr.ph203 ]
  %.unpack161.unpack.unpack226 = phi i64 [ %.unpack161.unpack.unpack.pre, %61 ], [ %.unpack161.unpack.unpack, %.lr.ph203 ]
  %.unpack223 = phi ptr [ %.unpack.pre, %61 ], [ %.unpack, %.lr.ph203 ]
  %69 = add i64 %68, 1
  %70 = add nsw i64 %51, -1
  %71 = icmp sgt i64 %51, 1
  br i1 %71, label %.lr.ph203, label %._crit_edge204.loopexit

._crit_edge204.loopexit:                          ; preds = %67
  %.pre235 = load i64, ptr %4, align 8, !tbaa !3
  br label %._crit_edge204

._crit_edge204:                                   ; preds = %._crit_edge204.loopexit, %.lr.ph207.split
  %72 = phi i64 [ %49, %.lr.ph207.split ], [ %.pre235, %._crit_edge204.loopexit ]
  %.lcssa = phi i64 [ 1, %.lr.ph207.split ], [ %69, %._crit_edge204.loopexit ]
  store i64 %.lcssa, ptr %5, align 8, !tbaa !3
  %73 = add i64 %72, 1
  %74 = icmp sgt i64 %48, 1
  br i1 %74, label %.lr.ph207.splitthread-pre-split, label %._crit_edge208, !llvm.loop !9

._crit_edge208:                                   ; preds = %._crit_edge204, %.preheader.lr.ph, %._crit_edge201, %.lr.ph207.split.us.preheader, %._crit_edge
  %.lcssa199 = phi i64 [ 1, %._crit_edge ], [ %45, %.lr.ph207.split.us.preheader ], [ 1, %._crit_edge201 ], [ 1, %.preheader.lr.ph ], [ %73, %._crit_edge204 ]
  store i64 %.lcssa199, ptr %4, align 8, !tbaa !3
  %75 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28493029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.6ec3cf5c436196e1ec3fe483d4730d9f, i32 25)
  %76 = load i64, ptr @_QFEans, align 8, !tbaa !3
  %77 = call i1 @_FortranAioOutputInteger64(ptr %75, i64 %76)
  %78 = call i32 @_FortranAioEndIoStatement(ptr %75)
  %79 = call {} @_FortranAStopStatement(i32 0, i1 false, i1 false)
  unreachable
}

define void @_QFPdfs(ptr %0, ptr %1, ptr nest %2) local_unnamed_addr {
  %4 = alloca i64, align 8
  %5 = alloca i64, align 8
  %6 = alloca i64, align 8
  %7 = alloca i64, align 8
  %8 = load ptr, ptr %2, align 8, !tbaa !3
  %9 = getelementptr { ptr, ptr, ptr, ptr }, ptr %2, i64 0, i32 1
  %10 = load ptr, ptr %9, align 8, !tbaa !3
  %11 = getelementptr { ptr, ptr, ptr, ptr }, ptr %2, i64 0, i32 2
  %12 = load ptr, ptr %11, align 8, !tbaa !3
  %13 = getelementptr { ptr, ptr, ptr, ptr }, ptr %2, i64 0, i32 3
  %14 = load ptr, ptr %13, align 8, !tbaa !3
  %.unpack = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack111.unpack.unpack = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack111.unpack.unpack114 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack111.unpack112.unpack = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %15 = load i64, ptr %0, align 8, !tbaa !3
  %16 = sub i64 %15, %.unpack111.unpack.unpack
  %17 = load i64, ptr %1, align 8, !tbaa !3
  %18 = sub i64 %17, %.unpack111.unpack112.unpack
  %19 = mul i64 %18, %.unpack111.unpack.unpack114
  %20 = add i64 %16, %19
  %21 = getelementptr i32, ptr %.unpack, i64 %20
  store i32 1, ptr %21, align 4, !tbaa !3
  %22 = load i64, ptr %0, align 8, !tbaa !3
  %23 = add i64 %22, -1
  %24 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %23
  %25 = load i64, ptr %1, align 8, !tbaa !3
  %26 = add i64 %25, -1
  %27 = getelementptr [401 x [1 x i8]], ptr %24, i64 0, i64 %26
  %28 = tail call i32 @_FortranACharacterCompareScalar1(ptr %27, ptr nonnull @_QQcl.23, i64 1, i64 1)
  %29 = icmp eq i32 %28, 0
  %. = select i1 %29, ptr %8, ptr %10
  %30 = load i64, ptr %., align 8, !tbaa !3
  %31 = add i64 %30, 1
  store i64 %31, ptr %., align 8, !tbaa !3
  %32 = load i64, ptr %0, align 8, !tbaa !3
  %33 = icmp sgt i64 %32, 1
  %.unpack120 = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack127.unpack.unpack = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack127.unpack.unpack130 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack127.unpack128.unpack = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %34 = add i64 %32, -1
  %35 = sub i64 %34, %.unpack127.unpack.unpack
  %36 = load i64, ptr %1, align 8, !tbaa !3
  %37 = sub i64 %36, %.unpack127.unpack128.unpack
  %38 = mul i64 %37, %.unpack127.unpack.unpack130
  %39 = add i64 %35, %38
  %40 = getelementptr i32, ptr %.unpack120, i64 %39
  %41 = load i32, ptr %40, align 4, !tbaa !3
  %42 = icmp eq i32 %41, 0
  %43 = and i1 %33, %42
  %44 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %34
  %45 = add i64 %36, -1
  %46 = getelementptr [401 x [1 x i8]], ptr %44, i64 0, i64 %45
  %47 = add i64 %32, -2
  %48 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %47
  %49 = getelementptr [401 x [1 x i8]], ptr %48, i64 0, i64 %45
  %50 = tail call i32 @_FortranACharacterCompareScalar1(ptr %46, ptr %49, i64 1, i64 1)
  %51 = icmp ne i32 %50, 0
  %52 = and i1 %43, %51
  br i1 %52, label %53, label %56

53:                                               ; preds = %3
  %54 = load i64, ptr %0, align 8, !tbaa !3
  %55 = add i64 %54, -1
  store i64 %55, ptr %7, align 8, !tbaa !3
  call void @_QFPdfs(ptr nonnull %7, ptr nonnull %1, ptr nonnull %2)
  br label %56

56:                                               ; preds = %53, %3
  %57 = load i64, ptr %0, align 8, !tbaa !3
  %58 = load i64, ptr %12, align 8, !tbaa !3
  %59 = icmp slt i64 %57, %58
  %.unpack136 = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack143.unpack.unpack = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack143.unpack.unpack146 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack143.unpack144.unpack = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %60 = add i64 %57, 1
  %61 = sub i64 %60, %.unpack143.unpack.unpack
  %62 = load i64, ptr %1, align 8, !tbaa !3
  %63 = sub i64 %62, %.unpack143.unpack144.unpack
  %64 = mul i64 %63, %.unpack143.unpack.unpack146
  %65 = add i64 %61, %64
  %66 = getelementptr i32, ptr %.unpack136, i64 %65
  %67 = load i32, ptr %66, align 4, !tbaa !3
  %68 = icmp eq i32 %67, 0
  %69 = and i1 %59, %68
  %70 = add i64 %57, -1
  %71 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %70
  %72 = add i64 %62, -1
  %73 = getelementptr [401 x [1 x i8]], ptr %71, i64 0, i64 %72
  %74 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %57
  %75 = getelementptr [401 x [1 x i8]], ptr %74, i64 0, i64 %72
  %76 = call i32 @_FortranACharacterCompareScalar1(ptr %73, ptr %75, i64 1, i64 1)
  %77 = icmp ne i32 %76, 0
  %78 = and i1 %69, %77
  br i1 %78, label %79, label %82

79:                                               ; preds = %56
  %80 = load i64, ptr %0, align 8, !tbaa !3
  %81 = add i64 %80, 1
  store i64 %81, ptr %6, align 8, !tbaa !3
  call void @_QFPdfs(ptr nonnull %6, ptr nonnull %1, ptr nonnull %2)
  br label %82

82:                                               ; preds = %79, %56
  %83 = load i64, ptr %1, align 8, !tbaa !3
  %84 = icmp sgt i64 %83, 1
  %.unpack152 = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack159.unpack.unpack = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack159.unpack.unpack162 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack159.unpack160.unpack = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %85 = load i64, ptr %0, align 8, !tbaa !3
  %86 = sub i64 %85, %.unpack159.unpack.unpack
  %87 = add i64 %83, -1
  %88 = sub i64 %87, %.unpack159.unpack160.unpack
  %89 = mul i64 %88, %.unpack159.unpack.unpack162
  %90 = add i64 %86, %89
  %91 = getelementptr i32, ptr %.unpack152, i64 %90
  %92 = load i32, ptr %91, align 4, !tbaa !3
  %93 = icmp eq i32 %92, 0
  %94 = and i1 %84, %93
  %95 = add i64 %85, -1
  %96 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %95
  %97 = getelementptr [401 x [1 x i8]], ptr %96, i64 0, i64 %87
  %98 = add i64 %83, -2
  %99 = getelementptr [401 x [1 x i8]], ptr %96, i64 0, i64 %98
  %100 = call i32 @_FortranACharacterCompareScalar1(ptr %97, ptr %99, i64 1, i64 1)
  %101 = icmp ne i32 %100, 0
  %102 = and i1 %94, %101
  br i1 %102, label %103, label %106

103:                                              ; preds = %82
  %104 = load i64, ptr %1, align 8, !tbaa !3
  %105 = add i64 %104, -1
  store i64 %105, ptr %5, align 8, !tbaa !3
  call void @_QFPdfs(ptr nonnull %0, ptr nonnull %5, ptr nonnull %2)
  br label %106

106:                                              ; preds = %103, %82
  %107 = load i64, ptr %1, align 8, !tbaa !3
  %108 = load i64, ptr %14, align 8, !tbaa !3
  %109 = icmp slt i64 %107, %108
  %.unpack168 = load ptr, ptr @_QFEdid.0, align 8, !tbaa !7
  %.unpack175.unpack.unpack = load i64, ptr @_QFEdid.7, align 8, !tbaa !7
  %.unpack175.unpack.unpack178 = load i64, ptr @_QFEdid.8, align 8, !tbaa !7
  %.unpack175.unpack176.unpack = load i64, ptr @_QFEdid.10, align 8, !tbaa !7
  %110 = load i64, ptr %0, align 8, !tbaa !3
  %111 = sub i64 %110, %.unpack175.unpack.unpack
  %112 = add i64 %107, 1
  %113 = sub i64 %112, %.unpack175.unpack176.unpack
  %114 = mul i64 %113, %.unpack175.unpack.unpack178
  %115 = add i64 %111, %114
  %116 = getelementptr i32, ptr %.unpack168, i64 %115
  %117 = load i32, ptr %116, align 4, !tbaa !3
  %118 = icmp eq i32 %117, 0
  %119 = and i1 %109, %118
  %120 = add i64 %110, -1
  %121 = getelementptr [401 x [401 x i8]], ptr @_QFEs, i64 0, i64 %120
  %122 = add i64 %107, -1
  %123 = getelementptr [401 x [1 x i8]], ptr %121, i64 0, i64 %122
  %124 = getelementptr [401 x [1 x i8]], ptr %121, i64 0, i64 %107
  %125 = call i32 @_FortranACharacterCompareScalar1(ptr %123, ptr %124, i64 1, i64 1)
  %126 = icmp ne i32 %125, 0
  %127 = and i1 %119, %126
  br i1 %127, label %128, label %131

128:                                              ; preds = %106
  %129 = load i64, ptr %1, align 8, !tbaa !3
  %130 = add i64 %129, 1
  store i64 %130, ptr %4, align 8, !tbaa !3
  call void @_QFPdfs(ptr nonnull %0, ptr nonnull %4, ptr nonnull %2)
  br label %131

131:                                              ; preds = %128, %106
  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 {} @_FortranAReportFatalUserError(ptr, ptr, i32) local_unnamed_addr

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

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

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

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

declare i32 @_FortranACharacterCompareScalar1(ptr, ptr, i64, i64) 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 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 = { noreturn }
attributes #2 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #3 = { nocallback nofree nounwind willreturn memory(argmem: write) }

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

!0 = !{i32 2, !"Debug Info Version", i32 3}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{!4, !4, i64 0}
!4 = !{!"any data access", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
!7 = !{!8, !8, i64 0}
!8 = !{!"descriptor member", !5, i64 0}
!9 = distinct !{!9, !10}
!10 = !{!"llvm.loop.unswitch.partial.disable"}
