diff --git a/flang/documentation/Extensions.md b/flang/documentation/Extensions.md
index 7324ffad56b8..d7a89a099948 100644
--- a/flang/documentation/Extensions.md
+++ b/flang/documentation/Extensions.md
@@ -94,6 +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 DCONJG and DIMAG.
 
 Extensions supported when enabled by options
 --------------------------------------------
diff --git a/flang/lib/evaluate/intrinsics.cc b/flang/lib/evaluate/intrinsics.cc
index 30b0f61cf0c9..cffa4221d464 100644
--- a/flang/lib/evaluate/intrinsics.cc
+++ b/flang/lib/evaluate/intrinsics.cc
@@ -778,6 +778,8 @@ static const SpecificIntrinsicInterface specificIntrinsicFunction[]{
     {{"ddim", {{"x", DoublePrecision}, {"y", DoublePrecision}},
          DoublePrecision},
         "dim"},
+    {{"dimag", {{"a", DoublePrecisionComplex}}, DoublePrecision},
+        "aimag"},
     {{"dexp", {{"x", DoublePrecision}}, DoublePrecision}, "exp"},
     {{"dim", {{"x", DefaultReal}, {"y", DefaultReal}}, DefaultReal}},
     {{"dint", {{"a", DoublePrecision}}, DoublePrecision}, "aint"},