2 ! { dg-options "-fcheck=recursion" }
6 ! Recursive but valid program
7 ! Contributed by Dominique Dhumieres
9 recursive function fac(i
) result (res
)
10 integer :: i
, j
, k
, res
13 entry bifac(i
,j
) result (res
)
19 res
= i
* bifac(i
-k
,k
)
25 recursive function fac(n
) result (res
)
29 recursive function bifac(m
,n
) result (res
)