This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/44912] [OOP] Segmentation fault on TBP
- From: "janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 30 Jul 2010 20:56:36 -0000
- Subject: [Bug fortran/44912] [OOP] Segmentation fault on TBP
- References: <bug-44912-19354@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #8 from janus at gcc dot gnu dot org 2010-07-30 20:56 -------
(In reply to comment #7)
> The test case still fails when adding an 'only' clause in the use statement:
>
> use polynomial, only: polynom
>
This case can be fixed by the following patchlet:
Index: module.c
===================================================================
--- module.c (revision 162723)
+++ module.c (working copy)
@@ -4370,6 +4370,11 @@
if (p == NULL && strcmp (name, module_name) == 0)
p = name;
+ /* Exception: Always import vtabs & vtypes. */
+ if (p == NULL && (strcmp (strndup (name,5), "vtab$") == 0
+ || strcmp (strndup (name,6), "vtype$") == 0))
+ p = name;
+
/* Skip symtree nodes not in an ONLY clause, unless there
is an existing symtree loaded from another USE statement. */
if (p == NULL)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44912