[gfortran] private objects in namelists

[Paul Brook]

On Saturday 15 January 2005 09:40, Paul Thomas wrote:
> This is a micro-buglet... I think.  Anyway, it's not important but I would
> like to improve my understanding of the front end or,indeed, fortran.
>
> The fortran standard says (C575) - "A namelist-group-object shall not have
> the private attribute if the namelist-group-name has the PUBLIC attribute."

The attached patch implements this check.

Paul

2005-01-22  Paul Brook  <paul@codesourcery.com>

 * gfortran.h (gfc_check_access): Add prototype.
 * match.c (gfc_match_namelist): Remove TODO.
 * module.c (check_access): Rename ...
 (gfc_check_access): ... to this.  Boolify.  Update callers.
 * resolve.c (resolve_symbol): Check for private objects in public
 namelists.
testsuite/
 * namelist_1.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch.priv_namelist
Type: text/x-diff
Size: 5488 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050122/99290c81/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: namelist_1.f90
Type: text/x-c++src
Size: 218 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050122/99290c81/attachment-0001.bin>