[Bug middle-end/44584] New: [4.6 Regression] gfortran.dg/typebound_proc_15.f03

[Bug middle-end/44584] New: [4.6 Regression] gfortran.dg/typebound_proc_15.f03

[hjl dot tools at gmail dot com]

On Linux/ia64, revision 160858 gave

FAIL: gfortran.dg/typebound_proc_15.f03  -O  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_15.f03  -O  (test for excess errors)

Revision 160826 is OK.


-- 
           Summary: [4.6 Regression] gfortran.dg/typebound_proc_15.f03
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: middle-end
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: hjl dot tools at gmail dot com


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2010-06-18 21:18 -------
Works for me on x86_64-unknown-linux-gnu at r160947.

Can you show the backtrace for the ICE?


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu dot org


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2010-06-18 21:24 -------
(In reply to comment #0)
> On Linux/ia64, revision 160858 gave
> ...
> Revision 160826 is OK.

The only Fortran-related change in this range is

r160834 | janus | 2010-06-16 14:54:54 +0200 (Wed, 16 Jun 2010) | 17 lines

This was the fix for PR44549, which was a follow-up to PR40117 (where
typebound_proc_15.f03 came from).

Can you confirm that this is the culprit?


-- 


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #3 from hjl dot tools at gmail dot com  2010-06-18 22:11 -------
I got

Starting program: /export/gnu/import/svn/gcc-test/bld/gcc/f951
/export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
-quiet -dumpbase typebound_proc_15.f03 -auxbase typebound_proc_15 -std=f2003
-version -o typebound_proc_15.s -fintrinsic-modules-path finclude
GNU Fortran (GCC) version 4.6.0 20100618 (experimental) [trunk revision 161008]
(ia64-unknown-linux-gnu)
        compiled by GNU C version 4.6.0 20100618 (experimental) [trunk revision
161008], GMP version 4.3.2, MPFR version 2.4.2-p3, MPC version 0.8.1
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran (GCC) version 4.6.0 20100618 (experimental) [trunk revision 161008]
(ia64-unknown-linux-gnu)
        compiled by GNU C version 4.6.0 20100618 (experimental) [trunk revision
161008], GMP version 4.3.2, MPFR version 2.4.2-p3, MPC version 0.8.1
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
/export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03:15.23:

  procedure :: bar, baz  { dg-error "PROCEDURE list" }
                       1
Error: Fortran 2008: PROCEDURE list at (1)

Program received signal SIGSEGV, Segmentation fault.
0x40000000001d4681 in resolve_fl_derived (sym=0x60000000002cf0d0)
    at ../../src-trunk/gcc/fortran/resolve.c:959
959       if (!a.implicit_type && sym->ts.type != BT_UNKNOWN)
(gdb) bt
#0  0x40000000001d4681 in resolve_fl_derived (sym=0x60000000002cf0d0)
    at ../../src-trunk/gcc/fortran/resolve.c:959
#1  0x40000000001ce4b0 in resolve_symbol (sym=0x60000000002cf0d0)
    at ../../src-trunk/gcc/fortran/resolve.c:959
#2  0x40000000001fec40 in traverse_ns (st=<value optimized out>, 
    func=<value optimized out>) at ../../src-trunk/gcc/fortran/symbol.c:1885
#3  0x40000000001c9430 in resolve_types (ns=0x60000000002cb520)
    at ../../src-trunk/gcc/fortran/resolve.c:959
#4  0x40000000001b92c0 in gfc_resolve (ns=0x60000000002cb520)
    at ../../src-trunk/gcc/fortran/resolve.c:959
#5  0x400000000019d3f0 in gfc_parse_file ()
    at ../../src-trunk/gcc/fortran/parse.c:4223
#6  0x4000000000224ee0 in gfc_be_parse_file (set_yydebug=0)
    at ./gtype-fortran.h:278
#7  0x4000000000966090 in toplev_main (argc=13, argv=0x60000fffff8ab688)
    at ../../src-trunk/gcc/toplev.c:1576
#8  0x40000000002e7370 in main (argc=13, argv=0x60000fffff8ab688)
    at ../../src-trunk/gcc/main.c:36
