25 lines
467 B
Fortran
25 lines
467 B
Fortran
! { 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 |