program ABC118B
    implicit none
    integer(8)::h,i,j
    integer(8)::N,M,K
    integer(8)::result=0
    integer(8),allocatable,dimension(:)::S,A

    read(5,*)N,M
    allocate(S(M))
    allocate(A(M))

    do i=1,M
        S(i)=0
    end do

    do h=1,N
        read(5,*)K,(A(i),i=1,K)

        do j=1,K
            S(A(j))=S(A(j))+1
        end do
    end do

    do i=1,M
        if(S(i)==N)then
            result=result+1
        end if
    end do

    print'(i0)',result
    
end program ABC118B
; 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
@_QFEresult = internal unnamed_addr global i64 0
@_QFEs.0 = internal unnamed_addr global ptr null
@_QQcl.fb0584f0daaac9f69f5e1c4fd8cc8178 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_4928/source.f\00"
@_QQcl.28693029 = linkonce constant [4 x i8] c"(i0)"
@_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

define void @_QQmain() local_unnamed_addr {
  %1 = alloca i64, align 8
  %2 = alloca i64, align 8
  %3 = alloca i64, align 8
  %4 = tail call ptr @_FortranAioBeginExternalListInput(i32 5, ptr nonnull @_QQcl.fb0584f0daaac9f69f5e1c4fd8cc8178, i32 8)
  %5 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %3, i32 8)
  %6 = call i1 @_FortranAioInputInteger(ptr %4, ptr nonnull %2, i32 8)
  %7 = call i32 @_FortranAioEndIoStatement(ptr %4)
  %8 = load i64, ptr %2, align 8, !tbaa !3
  %9 = call i64 @llvm.smax.i64(i64 %8, i64 0)
  %10 = shl i64 %9, 3
  %11 = call ptr @malloc(i64 %10)
  store ptr %11, ptr @_QFEs.0, align 8, !tbaa !7
  %12 = call ptr @malloc(i64 %10)
  store ptr %12, ptr @_QFEa.0, align 8, !tbaa !7
  %13 = icmp sgt i64 %8, 0
  br i1 %13, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %0
  %14 = shl nuw i64 %8, 3
  call void @llvm.memset.p0.i64(ptr align 8 %11, i8 0, i64 %14, i1 false), !tbaa !3
  br label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph.preheader, %0
  %15 = load i64, ptr %3, align 8, !tbaa !3
  %16 = icmp sgt i64 %15, 0
  br i1 %16, label %.lr.ph243, label %._crit_edge244

.lr.ph243:                                        ; preds = %._crit_edge, %._crit_edge241
  %17 = phi i64 [ %54, %._crit_edge241 ], [ %15, %._crit_edge ]
  %18 = call ptr @_FortranAioBeginExternalListInput(i32 5, ptr nonnull @_QQcl.fb0584f0daaac9f69f5e1c4fd8cc8178, i32 17)
  %19 = call i1 @_FortranAioInputInteger(ptr %18, ptr nonnull %1, i32 8)
  %20 = load i64, ptr %1, align 8, !tbaa !3
  %21 = icmp sgt i64 %20, 0
  br i1 %21, label %.lr.ph237, label %._crit_edge238

.lr.ph237:                                        ; preds = %.lr.ph243, %.lr.ph237
  %22 = phi i64 [ %26, %.lr.ph237 ], [ 1, %.lr.ph243 ]
  %.unpack212 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %23 = add i64 %22, -1
  %24 = getelementptr i64, ptr %.unpack212, i64 %23
  %25 = call i1 @_FortranAioInputInteger(ptr %18, ptr %24, i32 8)
  %26 = add nuw i64 %22, 1
  %exitcond.not = icmp eq i64 %22, %20
  br i1 %exitcond.not, label %._crit_edge238, label %.lr.ph237

._crit_edge238:                                   ; preds = %.lr.ph237, %.lr.ph243
  %27 = call i32 @_FortranAioEndIoStatement(ptr %18)
  %28 = load i64, ptr %1, align 8, !tbaa !3
  %29 = icmp sgt i64 %28, 0
  br i1 %29, label %.lr.ph240, label %._crit_edge241

