[Bug fortran/45456] [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=45456

janus at gcc dot gnu.org changed:

   What|Removed |Added

   Target Milestone|--- |4.6.0

[Bug fortran/45456] [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP

[janus at gcc dot gnu dot org]

--- Comment #1 from janus at gcc dot gnu dot org  2010-08-30 20:36 ---
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);


-- 

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|UNCONFIRMED |ASSIGNED
 Ever Confirmed|0   |1
   Last reconfirmed|-00-00 00:00:00 |2010-08-30 20:36:16
   date||


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

[Bug fortran/45456] [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP

[janus at gcc dot gnu dot org]

--- Comment #2 from janus at gcc dot gnu dot org  2010-08-30 21:56 ---
Subject: Bug 45456

Author: janus
Date: Mon Aug 30 21:56:28 2010
New Revision: 163661

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=163661
Log:
2010-08-30  Janus Weil  ja...@gcc.gnu.org

PR fortran/45456
* resolve.c (resolve_structure_cons): Handle pointer-valued PPCs.


2010-08-30  Janus Weil  ja...@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


-- 


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

[Bug fortran/45456] [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP

[janus at gcc dot gnu dot org]

--- Comment #3 from janus at gcc dot gnu dot org  2010-08-30 21:58 ---
Fixed with r163661. Closing.


-- 

janus at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|ASSIGNED|RESOLVED
 Resolution||FIXED


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