blob: 07e7c34132baab0741cd0078444c15e52a158eaa [file] [log] [blame]
! { 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