This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/45827] [4.6 Regression] mio_component_ref(): Component not found
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Mon, 27 Dec 2010 14:22:16 +0000
- Subject: [Bug fortran/45827] [4.6 Regression] mio_component_ref(): Component not found
- Auto-submitted: auto-generated
- References: <bug-45827-4@http.gcc.gnu.org/bugzilla/>
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).