.lr.ph240:                                        ; preds = %._crit_edge238
  %.unpack188 = load ptr, ptr @_QFEs.0, align 8, !tbaa !7
  %.unpack200 = load ptr, ptr @_QFEa.0, align 8, !tbaa !7
  %xtraiter = and i64 %28, 1
  %30 = icmp eq i64 %28, 1
  br i1 %30, label %._crit_edge241.loopexit.unr-lcssa, label %.lr.ph240.new

.lr.ph240.new:                                    ; preds = %.lr.ph240
  %unroll_iter = and i64 %28, -2
  br label %31

31:                                               ; preds = %31, %.lr.ph240.new
  %32 = phi i64 [ 1, %.lr.ph240.new ], [ %46, %31 ]
  %niter = phi i64 [ 0, %.lr.ph240.new ], [ %niter.next.1, %31 ]
  %33 = add nsw i64 %32, -1
  %34 = getelementptr i64, ptr %.unpack200, i64 %33
  %35 = load i64, ptr %34, align 8, !tbaa !3
  %36 = add i64 %35, -1
  %37 = getelementptr i64, ptr %.unpack188, i64 %36
  %38 = load i64, ptr %37, align 8, !tbaa !3
  %39 = add i64 %38, 1
  store i64 %39, ptr %37, align 8, !tbaa !3
  %40 = getelementptr i64, ptr %.unpack200, i64 %32
  %41 = load i64, ptr %40, align 8, !tbaa !3
  %42 = add i64 %41, -1
  %43 = getelementptr i64, ptr %.unpack188, i64 %42
  %44 = load i64, ptr %43, align 8, !tbaa !3
  %45 = add i64 %44, 1
  store i64 %45, ptr %43, align 8, !tbaa !3
  %46 = add nuw i64 %32, 2
  %niter.next.1 = add i64 %niter, 2
  %niter.ncmp.1 = icmp eq i64 %niter.next.1, %unroll_iter
  br i1 %niter.ncmp.1, label %._crit_edge241.loopexit.unr-lcssa, label %31

