+2007-07-19 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/32738
+ * gfortran.dg/pr32768.f90: New test.
+
2007-07-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR tree-optimzation/32635
--- /dev/null
+! { 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