[flang-commits] [flang] [flang] Implement CHDIR intrinsic (PR #124280)

[Jean-Didier PAILLEUX via flang-commits]

================
@@ -404,6 +404,8 @@ static const IntrinsicInterface genericIntrinsicFunction[]{
         DefaultLogical},
     {"ceiling", {{"a", AnyReal}, DefaultingKIND}, KINDInt},
     {"char", {{"i", AnyInt, Rank::elementalOrBOZ}, DefaultingKIND}, KINDChar},
+    {"chdir", {{"name", DefaultChar, Rank::scalar, Optionality::required}},
+        TypePattern{IntType, KindCode::greaterOrEqualToKind, 4}},
----------------
JDPailleux wrote:

Test updated

https://github.com/llvm/llvm-project/pull/124280