(gdb) 


-- 


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #4 from hjl dot tools at gmail dot com  2010-06-18 22:14 -------
On x86, I got

 valgrind --tool=memcheck  ../f951
/export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
-quiet -dumpbase typebound_proc_15.f03 -mtune=generic -march=pentium4 -auxbase
typebound_proc_15 -std=f2003 -version -o typebound_proc_15.s
-fintrinsic-modules-path finclude
==22636== Memcheck, a memory error detector
==22636== Copyright (C) 2002-2009, and GNU GPL'd, by Julian Seward et al.
==22636== Using Valgrind-3.5.0 and LibVEX; rerun with -h for copyright info
==22636== Command: ../f951
/export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
-quiet -dumpbase typebound_proc_15.f03 -mtune=generic -march=pentium4 -auxbase
typebound_proc_15 -std=f2003 -version -o typebound_proc_15.s
-fintrinsic-modules-path finclude
==22636== 
GNU Fortran (GCC) version 4.6.0 20100618 (experimental) [trunk revision 161010]
(i686-pc-linux-gnu)
        compiled by GNU C version 4.6.0 20100618 (experimental) [trunk revision
161010], GMP version 4.3.2, MPFR version 2.4.2-p3, MPC version 0.8.1
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran (GCC) version 4.6.0 20100618 (experimental) [trunk revision 161010]
(i686-pc-linux-gnu)
        compiled by GNU C version 4.6.0 20100618 (experimental) [trunk revision
161010], GMP version 4.3.2, MPFR version 2.4.2-p3, MPC version 0.8.1
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
/export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03:15.23:

  procedure :: bar, baz  { dg-error "PROCEDURE list" }
                       1
