When I compile the file listed below using the latest snapshot version of gfortran, I get the following messages:
c.f90:46.18: use cluster_tree 1 Warning: Although not referenced, '' at (1) has ambiguous interfaces c.f90:48.13: print *, tree_size(1) 1 Error: Function 'tree_size' at (1) has no IMPLICIT type 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 -- Summary: Error: Function 'tree_size' at (1) has no IMPLICIT type Product: gcc Version: 4.3.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: michael dot a dot richmond at nasa dot gov http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738