A module name outside a module ?

[Paul Thomas]

Toon,
> L.S.,
>
> Today gfortran fell for me over a hideously complex example - that 
> I'll nevertheless will reduce to a simple testcase, if someone directs 
> me to it - getting a Segmentation fault, unless I changed:
>
> $ svn diff
> Index: module.c
> ===================================================================
> --- module.c    (revision 131105)
> +++ module.c    (working copy)
> @@ -3732,6 +3732,7 @@
>               if (st && only_flag
>                      && !st->n.sym->attr.use_only
>                      && !st->n.sym->attr.use_rename
> +                     && st->n.sym->module
>                      && strcmp (st->n.sym->module, module_name) == 0)
>                 st->name = gfc_get_string ("hidden.%s", name);
>
> I.e., a module name without an accompanying module (brrr!).
>
> Does this ring a bell with someone ?
>
This is mine.  However, I wonder how this can come to pass?  Module 
reading should be the first thing that happens in a programme unit; 
therefore the symtree should only be populated with symbols possessing a 
module name...... surely?

I will add your correction next time I do a commit (tomorrow morning, I 
hope) but I am worried that this is symptomatic of another bug.  Could 
you reduce your horribly complex thing, please?

Cheers

Paul