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

    <tr>
        <th>Summary</th>
        <td>
            [flang] list-directed output of a character literal constant line wraps after 78 characters
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

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

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

<pre>
    Hopefully the bug reproducer below suffices to describe and reproduce this issue.  The same problem occurs if `print *,` is replaced with `write(*,*)`.  The problem also occurs if the character literal constant is replaced with a `character` variable.  No wrapping occurs if the `*` format is replaced with `"(a)"`.
```
% cat list-directed-output-wraps.f90 
print *, "List-directed printing of a character literal constant of length > 78 characters wraps around to a new line."
end
% flang-new list-directed-output-wraps.f90 
% ./a.out
 List-directed printing of a character literal constant of length > 78 characte
 rs wraps around to a new line.
% flang-new --version
flang-new version 20.0.0git (git@github.com:llvm/llvm-project 3acb1eac5eb6ef4e60dd64b7845615e076cc6a3e)
Target: arm64-apple-darwin23.6.0
Thread model: posix
InstalledDir: /Users/rouson/Repositories/llvm-project/build/bin
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJysVE2P4zYM_TXyhYih0N8HH6ZNgxYoeiimP4CWaFuFYhmSPOn--0J2tpmdXXR7KBDEkPhIvkc9iUIw08Lci-oHUV0y2uLsfO_dFtySDU5_6n92K4-btZ8gzgzDNoHn1Tu9KfYwsHV3CNs4GsUBogPNQXkzMNCin0iIswlgQtg4B3idGQLdGFbvBss3cEptPoAZQdRy9WaJIPBF4I-ilmBCqmNJsYa7iXPC3L2JLLB9oNJ_J2r5qP25LNng3tVO_NVMnlRkD9ZE9mRBuSVEWuLXfSh1-ichUXkjb2iwScNvDu6e1tUs04cWopaJUC1hdP5G3yi8I1BgS4k2YmIu5EXIlPX4HUusQFEEa0I8aeNZRdYnt8V1i6fUPuRjJ-EAv58bCMRf3yfBHt3JjkD_NgY3guVlSjSLn6Bpn9iwKw5A3m2LTodNsPAdrFk4TzJ2GrzoJ_nR0jKdDtB_kJBScoFXyt0Wjy34v2U8yn5HzTcUnE5v7INxyxF8Bh7bgDKXuZxMOoR2MlGUaTFvQ67cTRQv1r7dBF7T57R69yerCAWp4cykKh5qHkuupdZ1OTRtWdXnimVTK1VTwckoe9tX8hNHUbwA-VtdnmhdLZ80-btZsMjr_GGd19kzabg5zTahVxfMX0folzQia1lfjE8hgdc_Avsg8HpcfIHX3zklROcNhw-cBV6HzVidvmb54NtM94Xuio4y7s8NNrIo6w6zuW_aSnE3VI2WxVjKGlE1balaboay1I3KTI8SS9khnrvqXGDeNa1uatSMquKOS1FKvpGxeSKTOz9l-3vSn2VXtV1maWAb9ocMcT-cZMnqkvl-Zz9sUxClTD4MzxLRRLu_fkdGdfnSqHAY9btuS6b57KcxIb64N9nmbT_HuAZRvAi8Cry-M8Yx3a-HvKtLw38IfOvx7wAAAP__dPvZWA">