Error: Fortran 2008: PROCEDURE list at (1)
==22636== Invalid read of size 4
==22636==    at 0x80DCE5B: add_proc_component.isra.0 (class.c:223)
==22636==    by 0x80DD18F: add_procs_to_declared_vtab1 (class.c:251)
==22636==    by 0x80DDDFD: add_procs_to_declared_vtab (class.c:386)
==22636==    by 0x80DDC28: gfc_find_derived_vtab (class.c:626)
==22636==    by 0x4147067: ???
==22636==  Address 0x4143d7c is 20 bytes inside a block of size 24 free'd
==22636==    at 0x40057F6: free (vg_replace_malloc.c:325)
==22636==    by 0x815AD42: gfc_delete_symtree (symbol.c:2376)
==22636==    by 0x815BCCC: gfc_undo_symbols (symbol.c:2843)
==22636==    by 0x812AE6F: reject_statement (parse.c:1647)
==22636==    by 0x812AED0: match_word (parse.c:70)
==22636==    by 0x812BC3E: decode_statement (parse.c:423)
==22636==    by 0x812CA7C: next_statement (parse.c:723)
==22636==    by 0x812E17C: parse_spec (parse.c:1870)
==22636==    by 0x8130969: gfc_parse_file (parse.c:4114)
==22636== 
==22636== Invalid read of size 1
==22636==    at 0x8145CEA: resolve_fl_derived (resolve.c:10789)
==22636==    by 0x81440CE: resolve_symbol (resolve.c:11403)
==22636==  Address 0x4143c38 is 48 bytes inside a block of size 300 free'd
==22636==    at 0x40057F6: free (vg_replace_malloc.c:325)
==22636==    by 0x815BE37: gfc_undo_symbols (symbol.c:2849)
==22636==    by 0x812AE6F: reject_statement (parse.c:1647)
==22636==    by 0x812AED0: match_word (parse.c:70)
==22636==    by 0x812BC3E: decode_statement (parse.c:423)
==22636==    by 0x812CA7C: next_statement (parse.c:723)
==22636==    by 0x812E17C: parse_spec (parse.c:1870)
==22636==    by 0x8130969: gfc_parse_file (parse.c:4114)
==22636== 
==22636== Invalid read of size 1
==22636==    at 0x8145CFA: resolve_fl_derived (resolve.c:10795)
==22636==    by 0x81440CE: resolve_symbol (resolve.c:11403)
==22636==  Address 0x4143c3d is 53 bytes inside a block of size 300 free'd
==22636==    at 0x40057F6: free (vg_replace_malloc.c:325)
==22636==    by 0x815BE37: gfc_undo_symbols (symbol.c:2849)
==22636==    by 0x812AE6F: reject_statement (parse.c:1647)
==22636==    by 0x812AED0: match_word (parse.c:70)
==22636==    by 0x812BC3E: decode_statement (parse.c:423)
==22636==    by 0x812CA7C: next_statement (parse.c:723)
==22636==    by 0x812E17C: parse_spec (parse.c:1870)
==22636==    by 0x8130969: gfc_parse_file (parse.c:4114)
==22636== 
==22636== Invalid read of size 1
==22636==    at 0x81461E0: resolve_fl_derived (resolve.c:10796)
==22636==    by 0x81440CE: resolve_symbol (resolve.c:11403)
==22636==  Address 0x4143c34 is 44 bytes inside a block of size 300 free'd
==22636==    at 0x40057F6: free (vg_replace_malloc.c:325)
==22636==    by 0x815BE37: gfc_undo_symbols (symbol.c:2849)
==22636==    by 0x812AE6F: reject_statement (parse.c:1647)
==22636==    by 0x812AED0: match_word (parse.c:70)
==22636==    by 0x812BC3E: decode_statement (parse.c:423)
==22636==    by 0x812CA7C: next_statement (parse.c:723)
==22636==    by 0x812E17C: parse_spec (parse.c:1870)
==22636==    by 0x8130969: gfc_parse_file (parse.c:4114)
==22636== 
==22636== Invalid read of size 4
==22636==    at 0x81461EA: resolve_fl_derived (resolve.c:10853)
==22636==    by 0x81440CE: resolve_symbol (resolve.c:11403)
==22636==  Address 0x4143c08 is 0 bytes inside a block of size 300 free'd
==22636==    at 0x40057F6: free (vg_replace_malloc.c:325)
==22636==    by 0x815BE37: gfc_undo_symbols (symbol.c:2849)
==22636==    by 0x812AE6F: reject_statement (parse.c:1647)
==22636==    by 0x812AED0: match_word (parse.c:70)
==22636==    by 0x812BC3E: decode_statement (parse.c:423)
==22636==    by 0x812CA7C: next_statement (parse.c:723)
==22636==    by 0x812E17C: parse_spec (parse.c:1870)
==22636==    by 0x8130969: gfc_parse_file (parse.c:4114)
==22636== 
==22636== 
==22636== HEAP SUMMARY:
==22636==     in use at exit: 223,317 bytes in 1,049 blocks
==22636==   total heap usage: 2,220 allocs, 1,171 frees, 503,832 bytes
allocated
==22636== 
==22636== LEAK SUMMARY:
==22636==    definitely lost: 2,064 bytes in 6 blocks
==22636==    indirectly lost: 4,280 bytes in 43 blocks
==22636==      possibly lost: 16,080 bytes in 4 blocks
==22636==    still reachable: 200,893 bytes in 996 blocks
==22636==         suppressed: 0 bytes in 0 blocks
==22636== Rerun with --leak-check=full to see details of leaked memory
==22636== 
==22636== For counts of detected and suppressed errors, rerun with: -v
==22636== ERROR SUMMARY: 5 errors from 5 contexts (suppressed: 30 from 8)


-- 


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

------- Comment #5 from janus at gcc dot gnu dot org  2010-06-18 23:54 -------
(In reply to comment #3)
> /export/gnu/import/svn/gcc-test/src-trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03:15.23:
> 
>   procedure :: bar, baz  { dg-error "PROCEDURE list" }
>                        1
> Error: Fortran 2008: PROCEDURE list at (1)
> 
> Program received signal SIGSEGV, Segmentation fault.
> 0x40000000001d4681 in resolve_fl_derived (sym=0x60000000002cf0d0)
>     at ../../src-trunk/gcc/fortran/resolve.c:959
> 959       if (!a.implicit_type && sym->ts.type != BT_UNKNOWN)
> (gdb) bt
> #0  0x40000000001d4681 in resolve_fl_derived (sym=0x60000000002cf0d0)
>     at ../../src-trunk/gcc/fortran/resolve.c:959


Ok, actually I also get an ICE. But for some reason only when compiling by
hand, not in the testsuite.

It is fixed by this patch:


Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c       (revision 160948)
+++ gcc/fortran/resolve.c       (working copy)
@@ -10850,7 +10850,7 @@
                  c->ts.u.cl = cl;
                }
            }
