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