blob: bee6f184cc4207c5bd7e6d2320dff2043594b062 (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
! { dg-do compile }
! PR fortran/32738
!
! A regression that mysteriously appeared and disappeared again.
! Added to the testsuite "just in case".
!
! Contributed by Michael Richmond <michael DOT a DOT richmond AT nasa DT gov>
!
module cluster_definition
implicit none
integer, parameter, public:: cluster_size = 1000
end module cluster_definition
module cluster_tree
use cluster_definition, only: ct_cluster_size => cluster_size
implicit none
private
private:: ct_initialize, ct_dealloc, ct_tree_size
public:: initialize, dealloc, tree_size
interface initialize
module procedure ct_initialize
end interface
interface dealloc
module procedure ct_dealloc
end interface
interface tree_size
module procedure ct_tree_size
end interface
contains
subroutine ct_initialize()
end subroutine ct_initialize
subroutine ct_dealloc()
end subroutine ct_dealloc
function ct_tree_size(t) result(s)
integer :: t
integer :: s
s = 0
end function ct_tree_size
end module cluster_tree
program example
use cluster_tree
implicit none
print *, tree_size(1)
end program example
! { dg-final { cleanup-modules "cluster_definition cluster_tree" } }
|
