Fix openmp global state fortran regression
authorMikael Morin <mikael@gcc.gnu.org>
Fri, 19 Jun 2015 12:50:00 +0000 (12:50 +0000)
committerMikael Morin <mikael@gcc.gnu.org>
Fri, 19 Jun 2015 12:50:00 +0000 (12:50 +0000)
commitf0e99403aff4b146aea1771a0f5ae41de7092afc
treec2b9734d7e03d872604656f71cb305cb1698f759
parent3fc4f5cd9345bf1fcf348fa46afccde67dbd398d
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.

From-SVN: r224648
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/gomp/omp_parallel_1.f90 [new file with mode: 0644]