fixed overflow error in indices

2020-08-02 15:45:40 -07:00 · 2020-08-02 15:45:40 -07:00 · e60ecd91fc
commit e60ecd91fc
parent d3a5fbd653
2 changed files with 1 additions and 2 deletions
--- a/fortran/fourthfree
+++ b/fortran/fourthfree
--- a/fortran/fourthfree.f90
+++ b/fortran/fourthfree.f90
@ -116,8 +116,7 @@ implicit none
    1   format(1i10)

    integer (kind = 16), dimension (:), allocatable :: temp, temp2
-    integer (kind = 16) :: current, next
-    integer :: i, j, templen, ios
+    integer (kind = 16) :: current, next, i, j, templen, ios
    logical :: done

    templen = 0