Solve p15 in fortran (2)

LivInTheLookingGlass · Oct 9, 2024 · 8c636a3 · 8c636a3
1 parent 0c5479a
commit 8c636a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fortran/src/include/math.f90 b/fortran/src/include/math.f90
@@ -20,7 +20,8 @@ pure integer(i18t) function n_choose_r(n, r) result(answer)
         end if
     end function
 
-    pure integer(i18t) function n_choose_r_slow(n, r) result(answer)
+    integer(i18t) function n_choose_r_slow(n, r) result(answer)
+        integer, intent(in) :: n, r
         integer(i2t), allocatable :: factors(:)
         integer(i18t) :: tmp
         integer :: i, j