From 9d5e59790b36fb6fde3c8d02716d218a39c65adf Mon Sep 17 00:00:00 2001 From: Olivia Appleton Date: Sun, 6 Oct 2024 02:42:25 -0500 Subject: [PATCH] Fix compilation error with new open function --- fortran/src/include/utils.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fortran/src/include/utils.f90 b/fortran/src/include/utils.f90 index 32eed6d2..7192c1b0 100644 --- a/fortran/src/include/utils.f90 +++ b/fortran/src/include/utils.f90 @@ -42,6 +42,7 @@ type(AnswerT) function get_answer(id) result(answer) end function subroutine init_answer_cache() + character(len=32), parameter ::file_name = "answers.tsv" character(len=64) :: line character(len=32) :: val character(len=4) :: id_, type_, length @@ -49,7 +50,7 @@ subroutine init_answer_cache() integer :: ios, line_length, unit_number cached_answers = AnswerT(0, '', errort) - unit_number = open_data_file("answers.tsv") + unit_number = open_data_file(file_name) line_length = 1 do while (line_length > 0) line = ''