[gfortran] Fix PR 16485: Private entities from different modules collide

[Tobias Schlüter]

Tobias Schlüter wrote:
> Index: parse.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/parse.c,v
> retrieving revision 1.18
> diff -u -p -r1.18 parse.c
> --- parse.c     30 Aug 2004 19:08:38 -0000      1.18
> +++ parse.c     2 Sep 2004 00:30:53 -0000
> @@ -2218,6 +2218,8 @@ parse_contained (int module)
>               by other module functions.  */
>            sym->attr.contained = 1;
>           sym->attr.referenced = 1;
> +         if (module && sym->attr.access == ACCESS_UNKNOWN)
> +           sym->attr.access = parent_ns->default_access;
> 
>           parse_progunit (ST_NONE);

Looking at this awake, I don't think this hunk is necessary any longer. I
don't have time to test this now, and I will be out of town till Monday 13th,
so can someone else please take care of this?

Thanks,
- Tobi