Summary: | [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP | ||
---|---|---|---|
Product: | gcc | Reporter: | janus |
Component: | fortran | Assignee: | janus |
Status: | RESOLVED FIXED | ||
Severity: | normal | CC: | gcc-bugs |
Priority: | P3 | Keywords: | rejects-valid |
Version: | 4.6.0 | ||
Target Milestone: | 4.6.0 | ||
Host: | Target: | ||
Build: | Known to work: | ||
Known to fail: | Last reconfirmed: | 2010-08-30 20:36:16 |
Description
janus
2010-08-30 20:30:02 UTC
Here' the fix: Index: resolve.c =================================================================== --- resolve.c (revision 163648) +++ resolve.c (working copy) @@ -1083,7 +1083,8 @@ comp->name); } - if (!comp->attr.pointer || cons->expr->expr_type == EXPR_NULL) + if (!comp->attr.pointer || comp->attr.proc_pointer + || cons->expr->expr_type == EXPR_NULL) continue; a = gfc_expr_attr (cons->expr); Subject: Bug 45456 Author: janus Date: Mon Aug 30 21:56:28 2010 New Revision: 163661 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=163661 Log: 2010-08-30 Janus Weil <janus@gcc.gnu.org> PR fortran/45456 * resolve.c (resolve_structure_cons): Handle pointer-valued PPCs. 2010-08-30 Janus Weil <janus@gcc.gnu.org> PR fortran/45456 * gfortran.dg/typebound_proc_18.f03: New. Added: trunk/gcc/testsuite/gfortran.dg/typebound_proc_18.f03 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/resolve.c trunk/gcc/testsuite/ChangeLog |