1! { dg-do compile }
2! PR31609 module that calls a contained function with an ENTRY point
3! Test case derived from the PR
4
5MODULE ksbin1_aux_mod
6  CONTAINS
7    SUBROUTINE sub
8    i = k()
9    END SUBROUTINE sub
10    FUNCTION j ()
11      print *, "in j"
12    j = 111
13    ENTRY k ()
14      print *, "in k"
15    k = 222
16    END FUNCTION j
17END MODULE ksbin1_aux_mod
18
19program testit
20  use ksbin1_aux_mod
21  l = j()
22  print *, l
23  l = k()
24  print *, l
25end program testit