[Bug fortran/45827] [4.6 Regression] mio_component_ref(): Component not found

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

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|mio_component_ref():        |[4.6 Regression]
                   |Component not found when    |mio_component_ref():
                   |mixing f90 and f03 in large |Component not found
                   |projects                    |

--- Comment #33 from janus at gcc dot gnu.org 2010-12-27 14:22:12 UTC ---
(In reply to comment #32)
> Same error for this testcase:

Thanks for the test case, Daniel. Here is a slightly reduced version:


MODULE m

  TYPE, ABSTRACT :: t
    PRIVATE
    INTEGER   :: n
  CONTAINS
    PROCEDURE :: get
  END TYPE

  ABSTRACT INTERFACE
    SUBROUTINE create(this)
      IMPORT t
      CLASS(t) :: this
    END SUBROUTINE
  END INTERFACE

CONTAINS

  FUNCTION get(this)
    CLASS(t) :: this
    REAL, DIMENSION(this%n) :: get
  END FUNCTION

  SUBROUTINE destroy(this)
    CLASS(t) :: this
  END SUBROUTINE

END MODULE


PROGRAM p
  USE m
END


Also, note that this is a regression (the test case works with 4.5).