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