fix type pattern of 'status' in getcwd

Author: JumpMasterJJ

flang/lib/Evaluate/intrinsics.cpp

@@ -512,7 +512,7 @@ static const IntrinsicInterface genericIntrinsicFunction[]{
     {"getcwd",
         {{"c", DefaultChar, Rank::scalar, Optionality::required,
             common::Intent::Out}},
-        DefaultInt},
+        TypePattern{IntType, KindCode::greaterOrEqualToKind, 4}},
     {"getpid", {}, DefaultInt},
     {"huge",
         {{"x", SameIntOrReal, Rank::anyOrAssumedRank, Optionality::required,
@@ -1405,8 +1405,8 @@ static const IntrinsicInterface intrinsicSubroutine[]{
     {"getcwd",
         {{"c", DefaultChar, Rank::scalar, Optionality::required,
              common::Intent::Out},
-            {"status", DefaultInt, Rank::scalar, Optionality::optional,
-                common::Intent::Out}},
+            {"status", TypePattern{IntType, KindCode::greaterOrEqualToKind, 4},
+                Rank::scalar, Optionality::optional, common::Intent::Out}},
         {}, Rank::elemental, IntrinsicClass::impureSubroutine},
     {"move_alloc",
         {{"from", SameType, Rank::known, Optionality::required,