From 9dc5eb2610eb0eec41efd20e3087e07d4c26930d Mon Sep 17 00:00:00 2001
From: Olivia Appleton <olivia.kay.appleton@gmail.com>
Date: Sun, 22 Sep 2024 15:19:53 -0500
Subject: [PATCH] Move answers to reading from answers.tsv (17)

---
 fortran/src/include/utils.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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