Fix stu[id fortran bug

2023-12-24 21:46:02 -05:00 · 2023-12-24 21:46:02 -05:00 · 708e2caf3c
commit 708e2caf3c
parent a9ef0dce69
1 changed files with 2 additions and 2 deletions
--- 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