blob: 07e7c34132baab0741cd0078444c15e52a158eaa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
