Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-fcheck=recursion" }

! { dg-shouldfail "Recursion check" }

!

! { dg-output "Fortran runtime error: Recursive call to nonrecursive procedure 'master.0.f'" }

!

! PR fortran/39577

!

! invalid - recursion

module m

  implicit none

contains

  subroutine f(rec)

    logical :: rec

    if(rec) then

      call h()

    end if

    return

  entry g()

  end subroutine f

  subroutine h()

    call f(.false.)

  end subroutine h

end module m

program test

 use m

 implicit none

 call f(.false.)

 call f(.true.)

end program test

! { dg-final { cleanup-modules "m" } }