<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/145333>145333</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
[flang] Parser has issues with DATA statement
</td>
</tr>
<tr>
<th>Labels</th>
<td>
flang
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
mjklemm
</td>
</tr>
</table>
<pre>
It seems like PR #135406 broke certain forms (badly :-)) formatted `DATA` statements. Reproducer:
```Fortran
subroutine rout()
real, dimension(29) :: arr1, arr2
data arr1/1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11
$ ,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11,1.11
$ ,1.11,1.11,1.11,1.11,1.11,1.11,1.11/, arr2/1 .11E
$ -11,1.11E-11,1.11E-11,1.11E-11,1.11E-11,1.11E -11,1.11E -11,1
$ .11E-11,1.11E+11,1.11E+11,1.11E+11,1.11E+11,1 .11E+11,1 .11E
$ +11,1.11E+11,1.11E+11,1.11E+11,1.11E+11,1.11E+11 ,1.11E +11,1
$ .11E+11,1.11E-11,1.11E-11,1.11E-11,1.11E-11,1.11E -11,1 .11E
$ -11,1.11E-11,1.11E-11/
end subroutine rout
```
Compile with `flang -c reproducer.F`.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJy0VNtupDAM_ZrwYg0KDpeZBx6mF6R9q6r9AUPcIW2AURK66t-vAl162b7MVosiJZbtg235HPLenEbmWhRXorhJaA795Orh8cnyMCTtpF_qHwE88-DBmieGu3sQqDJV5LKE1k1PDB27QGaEh8kNHgTuW9L2BYQ67gQeBB4WD4XAGkQpb44_j6KU4AMFHngMPgW457Ob9NyxE-oo5HJKuZ5mcsHRKOQRls_PrZvmYEaGeAvcx9_88TomK_AatBl49GYaBe7XKiKyOgI5l8UAcg63LE2BXj1NlmYx4FvXK67AHL4L9R_wm61_bDJIs-z2PeBui7y95AlfvN_DfgoXeHWRAV9YH6ZwGdzXBmwNbL7PLXxI-pf5XDLvZltQHvVfi_-OIytlrqfhbCzDLxP6SLUHS-MJdh24jV5pI0qZJrpW-qAOlHCdVYUs95XMVdLXlca9UppyJR9IyYzKkvKqlJ3SSHs-JKZGiYUsFw2oUKVK65xIU5V1VcXIIpc8kLGptc9DOrlTYryfuc7yQimVWGrZ-kVvEJf6BGKUHlfHhF07n7zIpTU--DeIYIJdRGrNKG7gjpxnBz15WPD92nQUlzdlSWZn6z6Es4_cj2vfnEzo5zbtpkFgE_Ffr93ZTY_cBYHNihepsZb8XOPvAAAA__9VlUsT">