This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/32738] New: Error: Function 'tree_size' at (1) has no IMPLICIT type
- From: "michael dot a dot richmond at nasa dot gov" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 12 Jul 2007 14:56:16 -0000
- Subject: [Bug fortran/32738] New: Error: Function 'tree_size' at (1) has no IMPLICIT type
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
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