2 ! { dg-options "-fwhole-file" }
3 ! Test the fix for the fifth problem in PR40011, where the
4 ! entries were not resolved, resulting in a segfault.
6 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
8 recursive function fac(i) result (res)
9 integer :: i, j, k, res
12 entry bifac(i,j) result (res)
18 res = i * bifac(i-k,k)