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

    <tr>
        <th>Summary</th>
        <td>
            Fortran c_f_pointer with deferred attributes
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

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

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

<pre>
     > cat dynamic.F90 
subroutine c_f_strpointer1(cstrarray, fstrptr, nchars)
  use ISO_C_BINDING
 implicit none
  character(C_CHAR), dimension(*), intent(IN), target :: cstrarray
  character(len=:), pointer, intent(OUT) :: fstrptr
 integer, intent(IN) :: nchars
  type(C_PTR) :: cstrptr
 character(len=:), pointer :: fptr

  cstrptr = C_LOC(cstrarray(1))
 call c_f_pointer(cstrptr, fptr)
  fstrptr => fptr(1:nchars)
end subroutine c_f_strpointer1
[software@nemesis ~/GITHUB-ECCC/librmn/build : (dev_alpha *%|u=)]
 > flang-new -c dynamic.F90
error: Semantic errors in dynamic.F90
./dynamic.F90:11:29: error: FPTR= argument to C_F_POINTER() may not have a deferred type parameter
    call c_f_pointer(cstrptr, fptr)
 ^^^^
========================================
this compiles with gnu C/intel C/AMD aoccc C/nvidia C
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzEVF1vozgU_TXm5aoRuUBrHnhISZmJtNuOOp1nZMwNeGVMZJtUednfvjIhSTu7Wu0-jYQUcj8O59xzbeGc6gxRwbJHlm0jMfl-tMWwPwqtTNSM7akAljyBFB7akxGDkqsqj4HFWxZv3NTYcfLKEMh6XztvD6MynuyaIZfOW2GtODEsYR9y3oZXI3thHcP8jAEwOYLd95e6rB93z9vd85cloYaDVlJ5MKOhS3FoFtKTZcjLuvy6eQ1IWEKrBjJOjYYhZ7hZooGN8Qz57nmJeGE78sCSDUs2cCP5D_iaDEu2ofLcuoj7hPvy441hfoG7yFwEGE_dT_Uzj0v5Morl0_50oFnVt7fXD0XyE-Z_4Hclc-26ijtDAUu2UNa_vZSfbeLrGehijBRaz75edXN5s3FGv5m4v0GHfTln-Zolm5_8JtPCv-zNmW_26Ma9fxeWWBobGsgpB38yrL7s3r7-eLx7KsuSYaVVYwfDsGompdugGxjylo610IdewLwHGXsop0ALc5ZtF74zRy1Md2foHe7kx-VeeFo72oD4nQZhvJIwRxwo8_fiFcPqYzDZrIN0zAPAFakKxiZbELabBjIe_AhlXdXfXnbPb0-v8-LmMIgTmNFDL44EAlrak7XUzusBB2HFQMGMZe7wv2xi2dPtOY86-PUrnvnrvlcO5DgclCYH78r30JkJgrdBi57fNr9vQYxSyvmfOapWCSijtkjaPMlFRMX6AeMse0CeRX1xnyLxNF6v73lOCc9bmSBynsexiFOeNpEqMMY0fohzjJM0zVZxjo3Ikvs4RaJ837I0pkEovdL6OKxG20XKuYmKnOOaR1o0pN18YyKG7ZmTDDFcoLYIPXfN1DmWxlo5724oXnlNRTVab4X5aNlZ-dVp4b1VzeTJRZPVRe_9wc2nvGJYdcr3U7OS4xAOgD5efu4OdvyDpA-jC4Qcw-pM-FjgXwEAAP__UPbCZw">