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

    <tr>
        <th>Summary</th>
        <td>
            [flang] intrinsic in initialization statement
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          k-arrows
      </td>
    </tr>
</table>

<pre>
    The following code is valid in F2008. See the discussion in https://gcc.gnu.org/bugzilla/show_bug.cgi?id=25095.

```console
INTEGER :: i(10)
DATA (i(MODULO(j,5)),j=1,4) /4*0/
END
``` 

Currently Flang rejects the code.
```console
$ flang-new 25095.f90
error: Semantic errors in 25095.f90
./25095.f90:2:7: error: Data object must have constant subscripts
  DATA (i(MODULO(j,5)),j=1,4) /4*0/
 ^^^^^^^^^^^^^^
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykU8FunDAQ_ZrhMlpkxrDAgQNdlqpSm0hNeq4MeMGp145sk1Xy9ZXZqGlzqCpVGoE043l-88ZPeK9mI2UDxQcoukSsYbGu-bETztmLTwY7PTf3i8ST1dpelJlxtJNE5fFJaDWhMtgTY1WKd1JiWCROyo-r98qaWFxCePTAW6AeqJ_HMZ3Nmlo3A_XDOr8orQVQ7xd7-T6sczrOCnivJuAdFawuUmAdsPb1u2fXGK3xVstr9tPN_fHj8SvGW3iLCqjKGFB9rXbtfYtAVUx_ue2-fb4Fqh6ADkU8EuPwALzLgA45UI1AfQ7Uskh4AzjedO9ux985HVbnpAn6GXstzIxOPsgx-E2KKFX6N-pAOZ5i287IC14HPtXsWpTOWRcnupNnYYIaccv4KOu7oylQ_5biLQFvy9j6C6MTQaAdIjc8rz7gIp4iQeODMAH9OvjRqcfgr4CI_60bQnH81_hTomRq-FTzWiSyyfY1J17lnJKlEQOxipVVOeQyryivxTDk8sRPOaNyLPNENcSIs4qqbM8YZ2nJJGVZTULW5V7UGeRMnoXSqdZP5_gME-X9Kpt9wfJ9osUgtd-8QBQ3shWBKFrDNbFnN6yzh5xp5YN_Qwkq6M1E2zah6FCZ4JTxaozrUkYFJbR6ESH6wgcR5FmakKxON-8sosKyDuloz0B9xH_97R6djdsD6jdWHqjfWP8MAAD__5HwE88">