1! { dg-do run } 2! { dg-options "-fcheck=recursion" } 3! 4! PR fortran/39577 5! 6! OK - no recursion 7module m 8 implicit none 9contains 10 subroutine f(rec) 11 logical :: rec 12 if(rec) then 13 call h() 14 end if 15 return 16 entry g() 17 end subroutine f 18 subroutine h() 19 call f(.false.) 20 end subroutine h 21end module m 22 23program test 24 use m 25 implicit none 26 call f(.false.) 27 call f(.false.) 28end program test 29