Summary: | [OOP][F2008] Type-bound procedure: bogus error from list after PROCEDURE | ||
---|---|---|---|
Product: | gcc | Reporter: | Dominique d'Humieres <dominiq> |
Component: | fortran | Assignee: | janus |
Status: | RESOLVED FIXED | ||
Severity: | normal | CC: | gcc-bugs, janus |
Priority: | P3 | ||
Version: | 4.6.0 | ||
Target Milestone: | 4.6.0 | ||
Host: | x86_64-apple-darwin10.3.0 | Target: | x86_64-apple-darwin10.3.0 |
Build: | x86_64-apple-darwin10.3.0 | Known to work: | |
Known to fail: | Last reconfirmed: | 2010-06-15 21:05:39 |
Description
Dominique d'Humieres
2010-06-15 19:53:29 UTC
Dominique, thanks for reporting this. I can confirm the error you're seeing and I already see what's wrong: In 'match_procedure_in_type' the handling of the gfc_typebound_proc structures is not correct (each procedure in the list gets the same structure). Will post a patch shortly. Subject: Bug 44549 Author: janus Date: Wed Jun 16 12:54:54 2010 New Revision: 160834 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=160834 Log: 2010-06-16 Janus Weil <janus@gcc.gnu.org> PR fortran/44549 * gfortran.h (gfc_get_typebound_proc): Modified Prototype. * decl.c (match_procedure_in_type): Give a unique gfc_typebound_proc structure to each procedure in a procedure list. * module.c (mio_typebound_proc): Add NULL argument to 'gfc_get_typebound_proc'. * symbol.c (gfc_get_typebound_proc): Add a new argument, which is used to initialize the new structure. 2010-06-16 Janus Weil <janus@gcc.gnu.org> PR fortran/44549 * gfortran.dg/typebound_proc_16.f03: New. Added: trunk/gcc/testsuite/gfortran.dg/typebound_proc_16.f03 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/decl.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/module.c trunk/gcc/fortran/symbol.c trunk/gcc/testsuite/ChangeLog |