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