4 ! A regression that mysteriously appeared and disappeared again.
5 ! Added to the testsuite "just in case".
7 ! Contributed by Michael Richmond <michael DOT a DOT richmond AT nasa DT gov>
10 module cluster_definition
12 integer, parameter, public:: cluster_size = 1000
13 end module cluster_definition
15 use cluster_definition, only: ct_cluster_size => cluster_size
18 private:: ct_initialize, ct_dealloc, ct_tree_size
19 public:: initialize, dealloc, tree_size
21 module procedure ct_initialize
24 module procedure ct_dealloc
27 module procedure ct_tree_size
30 subroutine ct_initialize()
31 end subroutine ct_initialize
32 subroutine ct_dealloc()
33 end subroutine ct_dealloc
34 function ct_tree_size(t) result(s)
38 end function ct_tree_size
39 end module cluster_tree
46 ! { dg-final { cleanup-modules "cluster_definition cluster_tree" } }