mirror of
https://github.com/intel/llvm.git
synced 2026-01-21 04:14:03 +08:00
[flang][NFC] Document extension: scalars are trivially contiguous
The Fortran 2018 standard defines the concept of simple contiguity in subclause 9.5.4 as a characteristic of arrays. So that scalars may also be used in contexts where simply contiguous arrays are allowed, f18 treats them as single-element arrays that are trivially contiguous. This patch documents this semantic extension and also adds comments to the predicate that implements the concept. Differential Revision: https://reviews.llvm.org/D111679
This commit is contained in:
@@ -175,6 +175,10 @@ end
|
||||
* OPEN(ACCESS='APPEND') is interpreted as OPEN(POSITION='APPEND')
|
||||
to ease porting from Sun Fortran.
|
||||
* Intrinsic subroutines EXIT([status]) and ABORT()
|
||||
* The definition of simple contiguity in 9.5.4 applies only to arrays;
|
||||
we also treat scalars as being trivially contiguous, so that they
|
||||
can be used in contexts like data targets in pointer assignments
|
||||
with bounds remapping.
|
||||
|
||||
### Extensions supported when enabled by options
|
||||
|
||||
|
||||
@@ -626,8 +626,12 @@ public:
|
||||
|
||||
Result operator()(const semantics::Symbol &symbol) const {
|
||||
const auto &ultimate{symbol.GetUltimate()};
|
||||
if (ultimate.attrs().test(semantics::Attr::CONTIGUOUS) ||
|
||||
ultimate.Rank() == 0) {
|
||||
if (ultimate.attrs().test(semantics::Attr::CONTIGUOUS)) {
|
||||
return true;
|
||||
} else if (ultimate.Rank() == 0) {
|
||||
// Extension: accept scalars as a degenerate case of
|
||||
// simple contiguity to allow their use in contexts like
|
||||
// data targets in pointer assignments with remapping.
|
||||
return true;
|
||||
} else if (semantics::IsPointer(ultimate)) {
|
||||
return false;
|
||||
|
||||
Reference in New Issue
Block a user