1! { dg-do compile } 2! Test the fix for the fifth problem in PR40011, where the 3! entries were not resolved, resulting in a segfault. 4! 5! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr> 6! 7recursive function fac(i) result (res) 8 integer :: i, j, k, res 9 k = 1 10 goto 100 11entry bifac(i,j) result (res) 12 k = j 13100 continue 14 if (i < k) then 15 res = 1 16 else 17 res = i * bifac(i-k,k) 18 end if 19end function 20 21program test 22 external fac 23 external bifac 24 integer :: fac, bifac 25 print *, fac(5) 26 print *, bifac(5,2) 27 print*, fac(6) 28 print *, bifac(6,2) 29 print*, fac(0) 30 print *, bifac(1,2) 31end program test 32