diff options
author | Peter Klausler <35819229+klausler@users.noreply.github.com> | 2023-09-13 15:55:40 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-09-13 15:55:40 -0700 |
commit | d34f5dd07a2197ec91ecc33307eed6435ceda73f (patch) | |
tree | 4bd92095ced6c7350438436b48dbedfd85da7955 /flang/lib/Evaluate/intrinsics.cpp | |
parent | 0f65df732ca2b124f473179eda801abf4496a350 (diff) | |
download | llvm-d34f5dd07a2197ec91ecc33307eed6435ceda73f.zip llvm-d34f5dd07a2197ec91ecc33307eed6435ceda73f.tar.gz llvm-d34f5dd07a2197ec91ecc33307eed6435ceda73f.tar.bz2 |
[flang] Accept ALLOCATED(ARRAY=assumedRank) (#66233)
The definitions of the ALLOCATED intrinsic in the intrinsics table did
not allow for an assumed-rank array.
Diffstat (limited to 'flang/lib/Evaluate/intrinsics.cpp')
-rw-r--r-- | flang/lib/Evaluate/intrinsics.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/lib/Evaluate/intrinsics.cpp b/flang/lib/Evaluate/intrinsics.cpp index 030e5b2..7213482 100644 --- a/flang/lib/Evaluate/intrinsics.cpp +++ b/flang/lib/Evaluate/intrinsics.cpp @@ -315,10 +315,10 @@ static const IntrinsicInterface genericIntrinsicFunction[]{ {"aint", {{"a", SameReal}, MatchingDefaultKIND}, KINDReal}, {"all", {{"mask", SameLogical, Rank::array}, OptionalDIM}, SameLogical, Rank::dimReduced, IntrinsicClass::transformationalFunction}, - {"allocated", {{"array", AnyData, Rank::array}}, DefaultLogical, - Rank::elemental, IntrinsicClass::inquiryFunction}, {"allocated", {{"scalar", AnyData, Rank::scalar}}, DefaultLogical, Rank::elemental, IntrinsicClass::inquiryFunction}, + {"allocated", {{"array", AnyData, Rank::anyOrAssumedRank}}, DefaultLogical, + Rank::elemental, IntrinsicClass::inquiryFunction}, {"anint", {{"a", SameReal}, MatchingDefaultKIND}, KINDReal}, {"any", {{"mask", SameLogical, Rank::array}, OptionalDIM}, SameLogical, Rank::dimReduced, IntrinsicClass::transformationalFunction}, |