From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1729) id D505C3850841; Wed, 29 Jun 2022 14:44:44 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org D505C3850841 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Kwok Yeung To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/omp/gcc-12] Set omp_requires_mask for dynamic_allocators. X-Act-Checkin: gcc X-Git-Author: Hafiz Abid Qadeer X-Git-Refname: refs/heads/devel/omp/gcc-12 X-Git-Oldrev: df47c25110474565f521508a1545232550052a75 X-Git-Newrev: 7eda84c4837b0e025e6f7b34c72ac0f72a74805a Message-Id: <20220629144444.D505C3850841@sourceware.org> Date: Wed, 29 Jun 2022 14:44:44 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 29 Jun 2022 14:44:44 -0000 https://gcc.gnu.org/g:7eda84c4837b0e025e6f7b34c72ac0f72a74805a commit 7eda84c4837b0e025e6f7b34c72ac0f72a74805a Author: Hafiz Abid Qadeer Date: Mon Feb 21 13:54:57 2022 +0000 Set omp_requires_mask for dynamic_allocators. This is backport of a patch posted in https://gcc.gnu.org/pipermail/gcc-patches/2022-February/590655.html This patch fixes an issue that although gfortran accepts 'requires dynamic_allocators', it does not set the omp_requires_mask accordingly. gcc/fortran/ChangeLog: * parse.cc (gfc_parse_file): Set OMP_REQUIRES_DYNAMIC_ALLOCATORS bit in omp_requires_mask. Diff: --- gcc/fortran/ChangeLog.omp | 5 +++++ gcc/fortran/parse.cc | 3 +++ 2 files changed, 8 insertions(+) diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp index bbe23e93e1d..a9815696d21 100644 --- a/gcc/fortran/ChangeLog.omp +++ b/gcc/fortran/ChangeLog.omp @@ -1,3 +1,8 @@ +2022-03-08 Abid Qadeer + + * parse.cc (gfc_parse_file): Set OMP_REQUIRES_DYNAMIC_ALLOCATORS + bit in omp_requires_mask. + 2022-03-01 Tobias Burnus * class.cc (finalization_scalarizer): Mark syms as artificial. diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc index 1d216247bc3..14c31d53b27 100644 --- a/gcc/fortran/parse.cc +++ b/gcc/fortran/parse.cc @@ -7022,6 +7022,9 @@ done: break; } + if (omp_requires & OMP_REQ_DYNAMIC_ALLOCATORS) + omp_requires_mask + = (enum omp_requires) (omp_requires_mask | OMP_REQUIRES_DYNAMIC_ALLOCATORS); /* Do the parse tree dump. */ gfc_current_ns = flag_dump_fortran_original ? gfc_global_ns_list : NULL;