Subversion Repositories openrisc

! { dg-do compile }

! PR31609 module that calls a contained function with an ENTRY point

! Test case derived from the PR

MODULE ksbin1_aux_mod

  CONTAINS

    SUBROUTINE sub

    i = k()

    END SUBROUTINE sub

    FUNCTION j ()

      print *, "in j"

    j = 111

    ENTRY k ()

      print *, "in k"

    k = 222

    END FUNCTION j

END MODULE ksbin1_aux_mod

program testit

  use ksbin1_aux_mod

  l = j()

  print *, l

  l = k()

  print *, l

end program testit