[Bug fortran/90988] Wrong error message with variables named "PUBLIC*"

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90988

--- Comment #1 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Wed Jun 26 04:31:14 2019
New Revision: 272667

URL: https://gcc.gnu.org/viewcvs?rev=272667&root=gcc&view=rev
Log:
2019-06-24  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR Fortran/90988
        * decl.c (access_attr_decl): Use temporary variable to reduce
        unreadability of code.  Normalize jumping to return.
        (gfc_match_protected): Fix parsing error.  Add comments to 
        explain code.  Remove dead code.
        (gfc_match_private): Use temporary variable to reduce unreadability 
        of code. Fix parsing error.  Move code to test for blank PRIVATE.
        Remove dead code.
        (gfc_match_public): Move code to test for blank PUBLIC.  Fix
        parsing error.  Remove dead code.

2019-06-24  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR Fortran/90988
        * gfortran.dg/pr90988_1.f90: New test.
        * gfortran.dg/pr90988_2.f90: Ditto.
        * gfortran.dg/pr90988_3.f90: Ditto.

Added:
    trunk/gcc/testsuite/gfortran.dg/pr90988_1.f90
    trunk/gcc/testsuite/gfortran.dg/pr90988_2.f90
    trunk/gcc/testsuite/gfortran.dg/pr90988_3.f90
Modified:
    trunk/gcc/fortran/decl.c