[Bug fortran/66549] [5 Regression] ICE on valid in OMP parallel region

[mikael at gcc dot gnu.org]

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

--- Comment #6 from Mikael Morin <mikael at gcc dot gnu.org> ---
Author: mikael
Date: Wed Jun 24 09:16:13 2015
New Revision: 224887

URL: https://gcc.gnu.org/viewcvs?rev=224887&root=gcc&view=rev
Log:
Fix openmp global state fortran regression

        PR fortran/66549
gcc/fortran/
        * resolve.c (resolve_global_procedure): Don't save and restore
        OpenMP state around the call to gfc_resolve.
        (gfc_resolve): Save OpenMP state on entry and restore it on return.
gcc/testsuite/
        * gfortran.dg/gomp/omp_parallel_1.f90: New file.


Added:
    branches/gcc-5-branch/gcc/testsuite/gfortran.dg/gomp/omp_parallel_1.f90
Modified:
    branches/gcc-5-branch/gcc/fortran/ChangeLog
    branches/gcc-5-branch/gcc/fortran/resolve.c
    branches/gcc-5-branch/gcc/testsuite/ChangeLog