From 708e2caf3c176559d78e1828748a0a24749d692e Mon Sep 17 00:00:00 2001 From: Bill Rossi Date: Sun, 24 Dec 2023 21:46:02 -0500 Subject: [PATCH] Fix stu[id fortran bug --- fortran/2015/1/problem.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fortran/2015/1/problem.f90 b/fortran/2015/1/problem.f90 index 2fd4f57..ca4cdef 100644 --- a/fortran/2015/1/problem.f90 +++ b/fortran/2015/1/problem.f90 @@ -11,10 +11,10 @@ program problem read(unit) input - do i=1, input_file_size + do i=0, input_file_size - 1 if (input(i:i) == "(") then floor = floor + 1 - else + else if (input(i:i) == ")") then floor = floor - 1 end if end do