From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1820) id 063513858031; Wed, 9 Mar 2022 10:02:23 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 063513858031 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Hafiz Abid Qadeer To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/omp/gcc-11] 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-11 X-Git-Oldrev: 68115abc85880f7202b5e3952e8c407a0f4e0f56 X-Git-Newrev: 822a982d48b5e07b4c09dc222a521c9b63a7259c Message-Id: <20220309100223.063513858031@sourceware.org> Date: Wed, 9 Mar 2022 10:02:23 +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, 09 Mar 2022 10:02:23 -0000 https://gcc.gnu.org/g:822a982d48b5e07b4c09dc222a521c9b63a7259c commit 822a982d48b5e07b4c09dc222a521c9b63a7259c 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.c (gfc_parse_file): Set OMP_REQUIRES_DYNAMIC_ALLOCATORS bit in omp_requires_mask. Diff: --- gcc/fortran/ChangeLog.omp | 5 +++++ gcc/fortran/parse.c | 3 +++ 2 files changed, 8 insertions(+) diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp index 205c2f10237..71e5cc2c9bd 100644 --- a/gcc/fortran/ChangeLog.omp +++ b/gcc/fortran/ChangeLog.omp @@ -1,3 +1,8 @@ +2022-03-08 Abid Qadeer + + * parse.c (gfc_parse_file): Set OMP_REQUIRES_DYNAMIC_ALLOCATORS + bit in omp_requires_mask. + 2022-03-08 Abid Qadeer Backported from master: diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 9ee150b712d..f52a7c2103c 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -7001,6 +7001,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;