-         else if (c->ts.interface->name[0] != '\0' && !sym->attr.vtype)
+         else if (!sym->attr.vtype && c->ts.interface->name[0] != '\0')
            {
              gfc_error ("Interface '%s' of procedure pointer component "
                         "'%s' at %L must be explicit", c->ts.interface->name,


Does this fix the issue for you?


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-06-18 23:54:28
               date|                            |


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

[Bug fortran/44584] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #6 from hjl dot tools at gmail dot com  2010-06-19 00:47 -------
(In reply to comment #5)
> Ok, actually I also get an ICE. But for some reason only when compiling by
> hand, not in the testsuite.
> 
> It is fixed by this patch:
> 
> 
> Index: gcc/fortran/resolve.c
> ===================================================================
> --- gcc/fortran/resolve.c       (revision 160948)
> +++ gcc/fortran/resolve.c       (working copy)
> @@ -10850,7 +10850,7 @@
>                   c->ts.u.cl = cl;
>                 }
>             }
> -         else if (c->ts.interface->name[0] != '\0' && !sym->attr.vtype)
> +         else if (!sym->attr.vtype && c->ts.interface->name[0] != '\0')
>             {
>               gfc_error ("Interface '%s' of procedure pointer component "
>                          "'%s' at %L must be explicit", c->ts.interface->name,
> 
> 
> Does this fix the issue for you?
> 

It will be while before I can check it on ia64. However if your patch fixes
valgrind issue on x86, it won't hurt to check it in.  Thanks.


-- 


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2010-06-18 23:54:28         |2010-06-19 21:20:33
               date|                            |
            Summary|gfortran.dg/typebound_proc_1|[4.6 Regression]
                   |5.f03 failed                |gfortran.dg/typebound_proc_1
                   |                            |5.f03 failed


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

------- Comment #7 from janus at gcc dot gnu dot org  2010-06-20 00:06 -------
Subject: Bug 44584

Author: janus
Date: Sun Jun 20 00:05:35 2010
New Revision: 161041

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=161041
Log:
2010-06-19  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/44584
        * resolve.c (resolve_fl_derived): Reverse ordering of conditions
        to avoid ICE.


2010-06-19  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/44584
        * gfortran.dg/typebound_proc_15.f03: Modified.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/typebound_proc_15.f03


-- 


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[janus at gcc dot gnu dot org]

------- Comment #8 from janus at gcc dot gnu dot org  2010-06-20 00:12 -------
(In reply to comment #6)
> It will be while before I can check it on ia64. However if your patch fixes
> valgrind issue on x86, it won't hurt to check it in.  Thanks.

Ok, the patch has landed on trunk. Please let me know once you have verified
that the patch also fixes the problems on ia64 (so that we can close this PR).


-- 


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #9 from hjl dot tools at gmail dot com  2010-06-21 14:32 -------
Test starts to pass between revision 161046 and revision
161055 on Linux/ia64. Does anyone know which checkin fixes
this? This that a real fix?


-- 


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #10 from hjl dot tools at gmail dot com  2010-06-21 20:57 -------
Revision 161041 deosn't fix it on Linux/x86-64. I got

valgrind --tool=memcheck  ./f951
/export/gnu/import/rrs/161041/src/gcc/testsuite/gfortran.dg/typebound_proc_15.f03
-quiet -dumpbase typebound_proc_15.f03 -mtune=generic -march=pentium4 -auxbase
typebound_proc_15 -std=f2003 -version -o typebound_proc_15.s
-fintrinsic-modules-path finclude -m32

Error: Fortran 2008: PROCEDURE list at (1)
==7012== Invalid read of size 8
==7012==    at 0x4A5935: add_proc_component (class.c:223)
==7012==    by 0x4A5A97: add_proc_comps (class.c:251)
==7012==    by 0x4A5CFD: add_procs_to_declared_vtab1 (class.c:296)
==7012==    by 0x4A615C: add_procs_to_declared_vtab (class.c:386)
==7012==    by 0x4A6BAE: gfc_find_derived_vtab (class.c:626)
==7012==    by 0x4A5711: gfc_build_class_symbol (class.c:177)
==7012==    by 0x4ACB46: build_sym (decl.c:1163)
==7012==    by 0x4ADF75: variable_decl (decl.c:1756)
==7012==    by 0x4B106E: gfc_match_data_decl (decl.c:3857)
==7012==    by 0x504FD3: match_word (parse.c:65)
==7012==    by 0x5057F1: decode_statement (parse.c:284)
==7012==    by 0x506F99: next_free (parse.c:723)
==7012==  Address 0x7367d78 is 40 bytes inside a block of size 48 free'd
==7012==    at 0x4C23D72: free (vg_replace_malloc.c:325)
==7012==    by 0x4F7039: gfc_free (misc.c:51)
==7012==    by 0x542D64: gfc_delete_symtree (symbol.c:2376)
==7012==    by 0x54396E: gfc_undo_symbols (symbol.c:2843)
==7012==    by 0x507F35: reject_statement (parse.c:1647)
==7012==    by 0x504FFA: match_word (parse.c:70)
==7012==    by 0x506321: decode_statement (parse.c:423)
==7012==    by 0x506F99: next_free (parse.c:723)
==7012==    by 0x507369: next_statement (parse.c:908)
==7012==    by 0x508311: parse_derived_contains (parse.c:1870)
==7012==    by 0x50876C: parse_derived (parse.c:2075)
==7012==    by 0x509329: parse_spec (parse.c:2531)
==7012== 
==7012== Invalid read of size 1
==7012==    at 0x527852: resolve_fl_derived (resolve.c:10831)
==7012==    by 0x529649: resolve_symbol (resolve.c:11445)
==7012==    by 0x5445E5: traverse_ns (symbol.c:3313)
==7012==    by 0x544614: traverse_ns (symbol.c:3316)
==7012==    by 0x544653: gfc_traverse_ns (symbol.c:3329)
==7012==    by 0x52C83F: resolve_types (resolve.c:12909)
==7012==    by 0x52CC3E: gfc_resolve (resolve.c:13005)
==7012==    by 0x50BBF1: gfc_parse_file (parse.c:4371)
==7012==    by 0x54C51E: gfc_be_parse_file (f95-lang.c:236)
==7012==    by 0xA1E78A: compile_file (toplev.c:1012)
==7012==    by 0xA20A39: do_compile (toplev.c:2377)
==7012==    by 0xA20B0F: toplev_main (toplev.c:2419)
==7012==  Address 0x7367bac is 76 bytes inside a block of size 424 free'd
==7012==    at 0x4C23D72: free (vg_replace_malloc.c:325)
==7012==    by 0x4F7039: gfc_free (misc.c:51)
==7012==    by 0x542FE0: gfc_free_symbol (symbol.c:2482)
==7012==    by 0x5439C0: gfc_undo_symbols (symbol.c:2849)
==7012==    by 0x507F35: reject_statement (parse.c:1647)
==7012==    by 0x504FFA: match_word (parse.c:70)
==7012==    by 0x506321: decode_statement (parse.c:423)
==7012==    by 0x506F99: next_free (parse.c:723)
==7012==    by 0x507369: next_statement (parse.c:908)
==7012==    by 0x508311: parse_derived_contains (parse.c:1870)
==7012==    by 0x50876C: parse_derived (parse.c:2075)
==7012==    by 0x509329: parse_spec (parse.c:2531)
==7012== 
==7012== Invalid read of size 1
==7012==    at 0x5278A0: resolve_fl_derived (resolve.c:10838)
==7012==    by 0x529649: resolve_symbol (resolve.c:11445)
==7012==    by 0x5445E5: traverse_ns (symbol.c:3313)
==7012==    by 0x544614: traverse_ns (symbol.c:3316)
==7012==    by 0x544653: gfc_traverse_ns (symbol.c:3329)
==7012==    by 0x52C83F: resolve_types (resolve.c:12909)
==7012==    by 0x52CC3E: gfc_resolve (resolve.c:13005)
==7012==    by 0x50BBF1: gfc_parse_file (parse.c:4371)
==7012==    by 0x54C51E: gfc_be_parse_file (f95-lang.c:236)
==7012==    by 0xA1E78A: compile_file (toplev.c:1012)
==7012==    by 0xA20A39: do_compile (toplev.c:2377)
==7012==    by 0xA20B0F: toplev_main (toplev.c:2419)
==7012==  Address 0x7367bb1 is 81 bytes inside a block of size 424 free'd
==7012==    at 0x4C23D72: free (vg_replace_malloc.c:325)
==7012==    by 0x4F7039: gfc_free (misc.c:51)
==7012==    by 0x542FE0: gfc_free_symbol (symbol.c:2482)
==7012==    by 0x5439C0: gfc_undo_symbols (symbol.c:2849)
==7012==    by 0x507F35: reject_statement (parse.c:1647)
==7012==    by 0x504FFA: match_word (parse.c:70)
==7012==    by 0x506321: decode_statement (parse.c:423)
==7012==    by 0x506F99: next_free (parse.c:723)
==7012==    by 0x507369: next_statement (parse.c:908)
==7012==    by 0x508311: parse_derived_contains (parse.c:1870)
==7012==    by 0x50876C: parse_derived (parse.c:2075)
==7012==    by 0x509329: parse_spec (parse.c:2531)
==7012== 
==7012== Invalid read of size 1
==7012==    at 0x5278B3: resolve_fl_derived (resolve.c:10838)
==7012==    by 0x529649: resolve_symbol (resolve.c:11445)
==7012==    by 0x5445E5: traverse_ns (symbol.c:3313)
==7012==    by 0x544614: traverse_ns (symbol.c:3316)
==7012==    by 0x544653: gfc_traverse_ns (symbol.c:3329)
==7012==    by 0x52C83F: resolve_types (resolve.c:12909)
==7012==    by 0x52CC3E: gfc_resolve (resolve.c:13005)
==7012==    by 0x50BBF1: gfc_parse_file (parse.c:4371)
==7012==    by 0x54C51E: gfc_be_parse_file (f95-lang.c:236)
==7012==    by 0xA1E78A: compile_file (toplev.c:1012)
==7012==    by 0xA20A39: do_compile (toplev.c:2377)
==7012==    by 0xA20B0F: toplev_main (toplev.c:2419)
==7012==  Address 0x7367ba8 is 72 bytes inside a block of size 424 free'd
==7012==    at 0x4C23D72: free (vg_replace_malloc.c:325)
==7012==    by 0x4F7039: gfc_free (misc.c:51)
==7012==    by 0x542FE0: gfc_free_symbol (symbol.c:2482)
==7012==    by 0x5439C0: gfc_undo_symbols (symbol.c:2849)
==7012==    by 0x507F35: reject_statement (parse.c:1647)
==7012==    by 0x504FFA: match_word (parse.c:70)
==7012==    by 0x506321: decode_statement (parse.c:423)
==7012==    by 0x506F99: next_free (parse.c:723)
==7012==    by 0x507369: next_statement (parse.c:908)
==7012==    by 0x508311: parse_derived_contains (parse.c:1870)
==7012==    by 0x50876C: parse_derived (parse.c:2075)
==7012==    by 0x509329: parse_spec (parse.c:2531)
==7012== 
==7012== 
==7012== HEAP SUMMARY:
==7012==     in use at exit: 374,389 bytes in 1,069 blocks
==7012==   total heap usage: 2,389 allocs, 1,320 frees, 859,064 bytes allocated
==7012== 
==7012== LEAK SUMMARY:
==7012==    definitely lost: 5,640 bytes in 7 blocks
==7012==    indirectly lost: 11,704 bytes in 56 blocks
==7012==      possibly lost: 16,128 bytes in 4 blocks
==7012==    still reachable: 340,917 bytes in 1,002 blocks
==7012==         suppressed: 0 bytes in 0 blocks
==7012== Rerun with --leak-check=full to see details of leaked memory
==7012== 
==7012== For counts of detected and suppressed errors, rerun with: -v
==7012== ERROR SUMMARY: 4 errors from 4 contexts (suppressed: 6 from 6)


-- 


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

[Bug fortran/44584] [4.6 Regression] gfortran.dg/typebound_proc_15.f03 failed

[hjl dot tools at gmail dot com]

------- Comment #11 from hjl dot tools at gmail dot com  2010-06-21 21:00 -------
Revision 161061 has the same bug.


-- 


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[rguenth at gcc dot gnu dot org]

-- 

rguenth at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.6.0


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[janus at gcc dot gnu dot org]

------- Comment #12 from janus at gcc dot gnu dot org  2010-07-30 09:38 -------
*** Bug 45140 has been marked as a duplicate of this bug. ***


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |ubizjak at gmail dot com


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[mikael at gcc dot gnu dot org]

------- Comment #13 from mikael at gcc dot gnu dot org  2010-07-30 10:23 -------
I have a patch.


-- 

mikael at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|janus at gcc dot gnu dot org|mikael at gcc dot gnu dot
                   |                            |org


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[mikael at gcc dot gnu dot org]

------- Comment #14 from mikael at gcc dot gnu dot org  2010-07-30 11:00 -------
(In reply to comment #13)
> I have a patch.
> 
No, I don't.


-- 

mikael at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|mikael at gcc dot gnu dot   |janus at gcc dot gnu dot org
                   |org                         |


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[mikael at gcc dot gnu dot org]

------- Comment #15 from mikael at gcc dot gnu dot org  2010-07-30 12:05 -------
The symtree allocated at decl.c:7811

      /* Insert it and set attributes.  */

      if (!stree)
        {
          stree = gfc_new_symtree (&ns->tb_sym_root, name);
          gcc_assert (stree);
        }

has to be freed in gfc_undo_symbols, together with its corresponding typebound
procedure at symbol.c:~2960


  for (tbp = tentative_tbp_list; tbp; tbp = tbq)
    {
      tbq = tbp->next;
      /* Procedure is already marked `error' by default.  */
      gfc_free (tbp);
    }


-- 


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[janus at gcc dot gnu dot org]

------- Comment #16 from janus at gcc dot gnu dot org  2010-08-03 11:09 -------
Subject: Bug 44584

Author: janus
Date: Tue Aug  3 11:08:50 2010
New Revision: 162840

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=162840
Log:
2010-08-03  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/44584
        PR fortran/45161
        * class.c (add_procs_to_declared_vtab1): Don't add erroneous
procedures.
        * resolve.c (resolve_tb_generic_targets): Check for errors.


2010-08-03  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/44584
        PR fortran/45161
        * gfortran.dg/typebound_call_9.f03: Modified.
        * gfortran.dg/typebound_generic_1.f03: Modified.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/class.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/typebound_call_9.f03
    trunk/gcc/testsuite/gfortran.dg/typebound_generic_1.f03


-- 


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[janus at gcc dot gnu dot org]

------- Comment #17 from janus at gcc dot gnu dot org  2010-08-03 11:14 -------
This PR should finally be fixed with r162840.

H.J., can you confirm that the ICE is gone on ia64?


-- 


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[hjl dot tools at gmail dot com]

------- Comment #18 from hjl dot tools at gmail dot com  2010-08-04 00:28 -------
Fixed.


-- 

hjl dot tools at gmail dot com changed:

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


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

[Bug fortran/44584] [4.6 Regression] Invalid memory access with gfortran.dg/typebound_proc_15.f03

[ubizjak at gmail dot com]

------- Comment #19 from ubizjak at gmail dot com  2010-08-04 07:10 -------
Also fixes ICE on alpha.


-- 


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