http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55636
--- Comment #4 from Jakub Jelinek <jakub at gcc dot gnu.org> 2012-12-10
09:39:31 UTC ---
It could use something similar to what tree-emutls.c uses:
+#if !defined (NO_DOT_IN_LABEL)
+# define GFC_STRING_LENGTH_SEPARATOR "."
+#elif !defined (NO_DOLLAR_IN_LABEL)
+# define GFC_STRING_LENGTH_SEPARATOR "$"
+#else
+# define GFC_STRING_LENGTH_SEPARATOR "_"
+#endif
- if (sym->module)
+ if (sym->attr.save || sym->ns->proc_name->attr.flavor == FL_MODULE)
+ {
+ if (sym->module)
+ name = gfc_get_string ("_F" GFC_STRING_LENGTH_SEPARATOR
"%s_MOD_%s", sym->module, sym->name);
+ else
+ name = gfc_get_string ("_F" GFC_STRING_LENGTH_SEPARATOR "%s",
sym->name);
+ }
+ else if (sym->module)
