[flang] Add storage_size intrinsic.

Original-commit: flang-compiler/f18@bcde26a7c1 Reviewed-on: https://github.com/flang-compiler/f18/pull/723 Tree-same-pre-rewrite: false
2019-09-09 14:33:04 -07:00 · 2019-09-09 14:33:04 -07:00 · c1c83477ed
parent af933e12c8
commit c1c83477ed
1 changed files with 3 additions and 0 deletions
--- a/flang/lib/evaluate/intrinsics.cc
+++ b/flang/lib/evaluate/intrinsics.cc
@ -648,6 +648,9 @@ static const IntrinsicInterface genericIntrinsicFunction[]{
            {"ncopies", AnyInt, Rank::scalar}},
        SameType, Rank::rankPlus1},
    {"sqrt", {{"x", SameFloating}}, SameFloating},
+    {"storage_size",
+        {{"a", Anything, Rank::anyOrAssumedRank}, SubscriptDefaultKIND},
+        KINDInt, Rank::scalar},
    {"sum", {{"array", SameNumeric, Rank::array}, OptionalDIM, OptionalMASK},
        SameNumeric, Rank::dimReduced},
    {"tan", {{"x", SameFloating}}, SameFloating},