Move answers to reading from answers.tsv (17)

LivInTheLookingGlass · Sep 25, 2024 · 9dc5eb2 · 9dc5eb2
1 parent ea708f8
commit 9dc5eb2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/include/utils.f90 b/fortran/src/include/utils.f90
@@ -73,7 +73,7 @@ function get_answer(id) result(answer)
                 print *, text(row_start:row_end)
                 call parse_line(text(row_start:row_end), id_, type_, length, val)  ! Parse values
                 print *, id_, type_, length, val
-                read(type_, *, iostat=ios) i
+                read(id_, *, iostat=ios) i
                 if (ios /= 0) then
                     print *, "Invalid integer literal for id. Moving on without explicit error, but please debug this"
                 elseif (i == id) then