------- 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
