gcc/testsuite/gfortran.dg/recursive_check_12.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fcheck=recursion" }
   3 !
   4 ! PR fortran/39577
   5 !
   6 ! OK - no recursion
   7 module m
   8   implicit none
   9 contains
  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
  21 end module m
  22
  23 program test
  24  use m
  25  implicit none
  26  call f(.false.)
  27  call f(.false.)
  28 end program test
  29 ! { dg-final { cleanup-modules "m" } }