diff --git a/fortran/src/p0076.f90 b/fortran/src/p0076.f90
index f6cdb576..551a6a72 100644
--- a/fortran/src/p0076.f90
+++ b/fortran/src/p0076.f90
@@ -62,7 +62,7 @@ integer function p0076() result(answer)
                     do i = 3, 99
                         sum = sum + counts(i)
                     end do
-                    if (sum > 100) then
+                    if (sum <= 100) then
                         exit
                     end if
                 end do