program main
	implicit none
	character(20) :: S
	integer :: i, ans, left
	integer, allocatable :: x(:)
	read(*, *) S
	allocate(x(1:len_trim(S) + 1))
	do i = 1, len_trim(S)
		if(S(i:i) == 'A' .OR. S(i:i) == 'C' .OR. S(i:i) == 'G' .OR. S(i:i) == 'T') then
			x(i) = 1
		else
			x(i) = 0
		end if
	end do
	x(len_trim(S)+1) = 0
	
	ans = 0
	do i = 1, len_trim(S)
		if(x(i) == 1) then
			left = i
			do while(x(left+1) == 1)
				left = left + 1
			end do
			ans = max(ans, left - i + 1)
		end if
	end do
	write(*, *) ans
end program main
; 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"

@_QFEx.0 = internal unnamed_addr global ptr null
@_QQcl.28959d134e63ffdcd4af398bcf43d7dd = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_4657/source.f\00"
@_QQcl.41 = linkonce constant [1 x i8] c"A"
@_QQcl.43 = linkonce constant [1 x i8] c"C"
@_QQcl.47 = linkonce constant [1 x i8] c"G"
@_QQcl.54 = linkonce constant [1 x i8] c"T"
@_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 [20 x i8], align 1
  %2 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.28959d134e63ffdcd4af398bcf43d7dd, i32 6)
  %3 = call i1 @_FortranAioInputAscii(ptr %2, ptr nonnull %1, i64 20)
  %4 = call i32 @_FortranAioEndIoStatement(ptr %2)
  br label %5

5:                                                ; preds = %0, %5
  %6 = phi i64 [ 19, %0 ], [ %10, %5 ]
  %7 = getelementptr [20 x [1 x i8]], ptr %1, i64 0, i64 %6
  %8 = load i8, ptr %7, align 1, !tbaa !3
  %9 = icmp eq i8 %8, 32
  %10 = add nsw i64 %6, -1
  %11 = icmp ne i64 %6, 0
  %12 = and i1 %9, %11
  br i1 %12, label %5, label %13

13:                                               ; preds = %5
  %.op = shl i64 %6, 32
  %sext = add i64 %.op, 8589934592
  %14 = ashr exact i64 %sext, 32
  %15 = call i64 @llvm.smax.i64(i64 %14, i64 0)
  %.op244 = shl nuw nsw i64 %15, 2
  %16 = select i1 %9, i64 4, i64 %.op244
  %17 = call ptr @malloc(i64 %16)
  store ptr %17, ptr @_QFEx.0, align 8, !tbaa !7
  br label %18

18:                                               ; preds = %13, %18
  %19 = phi i64 [ 19, %13 ], [ %23, %18 ]
  %20 = getelementptr [20 x [1 x i8]], ptr %1, i64 0, i64 %19
  %21 = load i8, ptr %20, align 1, !tbaa !3
  %22 = icmp eq i8 %21, 32
  %23 = add nsw i64 %19, -1
  %24 = icmp ne i64 %19, 0
  %25 = and i1 %22, %24
  br i1 %25, label %18, label %26

26:                                               ; preds = %18
  %27 = shl i64 %19, 32
  %sext142 = add i64 %27, 4294967296
  %28 = ashr exact i64 %sext142, 32
  %spec.select = select i1 %22, i64 0, i64 %28
  %29 = icmp sgt i64 %spec.select, 0
  br i1 %29, label %.lr.ph, label %select.unfold._crit_edge

.lr.ph:                                           ; preds = %26, %.lr.ph
  %indvars.iv = phi i64 [ %indvars.iv.next, %.lr.ph ], [ 1, %26 ]
  %30 = add nsw i64 %indvars.iv, -1
  %31 = getelementptr [20 x [1 x i8]], ptr %1, i64 0, i64 %30
  %32 = call i32 @_FortranACharacterCompareScalar1(ptr %31, ptr nonnull @_QQcl.41, i64 1, i64 1)
  %33 = icmp eq i32 %32, 0
  %34 = call i32 @_FortranACharacterCompareScalar1(ptr %31, ptr nonnull @_QQcl.43, i64 1, i64 1)
  %35 = icmp eq i32 %34, 0
  %36 = or i1 %33, %35
  %37 = call i32 @_FortranACharacterCompareScalar1(ptr %31, ptr nonnull @_QQcl.47, i64 1, i64 1)
  %38 = icmp eq i32 %37, 0
  %39 = or i1 %36, %38
  %40 = call i32 @_FortranACharacterCompareScalar1(ptr %31, ptr nonnull @_QQcl.54, i64 1, i64 1)
  %41 = icmp eq i32 %40, 0
  %42 = or i1 %39, %41
  %.unpack192 = load ptr, ptr @_QFEx.0, align 8, !tbaa !7
  %43 = add nsw i64 %indvars.iv, -1
  %44 = getelementptr i32, ptr %.unpack192, i64 %43
  %. = zext i1 %42 to i32
  store i32 %., ptr %44, align 4, !tbaa !3
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv, %spec.select
  br i1 %exitcond.not, label %select.unfold._crit_edge, label %.lr.ph

