Subversion Repositories openrisc

! { dg-do compile }

! PR fortran/26551

      SUBROUTINE SUB()

      CALL SUB() ! { dg-error "is not RECURSIVE" }

      END SUBROUTINE

      FUNCTION FUNC() RESULT (FOO)

      INTEGER FOO

      FOO = FUNC() ! { dg-error "is not RECURSIVE" }

      END FUNCTION

      SUBROUTINE SUB2()

      ENTRY ENT2()

      CALL ENT2() ! { dg-error "is not RECURSIVE" }

      END SUBROUTINE

      function func2()

      integer func2

      func2 = 42

      return

      entry c() result (foo)

      foo = b() ! { dg-error "is not RECURSIVE" }

      return

      entry b() result (bar)

      bar = 12

      return

      end function