[flang-commits] [PATCH] D112738: [flang] Fix crash on "call system_clock(count_max=j)"

[Peter Klausler via Phabricator via flang-commits]

This revision was automatically updated to reflect the committed changes.
Closed by commit rGd0ca0595b9bd: [flang] Fix crash on "call system_clock(count_max=j)" (authored by klausler).
Herald added a project: LLVM.
Herald added a subscriber: llvm-commits.

Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D112738/new/

https://reviews.llvm.org/D112738

Files:
  flang/lib/Evaluate/intrinsics.cpp


Index: flang/lib/Evaluate/intrinsics.cpp
===================================================================
--- flang/lib/Evaluate/intrinsics.cpp
+++ flang/lib/Evaluate/intrinsics.cpp
@@ -1131,11 +1131,11 @@
                 common::Intent::Out}},
         {}, Rank::elemental, IntrinsicClass::impureSubroutine},
     {"system_clock",
-        {{"count", SameInt, Rank::scalar, Optionality::optional,
+        {{"count", AnyInt, Rank::scalar, Optionality::optional,
              common::Intent::Out},
             {"count_rate", AnyIntOrReal, Rank::scalar, Optionality::optional,
                 common::Intent::Out},
-            {"count_max", SameInt, Rank::scalar, Optionality::optional,
+            {"count_max", AnyInt, Rank::scalar, Optionality::optional,
                 common::Intent::Out}},
         {}, Rank::elemental, IntrinsicClass::impureSubroutine},
 };


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D112738.383431.patch
Type: text/x-patch
Size: 875 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-commits/attachments/20211029/9121a2a4/attachment.bin>