public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/32738]  New: Error: Function 'tree_size' at (1) has no IMPLICIT type
@ 2007-07-12 14:56 michael dot a dot richmond at nasa dot gov
  2007-07-12 18:25 ` [Bug fortran/32738] " burnus at gcc dot gnu dot org
                   ` (4 more replies)
  0 siblings, 5 replies; 6+ messages in thread
From: michael dot a dot richmond at nasa dot gov @ 2007-07-12 14:56 UTC (permalink / raw)
  To: gcc-bugs

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


^ permalink raw reply	[flat|nested] 6+ messages in thread
end of thread, other threads:[~2007-07-19 21:12 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-07-12 14:56 [Bug fortran/32738] New: Error: Function 'tree_size' at (1) has no IMPLICIT type michael dot a dot richmond at nasa dot gov
2007-07-12 18:25 ` [Bug fortran/32738] " burnus at gcc dot gnu dot org
2007-07-14 13:37 ` dfranke at gcc dot gnu dot org
2007-07-16 14:33 ` michael dot a dot richmond at nasa dot gov
2007-07-19 21:11 ` dfranke at gcc dot gnu dot org
2007-07-19 21:12 ` dfranke at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).