<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/84203>84203</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang] Extension: getcwd intrinsic
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          DavidTruby
      </td>
    </tr>
</table>

<pre>
    The getcwd intrinsic is an extension provided by some other Fortran compilers (for example [gfortran](https://gcc.gnu.org/onlinedocs/gfortran/GETCWD.html)). This extension is used by OpenRadioss.

Arguments:
```
C       The type shall be CHARACTER and of default kind.
STATUS  (Optional) status flag. Returns 0 on success, a system specific and nonzero error code otherwise.
```
Example: 
```
PROGRAM test_getcwd
 CHARACTER(len=255) :: cwd
  CALL getcwd(cwd)
  WRITE(*,*) TRIM(cwd)
END PROGRAM
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxsk1GPnDYQxz-NeRkFeQ17wAMPZNlNIyW9ilDlsTJmALfGRh5zyfbTV8CerjpFQoNgxjM__sxfEunRIpbs_JGd60iuYXK-rOWL7lu_dveoc_29bCeEEYP60YO2wWtLWoEmkBbwZ0BL2llYvHvRPfbQ3YHcjODChB5uzgcvLSg3L9qgJ2AiH5wH_CnnxSCw88dxOIrYuWYin0JYiCUVEzcmbqNS8WjX2PmRiZuzRlvsnaIt9XpM3D5d28v3Op7CbJgomChiaCdN_8PTBCsddM8L2kb22hHFjNeMV0es_LjOaMM-_Hj_xB_X_nhhvNi0CPcFgSZpDHQIl9-qprq01wak7cEN0OMgVxPgH237x4BvbdX--Y3xgon8eQnaWbmBAgUZVoLByDGGBsPqLQEHZ4FWpZCIiQtIoDsFnIEWVHrQah9knf0XvQP03nlQrn8o_kMTxr_Evx6Ks6SCX-b_aJ4_NdVXCEjhr-N_H4m3T2QiN2hZUovzeePflEoqeKuES_Xly2NZmMj3WLzmvjef2ysTORMVE5c9FtA2n7--q7z-XsMD5h1o1JdJXySFjLA8ZbzI0ideiGgqMcl61ame87zIhBiGPD1JXvBzelJKySzSpeAi5Ql_OmUiP4k4QZkWJ1RDikmWySeWcpylNrExL_O2bpEmWrHMU8GTyMgODe0-EWIw0o5MiM0yvtzqP3TrSCzlRlOgtw5BB7Ob6zhxruH6upCbbO89Fa3elO_WX4dp7WLlZiZuW9_H7cPi3d-oAhO3HXPzw076XwAAAP__W4suOw">