! { 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 = 1000end module cluster_definitionmodule 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 interfacecontains  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_sizeend module cluster_treeprogram example  use cluster_tree  implicit none     print *, tree_size(1)end program example! { dg-final { cleanup-modules "cluster_definition cluster_tree" } }