[Bug fortran/49112] [4.6/4.7 Regression] [OOP] Missing type-bound procedure, "duplicate save" warnings and internal compiler error

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011.05.28 10:31:09
     Ever Confirmed|0                           |1

--- Comment #6 from janus at gcc dot gnu.org 2011-05-28 10:31:09 UTC ---
(In reply to comment #0)
> ...:~$ gfortran -c  test_gfortran_missing_tbp.f90 
> test_gfortran_missing_tbp.f90:27.38:
> 
>         string = dt%getFormattedString(0, FMT)
>                                       1
> Error: 'getformattedstring' at (1) is not a member of the 'datetime' structure

Here is a reduced test case for this error, which is also a regression:


module datetime_mod

    implicit none

    type :: DateTime
        integer :: year, month, day
    contains
        procedure :: getFormattedString
    end type

    type(DateTime) :: ISO_REFERENCE_DATE = DateTime(1875, 5, 20)

contains

    character function getString(dt)
        class(DateTime) :: dt
        getString = dt%getFormattedString()
    end function 

    character function getFormattedString(dt)
        class(DateTime) :: dt
    end function

end module