Fix runner for 13

LivInTheLookingGlass · Oct 1, 2024 · d2c71bf · d2c71bf
1 parent 01a0073
commit d2c71bf
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fortran/test.f90 b/fortran/test.f90
@@ -134,6 +134,8 @@ type(AnswerT) function select_function(problem_id) result(answer)
                 answer%int_value = p0009()
             case (11)
                 answer%int_value = p0011()
+            case (13)
+                answer%int_value = p0013()
             case (836)
                 allocate(character(len=14) :: answer%string_value)
                 if (.not. allocated(answer%string_value)) then