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 --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp
index 205c2f10237c41fa00ccc0be8b14d19605a57fb2..71e5cc2c9bdac8f02c697a043ee13d8122ad026a 100644 (file)
--- a/gcc/fortran/ChangeLog.omp
+++ b/gcc/fortran/ChangeLog.omp
@@ -1,3 +1,8 @@
+2022-03-08  Abid Qadeer  <abidh@codesourcery.com>
+
+       * parse.c (gfc_parse_file): Set OMP_REQUIRES_DYNAMIC_ALLOCATORS
+       bit in omp_requires_mask.
+
 2022-03-08  Abid Qadeer  <abidh@codesourcery.com>
 
        Backported from master:

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 9ee150b712d64d8d5f8613705ad8a64491462a36..f52a7c2103ce4800a6e936c211e4e89eb8a6035d 100644 (file)
--- 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;