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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Incorrect diagnose when pointer assign to intrinsic INDEX.
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            bug,
            flang:frontend
      </td>
    </tr>

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

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

<pre>
    Consider the following code:
```
  MODULE M

  INTERFACE
   FUNCTION ExtINDEX(Arg1, Arg2, Arg3, Arg4)
      INTEGER :: ExtINDEX
 CHARACTER(*), INTENT(IN) :: Arg1, Arg2
      LOGICAL, OPTIONAL, INTENT(IN) :: Arg3
     INTEGER, OPTIONAL, INTENT(IN) :: Arg4
    END FUNCTION
 END INTERFACE

  END MODULE

  PROGRAM PtrAssignProcNameIntrin4
  USE M
  IMPLICIT NONE

 PROCEDURE(ExtINDEX),  POINTER :: PtrINDEX
  PtrINDEX => index

 END
```

Flang currently issues an error:
```
./t.f:19:3: error: Procedure pointer 'ptrindex' associated with incompatible procedure designator 'index': distinct numbers of dummy arguments
    PtrINDEX => index
    ^^^^^^^^^^^^^^^^^
./t.f:18:36: Declaration of 'ptrindex'
 PROCEDURE(ExtINDEX),  POINTER :: PtrINDEX
 ^^^^^^^^
 ```
 
 The code seems conforming to me. 

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykVF2PqzYQ_TXmZXQjMJCQBx4oH1ukXRKlidRXAxNwBXZkm-7df1-ZkGSz6r1qdSWUCTM-M8dnhmFa804gxiT8jYSZwybTSxVnTHAc0rRH4dSy_YhTKTRvUYHpEc5yGOQ7Fx00skXiJ8TNiJuQtbs88yvA2y47vebwtoQXb1kd80ORpPnNAcWpSo_lroL8uymrLP-T0ChRnUdoConq6GL9xQaEbu9YuCZ8yQ9gifjJI8n1SPp7ckjSY34gNCI0sViazpjqSGhUVoRub9Cnop8qvO5eyjR5taHd3jK9_v9hEv8TeGH3n7HBA5tX2V2bxWtdXwS8nbehq-LP_v1h93JI3mBvVDJ3e69kU7ERS2EUF_d6pz_urQIo3_avZVoeodpVz_n2h12aZ6dDTmj06NcsKux3M7fbbfZGfe7E_R2InxE_By5a_P6UPK-yf52l628xMDtzk1IozPABXOsJNTABqJRUPxrEFaGFWZ2Jn3hb4ie-pXYDgBUD20khXCQXBhUQurlYYSw3ugGmtWw4M9jCOzc9cNHI8cIMrweEyx3dopWWGTknuKFthZZrw0VjQExjjUqDPEM7jeMHMNVNIwqjHy3_iUQ2TML8fz9fNYisBmvLLMNmYIoZLoUl9XzxX273zwnB122xmGOP81YBjThqaKQ4SzXaXWMkjLhazjlt7Ldbf8scjL2NGwWh77mu08e1X3tNE9BtWK_bMNoEXkQ9bDbNer0Nmds6PKYuDVxKXS_yIuquao_5QcTW2LqeG_kBCVwcGR9Ww_D3uJKqc-Y5iyPqbzfOwGoc9LwuKa2njlC7ngilZzucxE_OSgqDorWBMHNUbNN8q6dOk8AduDb6kdhwM8yrd55sEmZQikYqhY2BlrNOSI3w3qO4D-d1X1st-Pz1at7ALPrKmdQQ98ZctG0HLQgtOm76qV41ciS0sEUX8-2i5F_YGEKL6ydEaDHf7p8AAAD__4R9r3U">