diff options
| author | Peter Klausler <35819229+klausler@users.noreply.github.com> | 2024-04-24 15:57:58 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-04-24 15:57:58 -0700 |
| commit | 14339aba9ca3299f0f76999e0e8f42a7e1eacb10 (patch) | |
| tree | c6560c2bade4177e1e738a8824cc8ee534bfc8bf /flang/lib/Evaluate/intrinsics.cpp | |
| parent | 8b512e525d3adc56da626a6e4f16c3b2f602aade (diff) | |
| download | llvm-14339aba9ca3299f0f76999e0e8f42a7e1eacb10.zip llvm-14339aba9ca3299f0f76999e0e8f42a7e1eacb10.tar.gz llvm-14339aba9ca3299f0f76999e0e8f42a7e1eacb10.tar.bz2 | |
[flang] Catch error on REPEAT(x,NCOPIES=array) (#89993)
The NCOPIES= argument to the intrinsic function REPEAT must be a scalar
integer.
Fixes https://github.com/llvm/llvm-project/issues/89851.
Diffstat (limited to 'flang/lib/Evaluate/intrinsics.cpp')
| -rw-r--r-- | flang/lib/Evaluate/intrinsics.cpp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/flang/lib/Evaluate/intrinsics.cpp b/flang/lib/Evaluate/intrinsics.cpp index f07f94b..1b73cad 100644 --- a/flang/lib/Evaluate/intrinsics.cpp +++ b/flang/lib/Evaluate/intrinsics.cpp @@ -777,7 +777,9 @@ static const IntrinsicInterface genericIntrinsicFunction[]{ {"identity", SameType, Rank::scalar, Optionality::optional}, {"ordered", AnyLogical, Rank::scalar, Optionality::optional}}, SameType, Rank::scalar, IntrinsicClass::transformationalFunction}, - {"repeat", {{"string", SameCharNoLen, Rank::scalar}, {"ncopies", AnyInt}}, + {"repeat", + {{"string", SameCharNoLen, Rank::scalar}, + {"ncopies", AnyInt, Rank::scalar}}, SameCharNoLen, Rank::scalar, IntrinsicClass::transformationalFunction}, {"reshape", {{"source", SameType, Rank::array}, {"shape", AnyInt, Rank::shape}, |