OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2008-03-04 Uros Bizjak <ubizjak@gmail.com>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
entry_11.f90
1
! { dg-do compile }
2
! PR31609 module that calls a contained function with an ENTRY point
3
! Test case derived from the PR
4
5
MODULE 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
17
END MODULE ksbin1_aux_mod
18
19
program testit
20
use ksbin1_aux_mod
21
l = j()
22
print *, l
23
l = k()
24
print *, l
25
end program testit