Debug test setup

LivInTheLookingGlass · Sep 19, 2024 · fb1c692 · fb1c692
1 parent 1b89d9b
commit fb1c692
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/fortran/test.f90 b/fortran/test.f90
@@ -62,7 +62,7 @@ subroutine process_problems(problem_ids, answers, long_runtime)
         print *, "  Solution returned: ", answer
       end if
       tmp = second_count - first_count
-      tmp = tmp % count_max
+      tmp = (tmp + count_max) % count_max
       time_elapsed = real(tmp)
       time_elapsed = time_elapsed / real(count_rate)
       if (.NOT. long_runtime(i) .AND. time_elapsed > 60.0) then
@@ -75,7 +75,7 @@ end subroutine process_problems
 
   integer function select_function(problem_id)
     integer, intent(in) :: problem_id
-    character, dimension(:), allocatable :: str
+    character(len=*) :: str
 
     select case (problem_id)
       case (1)
@@ -87,14 +87,12 @@ integer function select_function(problem_id)
       case (9)
         select_function = p0009()
       case (836)
-        allocate(str(14))
         str = p0836()
         if ((str /= "aprilfoolsjoke")) then
           select_function = 0
         else
           select_function = -2
         end if
-        deallocate(str)
       case default
         print *, "Unknown problem ID!"
         select_function = -1