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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Incorrect diagnose of DATA statement to initialize implicitly typed and subscripted components
        </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:
```
  PROGRAM Data2
  IMPLICIT TYPE(DT)(V)
 TYPE :: DT
      INTEGER :: Id
      PROCEDURE(), NOPASS, POINTER :: ProcPtr
    END TYPE
  DIMENSION V1(3)
  DATA V1(1)%ProcPtr /NULL()/
  DATA V1(1)%Id /4/
  end
```

Flang currently issues error messages for both DATA statement.
```
error: Semantic errors in t.f
./t.f:8:14: error: Internal: no symbol found for 'procptr'
    DATA V1(1)%ProcPtr /NULL()/
               ^^^^^^^
./t.f:9:14: error: Internal: no symbol found for 'id'
    DATA V1(1)%Id /4/
 ^^

```

This seems incorrect. 
- If I change `V1` to be explicitly typed, it compiles successfully, or
- if I change `V1` to be scalar, it compiles successfully.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVFGPozYQ_jXOy2gRGALJAw80hBPSbhJlcyv10ZgBXBk7sk3b9NdXhs3t3nVvpR5CYHtmvvn0jWeYtaJXiDlZ_0bW5YpNbtAmL5kSKHe7AdWq0e0t32llRYsG3IDQaSn1X0L1wHWLJC5IWJKwIGn4-s5bgNP5-OVcPEHJHKP3w_rp9Fjv6gtcfj_tCd2UF0K3hG5e_G_x8RbwsHEB5eUe6J_6cNl_2Z_vxrp9bzydj7t9-fXsUWfMHRyOp-L52a9ORx_7LfJkND858xa-P5QLo9eTsn7aH57r4wFeIkI38Rs7KItLsZxGc5r1KxgQWh2-Pj7e01c_Dahb75u8c0HVfiji8q0k82JPxqBy8gbC2gktoDHawIjWsh4tdNpAo92w5LOOORxRueBD4DnWK_GMI1NO8AXNglDggm5xCgit_CYuNiQuosT7fwuslUOjmPRrpcHexkZL6PSk2pkKodnVaH51htDsTej_rd53D1nvP3h_ILv9JbKi_Zznf4r2PvknxbsMwoJFHL22XBuD3AWw2B6g7qAGPjDVI5A0fIlIGoLT0CDg31cpuPAFd7crtv4aCwdcj1ch0YKdOEdru0nKm7dpcwcVPwe1nElmPoMKVm0et9t4y1aYR1m4iWiWxMlqyNOozTjDkGYd27JmG28zyro0DVnCoibFlchpSJOQRimN12GcBDzdNBnL6IY3bUvTjiQhjkzIQMo_x0CbfjVf5XxDw3S7kqxBaedRRGkz9YRSQneE0s7ffxIXndHK-Vah1A8rk3uYh2bqLUlCKayzb8BOODmPtbl5yLqE-q4-tIL1SlsE3f3QLF4loYQTTIp_EMT4fQmAqRbs1FhuxNVhOyuoFSpnV5OR-eDc1foRQytCq164YWoCrkdCK0_s9fdwNfoP5I7QaulkQqtZgX8DAAD__6sql_U">