------- Comment #15 from burnus at gcc dot gnu dot org 2010-05-25 19:55 -------
(In reply to comment #14)
> Created an attachment (id=20714)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=20714&action=view) [edit]
In module.c's import_iso_c_binding_module, one needs to replace:
local_name = gfc_get_string ("%s@", u->local_name);
by
local_name = (u->local_name[0] != '\0')
? gfc_get_string ("%s@", u->local_name) : NULL;
I now will try the other approach of using ns->derived_types to see whether the
code will be cleaner.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39427
