[Committed] PR fortran/90297 -- Don't issue EQUIVALENCE syntax error

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[Committed] PR fortran/90297 -- Don't issue EQUIVALENCE syntax error

Steve Kargl
I've committed the attached patch.  After matching
EQUIVALNCE, the patch goobles any possible whitespace
and then checks that the next character is '('.  If
it isn't '(', return MATCH_NO to give other matches a
chance to run.

2019-08-02  Steven G. Kargl  <[hidden email]>

        PR fortran/90297
        * match.c (gfc_match_equivalence): Check that EQUIVALENCE is followed
        by '('.

2019-08-02  Steven G. Kargl  <[hidden email]>

        PR fortran/90297
        * gfortran.dg/equiv_10.f90: New test.

--
Steve

pr90297.diff (1K) Download Attachment