select.unfold._crit_edge:                         ; preds = %.lr.ph, %26
  %.unpack = phi ptr [ %17, %26 ], [ %.unpack192, %.lr.ph ]
  br label %45

45:                                               ; preds = %select.unfold._crit_edge, %45
  %46 = phi i64 [ 19, %select.unfold._crit_edge ], [ %50, %45 ]
  %47 = getelementptr [20 x [1 x i8]], ptr %1, i64 0, i64 %46
  %48 = load i8, ptr %47, align 1, !tbaa !3
  %49 = icmp eq i8 %48, 32
  %50 = add nsw i64 %46, -1
  %51 = icmp ne i64 %46, 0
  %52 = and i1 %49, %51
  br i1 %52, label %45, label %53

53:                                               ; preds = %45
  %.op154 = shl i64 %46, 32
  %sext155 = add i64 %.op154, 8589934592
  %54 = ashr exact i64 %sext155, 32
  %.op245 = add nsw i64 %54, -1
  %55 = select i1 %49, i64 0, i64 %.op245
  %56 = getelementptr i32, ptr %.unpack, i64 %55
  store i32 0, ptr %56, align 4, !tbaa !3
  br label %57

57:                                               ; preds = %53, %57
  %58 = phi i64 [ 19, %53 ], [ %62, %57 ]
  %59 = getelementptr [20 x [1 x i8]], ptr %1, i64 0, i64 %58
  %60 = load i8, ptr %59, align 1, !tbaa !3
  %61 = icmp eq i8 %60, 32
  %62 = add nsw i64 %58, -1
  %63 = icmp ne i64 %58, 0
  %64 = and i1 %61, %63
  br i1 %64, label %57, label %65

65:                                               ; preds = %57
  %66 = trunc i64 %58 to i32
  %67 = add i32 %66, 1
  %spec.select205 = select i1 %61, i32 0, i32 %67
  %68 = icmp sgt i32 %spec.select205, 0
  br i1 %68, label %.lr.ph216, label %select.unfold204._crit_edge

.lr.ph216:                                        ; preds = %65, %select.unfold204
  %.0125215 = phi i32 [ %84, %select.unfold204 ], [ 1, %65 ]
  %.0126214 = phi i32 [ %.1, %select.unfold204 ], [ 0, %65 ]
  %69 = sext i32 %.0125215 to i64
  %70 = add nsw i64 %69, -1
  %71 = getelementptr i32, ptr %.unpack, i64 %70
  %72 = load i32, ptr %71, align 4, !tbaa !3
  %73 = icmp eq i32 %72, 1
  br i1 %73, label %.preheader, label %select.unfold204

.preheader:                                       ; preds = %.lr.ph216, %.preheader
  %.0 = phi i32 [ %74, %.preheader ], [ %.0125215, %.lr.ph216 ]
  %74 = add i32 %.0, 1
  %75 = sext i32 %74 to i64
  %76 = add nsw i64 %75, -1
  %77 = getelementptr i32, ptr %.unpack, i64 %76
  %78 = load i32, ptr %77, align 4, !tbaa !3
  %79 = icmp eq i32 %78, 1
  br i1 %79, label %.preheader, label %80

80:                                               ; preds = %.preheader
  %81 = sub i32 1, %.0125215
  %82 = add i32 %81, %.0
  %83 = call i32 @llvm.smax.i32(i32 %.0126214, i32 %82)
  br label %select.unfold204

select.unfold204:                                 ; preds = %80, %.lr.ph216
  %.1 = phi i32 [ %83, %80 ], [ %.0126214, %.lr.ph216 ]
  %84 = add nuw i32 %.0125215, 1
  %exitcond225.not = icmp eq i32 %.0125215, %spec.select205
  br i1 %exitcond225.not, label %select.unfold204._crit_edge, label %.lr.ph216

select.unfold204._crit_edge:                      ; preds = %select.unfold204, %65
  %.0126.lcssa = phi i32 [ 0, %65 ], [ %.1, %select.unfold204 ]
  %85 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.28959d134e63ffdcd4af398bcf43d7dd, i32 27)
  %86 = call i1 @_FortranAioOutputInteger32(ptr %85, i32 %.0126.lcssa)
  %87 = call i32 @_FortranAioEndIoStatement(ptr %85)
  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 i32 @_FortranACharacterCompareScalar1(ptr, ptr, i64, i64) local_unnamed_addr

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

declare i1 @_FortranAioOutputInteger32(ptr, i32) 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 nosync nounwind speculatable willreturn memory(none)
declare i32 @llvm.smax.i32(i32, i32) #1

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) }

!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}
