fix(factorial): result should be of the default kind, not double defa…

…ult kind Fixes #875
fortran-lang · Sep 23, 2024 · cb6f989 · cb6f989
1 parent ccdba91
commit cb6f989
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_specialfunctions_gamma.fypp b/src/stdlib_specialfunctions_gamma.fypp
@@ -547,7 +547,7 @@ contains
 
         case (two : )
 
-            res = l_gamma(n + 1, 1.0D0)
+            res = l_gamma(n + 1, 1.0)
 
         end select
     end function l_factorial_${t1[0]}$${k1}$