[Bug fortran/43044] New: [-fwhole-file] ICE segfault for global_references_1.f90 (invalid code)

[Bug fortran/43044] New: [-fwhole-file] ICE segfault for global_references_1.f90 (invalid code)

[burnus at gcc dot gnu dot org]

$ gfortran -fwhole-file gfortran.dg/global_references_1.f90

[... some valid errors ...]
gfortran.dg/global_references_1.f90:9:0: internal compiler error: Segmentation
fault


==24437== Invalid read of size 8
==24437==    at 0x51190F: resolve_global_procedure (resolve.c:1844)
==24437==    by 0x51304D: gfc_resolve_expr (resolve.c:2597)
==24437==    by 0x51BE52: resolve_code (resolve.c:8030)
==24437==    by 0x51D952: resolve_codes (resolve.c:12371)
==24437==    by 0x511584: gfc_resolve (resolve.c:12398)
==24437==    by 0x506929: gfc_parse_file (parse.c:4029)
==24437==    by 0x53C097: gfc_be_parse_file (f95-lang.c:239)
==24437==    by 0x8253EB: toplev_main (toplev.c:1053)
==24437==    by 0x5EB3BDC: (below main) (in /lib64/libc-2.11.1.so)
==24437==  Address 0x0 is not stack'd, malloc'd or (recently) free'd


-- 
           Summary: [-fwhole-file] ICE segfault for global_references_1.f90
                    (invalid code)
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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

[Bug fortran/43044] [-fwhole-file] ICE segfault for global_references_1.f90 (invalid code)

[pault at gcc dot gnu dot org]

------- Comment #1 from pault at gcc dot gnu dot org  2010-03-18 18:17 -------
This is fixed by the following, which is not yet regtested:
Index: ../trunk/gcc/fortran/resolve.c
===================================================================
--- ../trunk/gcc/fortran/resolve.c      (revision 157419)
+++ ../trunk/gcc/fortran/resolve.c      (working copy)
@@ -1841,6 +1841,7 @@

       /* Non-assumed length character functions.  */
       if (sym->attr.function && sym->ts.type == BT_CHARACTER
+         && gsym->ns->proc_name->ts.u.cl
          && gsym->ns->proc_name->ts.u.cl->length != NULL)
        {
          gfc_charlen *cl = sym->ts.u.cl;

>From the style, this does not look like it was my addition :-)

Paul


-- 


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

[Bug fortran/43044] [-fwhole-file] ICE segfault for global_references_1.f90 (invalid code)

[pault at gcc dot gnu dot org]

------- Comment #2 from pault at gcc dot gnu dot org  2010-03-18 21:24 -------
Subject: Bug 43044

Author: pault
Date: Thu Mar 18 21:23:35 2010
New Revision: 157552

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=157552
Log:
2010-03-18  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/43039
        * trans-expr.c (conv_parent_component_references): Ensure that
        'dt' has a backend_decl.

        PR fortran/43043
        * trans-expr.c (gfc_conv_structure): Ensure that the derived
        type has a backend_decl.

        PR fortran/43044
        * resolve.c (resolve_global_procedure): Check that the 'cl'
        structure is not NULL.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c


-- 


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

[Bug fortran/43044] [-fwhole-file] ICE segfault for global_references_1.f90 (invalid code)

[pault at gcc dot gnu dot org]

------- Comment #3 from pault at gcc dot gnu dot org  2010-03-18 21:29 -------
Fixed on trunk.

Thanks for the report.

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED


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