Solve p34 in fortran (2)

LivInTheLookingGlass · Oct 2, 2024 · 528e7e1 · 528e7e1
1 parent eba72ae
commit 528e7e1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fortran/test.f90 b/fortran/test.f90
@@ -155,6 +155,8 @@ type(AnswerT) function select_function(problem_id) result(answer)
                 answer%int_value = p0017()
             case (28)
                 answer%int_value = p0028()
+            case (34)
+                answer%int_value = p0034()
             case (836)
                 allocate(character(len=14) :: answer%string_value)
                 if (.not. allocated(answer%string_value)) then