Squash some compiler errors

LivInTheLookingGlass · Oct 1, 2024 · 9921a75 · 9921a75
1 parent 38272e6
commit 9921a75
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/fortran/src/include/utils.f90 b/fortran/src/include/utils.f90
@@ -59,6 +59,12 @@ function get_answer(id) result(answer)
         character(len=32) :: val
         character(len=4) :: id_, type_, length
 
+        if (id < 1 .or. id > size(cached_answers)) then
+            print *, "Error: ID is out of bounds."
+            answer%type = errort
+            return
+        end if
+
         if (cache_inited) then
             answer = cached_answers(id)
             return