[flang-commits] [PATCH] D130388: [flang] Correct IsHostAssociated() to be true for BLOCK constructs

[Peter Klausler via Phabricator via flang-commits]

klausler created this revision.
klausler added a reviewer: PeteSteinfeld.
klausler added a project: Flang.
Herald added a subscriber: jdoerfert.
Herald added a reviewer: clementval.
Herald added a project: All.
klausler requested review of this revision.
Herald added a reviewer: jdoerfert.
Herald added a subscriber: sstefan1.

The predicate IsHostAssocited() was implemented in a way that would
return true only for cases of host association into a module or inner
subprogram.  Technically, the use of a name in a BLOCK construct
that is not declared therein is considered in the Fortran standard
to also be a form of host association, and this matters when doing
error checking on DATA statements.


https://reviews.llvm.org/D130388

Files:
  flang/include/flang/Semantics/scope.h
  flang/include/flang/Semantics/tools.h
  flang/lib/Semantics/data-to-inits.cpp
  flang/lib/Semantics/resolve-names.cpp
  flang/lib/Semantics/tools.cpp
  flang/test/Semantics/OpenACC/acc-symbols01.f90
  flang/test/Semantics/OpenMP/omp-do-schedule03.f90
  flang/test/Semantics/OpenMP/omp-do-schedule04.f90
  flang/test/Semantics/OpenMP/omp-do01-positivecase.f90
  flang/test/Semantics/OpenMP/omp-do04-positivecase.f90
  flang/test/Semantics/OpenMP/omp-do05-positivecase.f90
  flang/test/Semantics/OpenMP/omp-do06-positivecases.f90
  flang/test/Semantics/OpenMP/omp-do11.f90
  flang/test/Semantics/OpenMP/omp-do12.f90
  flang/test/Semantics/OpenMP/omp-do14.f90
  flang/test/Semantics/OpenMP/omp-do17.f90
  flang/test/Semantics/OpenMP/omp-reduction08.f90
  flang/test/Semantics/OpenMP/omp-reduction09.f90
  flang/test/Semantics/OpenMP/omp-symbol01.f90
  flang/test/Semantics/OpenMP/omp-symbol02.f90
  flang/test/Semantics/OpenMP/omp-symbol03.f90
  flang/test/Semantics/OpenMP/omp-symbol04.f90
  flang/test/Semantics/OpenMP/omp-symbol05.f90
  flang/test/Semantics/OpenMP/omp-symbol06.f90
  flang/test/Semantics/OpenMP/omp-symbol07.f90
  flang/test/Semantics/OpenMP/omp-symbol08.f90
  flang/test/Semantics/data16.f90
  flang/test/Semantics/symbol05.f90
  flang/test/Semantics/symbol09.f90
  flang/test/Semantics/symbol11.f90

-------------- next part --------------
A non-text attachment was scrubbed...
Name: D130388.446935.patch
Type: text/x-patch
Size: 51871 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-commits/attachments/20220722/08cf467d/attachment-0001.bin>