Subversion Repositories openrisc

! { dg-do "run" }

! Check whether RESULT of ENTRY defaults to entry-name.

! PR fortran/30873

!

! Contributed by Joost VandeVondele 

!

MODULE M1

  CONTAINS

    FUNCTION F2(K)

      INTEGER :: F2,K

      F2=E1(K)

    END FUNCTION F2

    RECURSIVE FUNCTION F1(I)

      INTEGER :: F1,I,E1

      F1=F2(I)

      RETURN

     ENTRY E1(I)

      E1=-I

      RETURN

    END FUNCTION F1

END  MODULE M1

program main

  use m1

  if (E1(5) /= -5) call abort()

  if (F2(4) /= -4) call abort()

  if (F1(1) /= -1) call abort()

end program main

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