<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">