[Bug fortran/66549] [5/6 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 #5 from Mikael Morin <mikael at gcc dot gnu.org> ---
Author: mikael
Date: Fri Jun 19 12:50:00 2015
New Revision: 224648

URL: https://gcc.gnu.org/viewcvs?rev=224648&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:
    trunk/gcc/testsuite/gfortran.dg/gomp/omp_parallel_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog