public inbox for gcc-bugs@sourceware.org help / color / mirror / Atom feed
From: "pault at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org> To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/24092] New: ICE in trans-types.c for nested derived types Date: Tue, 27 Sep 2005 21:30:00 -0000 [thread overview] Message-ID: <20050927212937.24092.pault@gcc.gnu.org> (raw) This module is taken from one of the Meissner tests and is the last to crash with gfortran: ! copyright 1996 Loren P. Meissner -- May be distributed if this line is included. ! Linked List operations with Pointer to Pointer module llo type :: it character*10 :: k integer :: c(2) end type it type :: bt type (nt), pointer :: p end type bt type :: nt type (it) :: i type (bt) :: b end type nt type (bt), pointer :: ptr end module llo produces [prt@localhost meissner]# /gcc-4.1/bin/gfortran -c meissner21_mod.f90 meissner21_mod.f90:0: internal compiler error: in gfc_get_derived_type, at fortran/trans-types.c:1459 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. A tentative fix is: Index: gcc/gcc/fortran/trans-types.c =================================================================== RCS file: /cvs/gcc/gcc/gcc/fortran/trans-types.c,v retrieving revision 1.50 diff -c -p -r1.50 trans-types.c *** gcc/gcc/fortran/trans-types.c 29 Jul 2005 00:02:37 -0000 1.50 --- gcc/gcc/fortran/trans-types.c 27 Sep 2005 21:11:53 -0000 *************** gfc_get_derived_type (gfc_symbol * deriv *** 1456,1463 **** DECL_PACKED (field) |= TYPE_PACKED (typenode); ! gcc_assert (!c->backend_decl); ! c->backend_decl = field; } /* Now we have the final fieldlist. Record it, then lay out the --- 1456,1465 ---- DECL_PACKED (field) |= TYPE_PACKED (typenode); ! /* It can happen that in partially built, nested derived ! types that the component backend_decl already exists. */ ! if (!c->backend_decl) ! c->backend_decl = field; } /* Now we have the final fieldlist. Record it, then lay out the -- Summary: ICE in trans-types.c for nested derived types Product: gcc Version: 4.1.0 Status: UNCONFIRMED Severity: normal Priority: P2 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: pault at gcc dot gnu dot org CC: gcc-bugs at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24092
next reply other threads:[~2005-09-27 21:30 UTC|newest] Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top 2005-09-27 21:30 pault at gcc dot gnu dot org [this message] 2005-09-28 9:22 ` [Bug fortran/24092] " tobi at gcc dot gnu dot org
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20050927212937.24092.pault@gcc.gnu.org \ --to=gcc-bugzilla@gcc.gnu.org \ --cc=gcc-bugs@gcc.gnu.org \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).