[Bug fortran/77374] [6/7 Regression] ICE in resolve_omp_atomic, at fortran/openmp.c:3949

[jakub at gcc dot gnu.org]

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

--- Comment #4 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Author: jakub
Date: Wed Aug 31 18:42:08 2016
New Revision: 239903

URL: https://gcc.gnu.org/viewcvs?rev=239903&root=gcc&view=rev
Log:
        PR fortran/77374
        * parse.c (parse_omp_oacc_atomic): Copy over cp->ext.omp_atomic
        to cp->block->ext.omp_atomic.
        * resolve.c (gfc_resolve_blocks): Assert block with one or two
        EXEC_ASSIGNs for EXEC_*_ATOMIC.
        * openmp.c (resolve_omp_atomic): Don't assert one or two
        EXEC_ASSIGNs, instead return quietly for EXEC_NOPs and otherwise
        error unexpected statements.

        * gfortran.dg/gomp/pr77374.f08: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/gomp/pr77374.f08
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/openmp.c
    trunk/gcc/fortran/parse.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog