<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/77736>77736</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
[flang] list-directed WRITE of zero-length CHARACTER fails to print leading blank
</td>
</tr>
<tr>
<th>Labels</th>
<td>
bug,
flang
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
kiranktp
</td>
</tr>
</table>
<pre>
Leading blank is missing
Here is a small reproducer:
Program test_listdirected_zerolength
Print *,'' ! a leading blank must be present in output
End Program Test_listdirected_zerolength
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJx8kc-O2ywUxZ8Gb64S4WszDgsv8uWP5pO6GEWRuhyBuXZoMFiAK7VPX9lp2plNV4A45-r87lEp2cETtUz8x8SxUHO-hdjebVT-nqdCB_Oj_ULKWD-AdsrfwSYYbUrWD4wfGd8zLh-XV4q0_CpIo3IOIk0xmLmjyKr9U_vHId9iGKIaIVPK786mbGykLpN5_0kxOPJDvn3UA7xF6zMw3DM8MGwYNsCwBAXuU8BxThk0wRQpkc9gPYQ5T3P-OO3kDTwTXP-RoDBtZWQlVUFt2fBaiuZlJ4pbKyrSuiIymvdSll1d1mT4rpZGcrPDurAtcqx5WZa8wRLFVldC9V0vUOqdbETPak6jsm7r3PdxG-JQ2JRmapumqV4KpzS5tPaCqOeBIa7Y2Dvl15c4FrFdvBs9D4nVfEFIf6dlm91a7MMhjrAINk9I-Hr5_3qC0MNCu3ngwuF1f9kfrqcL9Mq6BDnAtK79046LObr2lvOUlmrxzPA82Hyb9bYLI8PzkuH3sZli-EZdZnhe8RLD80r4KwAA__-6TctW">