._crit_edge241.loopexit.unr-lcssa:                ; preds = %31, %.lr.ph240
  %.unr = phi i64 [ 1, %.lr.ph240 ], [ %46, %31 ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %._crit_edge241, label %._crit_edge241.loopexit.epilog-lcssa

._crit_edge241.loopexit.epilog-lcssa:             ; preds = %._crit_edge241.loopexit.unr-lcssa
  %47 = add i64 %.unr, -1
  %48 = getelementptr i64, ptr %.unpack200, i64 %47
  %49 = load i64, ptr %48, align 8, !tbaa !3
  %50 = add i64 %49, -1
  %51 = getelementptr i64, ptr %.unpack188, i64 %50
  %52 = load i64, ptr %51, align 8, !tbaa !3
  %53 = add i64 %52, 1
  store i64 %53, ptr %51, align 8, !tbaa !3
  br label %._crit_edge241

._crit_edge241:                                   ; preds = %._crit_edge241.loopexit.epilog-lcssa, %._crit_edge241.loopexit.unr-lcssa, %._crit_edge238
  %54 = add nsw i64 %17, -1
  %55 = icmp sgt i64 %17, 1
  br i1 %55, label %.lr.ph243, label %._crit_edge244.loopexit

._crit_edge244.loopexit:                          ; preds = %._crit_edge241
  %.pre = load i64, ptr %2, align 8, !tbaa !3
  br label %._crit_edge244

._crit_edge244:                                   ; preds = %._crit_edge244.loopexit, %._crit_edge
  %56 = phi i64 [ %.pre, %._crit_edge244.loopexit ], [ %8, %._crit_edge ]
  %57 = icmp sgt i64 %56, 0
  br i1 %57, label %.lr.ph246, label %._crit_edge247

.lr.ph246:                                        ; preds = %._crit_edge244
  %_QFEresult.promoted = load i64, ptr @_QFEresult, align 8, !tbaa !3
  %.unpack = load ptr, ptr @_QFEs.0, align 8, !tbaa !7
  %58 = load i64, ptr %3, align 8, !tbaa !3
  %xtraiter251 = and i64 %56, 1
  %59 = icmp eq i64 %56, 1
  br i1 %59, label %._crit_edge247.loopexit.unr-lcssa, label %.lr.ph246.new

.lr.ph246.new:                                    ; preds = %.lr.ph246
  %unroll_iter255 = and i64 %56, -2
  br label %60

60:                                               ; preds = %76, %.lr.ph246.new
  %61 = phi i64 [ 1, %.lr.ph246.new ], [ %78, %76 ]
  %62 = phi i64 [ %_QFEresult.promoted, %.lr.ph246.new ], [ %77, %76 ]
  %niter256 = phi i64 [ 0, %.lr.ph246.new ], [ %niter256.next.1, %76 ]
  %63 = add nsw i64 %61, -1
  %64 = getelementptr i64, ptr %.unpack, i64 %63
  %65 = load i64, ptr %64, align 8, !tbaa !3
  %66 = icmp eq i64 %65, %58
  br i1 %66, label %67, label %69

67:                                               ; preds = %60
  %68 = add i64 %62, 1
  store i64 %68, ptr @_QFEresult, align 8, !tbaa !3
  br label %69

69:                                               ; preds = %67, %60
  %70 = phi i64 [ %68, %67 ], [ %62, %60 ]
  %71 = getelementptr i64, ptr %.unpack, i64 %61
  %72 = load i64, ptr %71, align 8, !tbaa !3
  %73 = icmp eq i64 %72, %58
  br i1 %73, label %74, label %76

74:                                               ; preds = %69
  %75 = add i64 %70, 1
  store i64 %75, ptr @_QFEresult, align 8, !tbaa !3
  br label %76

76:                                               ; preds = %74, %69
  %77 = phi i64 [ %75, %74 ], [ %70, %69 ]
  %78 = add nuw i64 %61, 2
  %niter256.next.1 = add i64 %niter256, 2
  %niter256.ncmp.1 = icmp eq i64 %niter256.next.1, %unroll_iter255
  br i1 %niter256.ncmp.1, label %._crit_edge247.loopexit.unr-lcssa.loopexit, label %60

._crit_edge247.loopexit.unr-lcssa.loopexit:       ; preds = %76
  %79 = add i64 %61, 1
  br label %._crit_edge247.loopexit.unr-lcssa

._crit_edge247.loopexit.unr-lcssa:                ; preds = %._crit_edge247.loopexit.unr-lcssa.loopexit, %.lr.ph246
  %.unr252 = phi i64 [ 0, %.lr.ph246 ], [ %79, %._crit_edge247.loopexit.unr-lcssa.loopexit ]
  %.unr253 = phi i64 [ %_QFEresult.promoted, %.lr.ph246 ], [ %77, %._crit_edge247.loopexit.unr-lcssa.loopexit ]
  %lcmp.mod254.not = icmp eq i64 %xtraiter251, 0
  br i1 %lcmp.mod254.not, label %._crit_edge247, label %.epil.preheader250

.epil.preheader250:                               ; preds = %._crit_edge247.loopexit.unr-lcssa
  %80 = getelementptr i64, ptr %.unpack, i64 %.unr252
  %81 = load i64, ptr %80, align 8, !tbaa !3
  %82 = icmp eq i64 %81, %58
  br i1 %82, label %83, label %._crit_edge247

83:                                               ; preds = %.epil.preheader250
  %84 = add i64 %.unr253, 1
  store i64 %84, ptr @_QFEresult, align 8, !tbaa !3
  br label %._crit_edge247

._crit_edge247:                                   ; preds = %._crit_edge247.loopexit.unr-lcssa, %83, %.epil.preheader250, %._crit_edge244
  %85 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.fb0584f0daaac9f69f5e1c4fd8cc8178, i32 30)
  %86 = load i64, ptr @_QFEresult, align 8, !tbaa !3
  %87 = call i1 @_FortranAioOutputInteger64(ptr %85, i64 %86)
  %88 = call i32 @_FortranAioEndIoStatement(ptr %85)
  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 ptr @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

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

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

attributes #0 = { mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #2 = { 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}
