diff options
| author | Peter Klausler <35819229+klausler@users.noreply.github.com> | 2024-01-25 16:35:18 -0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-01-25 16:35:18 -0800 |
| commit | 71e01d9fd757b7330958f9ee4ef4b797b7d17a7e (patch) | |
| tree | 1857127a4391a9111748a1e26df0ca6a907017be /flang/lib/Evaluate/intrinsics.cpp | |
| parent | ba45ad160e3f329aeb02c19eaf18af27fa423d85 (diff) | |
| download | llvm-71e01d9fd757b7330958f9ee4ef4b797b7d17a7e.zip llvm-71e01d9fd757b7330958f9ee4ef4b797b7d17a7e.tar.gz llvm-71e01d9fd757b7330958f9ee4ef4b797b7d17a7e.tar.bz2 | |
[flang] Support KNINT and KIDNNT legacy intrinsic functions (#79190)
These specific intrinsic functions are legacy names that map to the
standard generic NINT(..., KIND=8).
Diffstat (limited to 'flang/lib/Evaluate/intrinsics.cpp')
| -rw-r--r-- | flang/lib/Evaluate/intrinsics.cpp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/flang/lib/Evaluate/intrinsics.cpp b/flang/lib/Evaluate/intrinsics.cpp index 85c76b1..eeea5b57 100644 --- a/flang/lib/Evaluate/intrinsics.cpp +++ b/flang/lib/Evaluate/intrinsics.cpp @@ -1113,6 +1113,12 @@ static const SpecificIntrinsicInterface specificIntrinsicFunction[]{ {{"kiabs", {{"a", TypePattern{IntType, KindCode::exactKind, 8}}}, TypePattern{IntType, KindCode::exactKind, 8}}, "abs"}, + {{"kidnnt", {{"a", DoublePrecision}}, + TypePattern{IntType, KindCode::exactKind, 8}}, + "nint"}, + {{"knint", {{"a", DefaultReal}}, + TypePattern{IntType, KindCode::exactKind, 8}}, + "nint"}, {{"len", {{"string", DefaultChar, Rank::anyOrAssumedRank}}, DefaultInt, Rank::scalar, IntrinsicClass::inquiryFunction}}, {{"lge", {{"string_a", DefaultChar}, {"string_b", DefaultChar}}, |