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)