[Bug fortran/79154] omp declare simd in pure function?

[jakub at gcc dot gnu.org]

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

--- Comment #4 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Author: jakub
Date: Sun Jan 22 19:36:57 2017
New Revision: 244763

URL: https://gcc.gnu.org/viewcvs?rev=244763&root=gcc&view=rev
Log:
        PR fortran/79154
        * parse.c (matchs, matcho, matchds, matchdo): Replace return st;
        with { ret = st; goto finish; }.
        (decode_omp_directive): Allow declare simd, declare target and
        simd directives in PURE/ELEMENTAL procedures.  Only call
        gfc_unset_implicit_pure on successful match of other procedures.

        * gfortran.dg/gomp/pr79154-1.f90: New test.
        * gfortran.dg/gomp/pr79154-2.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/gomp/pr79154-1.f90
    trunk/gcc/testsuite/gfortran.dg/gomp/pr79154-2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/parse.c
    trunk/gcc/testsuite/ChangeLog