[Bug fortran/17379] New: Generic functions not resolved

["CARendleman at lbl dot gov" <gcc-bugzilla@gcc.gnu.org>]

$ cat generic_bug.f90 
module vector_i_module 
 
  implicit none 
 
  type vector_i 
     integer :: size = 0 
  end type vector_i 
 
  interface size 
     module procedure vector_size_i 
  end interface size 
 
contains 
 
  function vector_size_i(d) result(r) 
    integer :: r 
    type(vector_i), intent(in) :: d 
    r = d%size 
  end function vector_size_i 
 
  subroutine vector_reverse_i(d) 
    type(vector_i), intent(inout) :: d 
    integer :: i,n 
    n = size(d) 
  end subroutine vector_reverse_i 
 
end module vector_i_module 
$ gfortran generic_bug.f90 
 In file generic_bug.f90:24 
 
    n = size(d) 
           1 
Error: Symbol 'size' at (1) has no IMPLICIT type

-- 
           Summary: Generic functions not resolved
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: critical
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: CARendleman at lbl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: GNU Fortran 95 (GCC 3.5.0 20040909 (experimental))


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