2 ! Test the fix for the fifth problem in PR40011, where the
3 ! entries were not resolved, resulting in a segfault.
5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
7 recursive function fac(i
) result (res
)
8 integer :: i
, j
, k
, res
11 entry bifac(i
,j
) result (res
)
17 res
= i
* bifac(i
-k
,k
)