diff options
| author | Tom Eccles <tom.eccles@arm.com> | 2024-01-26 11:09:29 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-01-26 11:09:29 +0000 |
| commit | b64c26f34f6d64eb15bd7584623b37d1a8e0e5d5 (patch) | |
| tree | a40cabd47b343e00f1c271f4254f9c4de5bfb59a /flang/lib/Evaluate/intrinsics.cpp | |
| parent | 1bc1dcf28f41fc28c38e00d8d709eabe07751e14 (diff) | |
| download | llvm-b64c26f34f6d64eb15bd7584623b37d1a8e0e5d5.zip llvm-b64c26f34f6d64eb15bd7584623b37d1a8e0e5d5.tar.gz llvm-b64c26f34f6d64eb15bd7584623b37d1a8e0e5d5.tar.bz2 | |
[flang][runtime] Implement SLEEP intrinsic (#79074)
This intrinsic is a gnu extension. See
https://gcc.gnu.org/onlinedocs/gfortran/SLEEP.html
This intrinsic is used in minighost:
https://github.com/Mantevo/miniGhost/blob/c2102b521568a74862fa5abb074b1fc8041fc222/ref/MG_UTILS.F#L606
Diffstat (limited to 'flang/lib/Evaluate/intrinsics.cpp')
| -rw-r--r-- | flang/lib/Evaluate/intrinsics.cpp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/flang/lib/Evaluate/intrinsics.cpp b/flang/lib/Evaluate/intrinsics.cpp index eeea5b57..7d5c545 100644 --- a/flang/lib/Evaluate/intrinsics.cpp +++ b/flang/lib/Evaluate/intrinsics.cpp @@ -1401,6 +1401,10 @@ static const IntrinsicInterface intrinsicSubroutine[]{ {"count_max", AnyInt, Rank::scalar, Optionality::optional, common::Intent::Out}}, {}, Rank::elemental, IntrinsicClass::impureSubroutine}, + {"sleep", + {{"seconds", AnyInt, Rank::scalar, Optionality::required, + common::Intent::In}}, + {}, Rank::elemental, IntrinsicClass::impureSubroutine}, }; // TODO: Intrinsic subroutine EVENT_QUERY |