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