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

    <tr>
        <th>Summary</th>
        <td>
            Compilation Error of DO CONCURRENT Construct in BLOCK Construct
        </td>
    </tr>

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

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

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

<pre>
    The following simple program produces an erroneous message.

```fortran
block
  integer :: i
  do concurrent (i = 1 : 4)
    print *, i
  end do
end block
end
```

```text
bprichar@perlmutter:login15:~> /global/common/software/nersc/pe/gpu/llvm/17.0.6/bin/flang-new example.f90 
error: Semantic errors in example.f90
./example.f90:3:18: error: Index name 'i' conflicts with existing identifier
    do concurrent (i = 1 : 4)
                   ^
./example.f90:2:14: Previous declaration of 'i'
    integer :: i
               ^
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUU09vvDYQ_TTDZRQEBhY4cCC7i1S1Sqo0_QAGxuDW2Mg22c2ln73ybpKNouTwQwjsYf483nvmzslJEzVQ3ENxiPjmZ2MbeiH76mepJ7HpwUujuYp6M742zzOhMEqZk9QTOrmsinC1ZrJ8Ce9xG8gh10jWGk1mc7iQc3yiGJIDJO3bc5dcb2Gst1xfo70yw7_XJaLUniayCFkLWYvyPT4aHIweNmtJewRWSYTsgGlIxBxY_Z6IuFp5SWmB7W8NSI84musurD9NJT1-wfctaE9n_4Z4tXKYuYU8WcmqZfOeLGStMpPUaQFZ-x9kRwTWTcr0XAHrBrMsRgPrnBH-xC0B6zRZNwDr1rCZ1g1Yp9TLAqxLyziJd8C6XoYaobie7jSdkM48cB-LOsE38NaaMBv_ooVrL4eLBtah1J-zr8kxsO5zMGszyNq0CvUfjX7TI51R84UQWCmBlYF6oeTgHZ6kn5HO0vngBDmS9lJIsjf6f0GpLxcUx59gsgAzDx3-tPQig8FGGhS3PNgUjXiHemv-k5O-H_mhcjQ22VhnNY-oScskz6pql6fR3IiirsQuIcHTXZFVYkdpWhSlKJKKV0JQJBuWsDxJkzwt05KlcZ30VVVVVFBdFXlaQ57QwqWKg8qxsVMknduoKXd1WUWK96Tc5UgyFrS-fATGwgm1Tai567fJQZ4o6by7dfHSK2r2ZlmluvJxDFoGVg6PuH982P_99HR8eMa90c7bbfDBHPd_PO5_v4Wizapm9n51gTDWBUtKP299PJjl5swLjNWaf2jwwLoLRgesu_zD_wEAAP__xwZL8A">