[flang] Add support and documentation for DREAL.

Original-commit: flang-compiler/f18@5b6a2dc26ccd4faf56543ccb616a22d86812aa02
Reviewed-on: https://github.com/flang-compiler/f18/pull/705

diff --git a/flang/documentation/Extensions.md b/flang/documentation/Extensions.md
index e849b29..0e34503 100644 (file)
--- a/flang/documentation/Extensions.md
+++ b/flang/documentation/Extensions.md
@@ -94,7 +94,7 @@ Extensions, deletions, and legacy features supported by default
   we allow distinct types to be used, promoting
   the arguments as if they were operands to an intrinsic `+` operator,
   and defining the result type accordingly.
-* DOUBLE COMPLEX intrinsics DCMPLX, DCONJG and DIMAG.
+* DOUBLE COMPLEX intrinsics DREAL, DCMPLX, DCONJG and DIMAG.
 * INT_PTR_KIND intrinsic returns the kind of c_intptr_t.
 
 Extensions supported when enabled by options

diff --git a/flang/lib/evaluate/intrinsics.cc b/flang/lib/evaluate/intrinsics.cc
index 0f8b1f2..6b56807 100644 (file)
--- a/flang/lib/evaluate/intrinsics.cc
+++ b/flang/lib/evaluate/intrinsics.cc
@@ -778,6 +778,7 @@ static const SpecificIntrinsicInterface specificIntrinsicFunction[]{
              {"y", AnyIntOrReal, Rank::elementalOrBOZ, Optionality::optional}},
          DoublePrecisionComplex},
         "cmplx"},
+    {{"dreal", {{"a", DoublePrecisionComplex}}, DoublePrecision}, "real"},
     {{"dconjg", {{"a", DoublePrecisionComplex}}, DoublePrecisionComplex},
         "conjg"},
     {{"dcos", {{"x", DoublePrecision}}, DoublePrecision}, "cos"},