[Bug fortran/32738] New: Error: Function 'tree_size' at (1) has no IMPLICIT type

[Bug fortran/32738] New: Error: Function 'tree_size' at (1) has no IMPLICIT type

[michael dot a dot richmond at nasa dot gov]

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

[Bug fortran/32738] Error: Function 'tree_size' at (1) has no IMPLICIT type

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-07-12 18:24 -------
New error message, but probably same reason. As I wrote in another PR:

This seems to be a duplicate of PR 32727.
Note that the offending patch (for PR32634) has been reverted and therefore
this should not fail anymore.

I'm not marking it a duplicate as it might have a different reason; as I don't
get a failure here indicates however that it is indeed a duplicate.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738

[Bug fortran/32738] Error: Function 'tree_size' at (1) has no IMPLICIT type

[dfranke at gcc dot gnu dot org]

------- Comment #2 from dfranke at gcc dot gnu dot org  2007-07-14 13:37 -------
> I'm not marking it a duplicate as it might have a different reason; as I
> don't get a failure here indicates however that it is indeed a duplicate.

Works here as well. 

Michael, can you confirm?

Tobias, should the testcases be added to the testsuite nonetheless? To make
sure we don't regress again if perchance it wasn't a dupe?


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |dfranke at gcc dot gnu dot
                   |                            |org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738

[Bug fortran/32738] Error: Function 'tree_size' at (1) has no IMPLICIT type

[michael dot a dot richmond at nasa dot gov]

------- Comment #3 from michael dot a dot richmond at nasa dot gov  2007-07-16 14:33 -------
(In reply to comment #2)
> > I'm not marking it a duplicate as it might have a different reason; as I
> > don't get a failure here indicates however that it is indeed a duplicate.
> 
> Works here as well. 
> 
> Michael, can you confirm?

All I know is the bug exists in the snapshot versions of gfortran v4.3 dated
July 11 and 12. It does not exist in earlier or later snapshots of gfortran
v4.3. It does not exist in the snapshot version of gfortran v4.2.1 dated July
12.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738

[Bug fortran/32738] Error: Function 'tree_size' at (1) has no IMPLICIT type

[dfranke at gcc dot gnu dot org]

------- Comment #4 from dfranke at gcc dot gnu dot org  2007-07-19 21:11 -------
Subject: Bug 32738

Author: dfranke
Date: Thu Jul 19 21:11:38 2007
New Revision: 126790

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=126790
Log:
2007-07-19  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/32738
        * gfortran.dg/pr32768.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/pr32738.f90
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738

[Bug fortran/32738] Error: Function 'tree_size' at (1) has no IMPLICIT type

[dfranke at gcc dot gnu dot org]

------- Comment #5 from dfranke at gcc dot gnu dot org  2007-07-19 21:12 -------
Assuming fixed. Added the testcase to the testsuite (r126790). 
Closing as WORKSFORME.


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |WORKSFORME


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32738