More work on utils.f90 (2)

LivInTheLookingGlass · Oct 7, 2024 · cca32dd · cca32dd
1 parent 7fbf205
commit cca32dd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/fortran/src/include/utils.f90 b/fortran/src/include/utils.f90
@@ -66,7 +66,9 @@ subroutine init_answers_cache()
         character(len=32) :: val
         character(len=4) :: id_, type_, length
 
-        cached_answers = AnswerT(0, '', errort)
+        do i=1, size(cached_answers)
+            cached_answers(i) = AnswerT(0, '', errort)
+        end do
 
         call get_data_file("answers.tsv", text)
         row_start = 1