[flang][OpenMP] Allow default(none) to access variables with PARAMETER attribute

This patch fixes flang-compiler#1351.
Concretely, data-sharing attributes on PARAMETER data used in a block
with DEFAULT(NONE) should be ignored.

Reviewed By: kiranchandramohan

Differential Revision: https://reviews.llvm.org/D129444

Author: NimishMishra

flang/lib/Semantics/resolve-directives.cpp

@@ -1475,7 +1475,7 @@ void OmpAttributeVisitor::Post(const parser::Name &name) {
   auto *symbol{name.symbol};
   if (symbol && !dirContext_.empty() && GetContext().withinConstruct) {
     if (!symbol->owner().IsDerivedType() && !symbol->has<ProcEntityDetails>() &&
-        !IsObjectWithDSA(*symbol)) {
+        !IsObjectWithDSA(*symbol) && !IsNamedConstant(*symbol)) {
       // TODO: create a separate function to go through the rules for
       //       predetermined, explicitly determined, and implicitly
       //       determined data-sharing attributes (2.15.1.1).

flang/test/Semantics/OpenMP/omp-resolve05.f90

@@ -5,15 +5,15 @@
 
 subroutine default_none()
   integer a(3)
-
+  integer, parameter :: D=10
   A = 1
   B = 2
   !$omp parallel default(none) private(c)
   !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-sharing attribute clause
   A(1:2) = 3
   !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-sharing attribute clause
   B = 4
-  C = 5
+  C = 5 + D
   !$omp end parallel
 end subroutine default_none