diff --git a/fortran/src/include/utils.f90 b/fortran/src/include/utils.f90
index 0145b2d6..9696a464 100644
--- 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