From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10658 invoked by alias); 30 Jul 2013 06:21:32 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 10574 invoked by uid 48); 30 Jul 2013 06:21:28 -0000 From: "Joost.VandeVondele at mat dot ethz.ch" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/58026] New: internal compiler error: in generate_finalization_wrapper, at fortran/class.c:1521 Date: Tue, 30 Jul 2013 06:21:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: new X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 4.9.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: Joost.VandeVondele at mat dot ethz.ch X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status bug_severity priority component assigned_to reporter Message-ID: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2013-07/txt/msg01456.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58026 Bug ID: 58026 Summary: internal compiler error: in generate_finalization_wrapper, at fortran/class.c:1521 Product: gcc Version: 4.9.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: Joost.VandeVondele at mat dot ethz.ch Following invalid testcase yields and ICE with current trunk. > cat small.f90 type sysmtx_t type(ext_complex_t), allocatable :: S(:) ! Block scales end type sysmtx_t contains subroutine init (this, n, n_e, n_i, n_o) class(sysmtx_t), intent(out) :: this > gfortran small.f90 small.f90:2.40: type(ext_complex_t), allocatable :: S(:) ! Block scales 1 Error: Derived type at (1) has not been previously defined and so cannot appear in a derived type definition f951: internal compiler error: in generate_finalization_wrapper, at fortran/class.c:1521 0x54f091 generate_finalization_wrapper ../../gcc/gcc/fortran/class.c:1520 0x54f091 gfc_find_derived_vtab(gfc_symbol*) ../../gcc/gcc/fortran/class.c:2394 0x54fc82 gfc_build_class_symbol(gfc_typespec*, symbol_attribute*, gfc_array_spec**, bool)