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

    <tr>
        <th>Summary</th>
        <td>
            [flang] DECIMAL edit specifier not working
        </td>
    </tr>

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

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

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

<pre>
    Consider the following code:
```
      implicit none

      real :: rlarr(5) = (/1.11,22.2,333.33,44.4,0.0/)
      character(170) :: buffer_comma(3)
 character(170) :: buffer_point(3)

      namelist /nml_r/ rlarr

 write(buffer_comma,nml_r,decimal='comma')
      write(6,*) buffer_comma

 write(buffer_point,nml_r,decimal='point')
      write(6,*) buffer_point
      end
```

Flang prints 
```
  &NML_R RLARR= 1,11 22,2 333,33 44,4 0,/

  &NML_R RLARR= 1.11 22.2 333.33 44.4 0./
```

While the test case is expecting
```
  &NML_R RLARR= 1,11; 22,2; 333,33; 44,4; 0,/

  &NML_R RLARR= 1.11, 22.2, 333.33, 44.4, 0./
```

The standard says [24-007: 13.6]
```
If the decimal edit mode is COMMA during list-directed input/output, the character used as a value separator is a semicolon in place of a comma.
```

It seems the `value separator` is missing from both decimal edit modes.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJyMVN1q9DYQfRrtzRBjj-xd-8IXjrcLgaSFUOhl0ErjtVpZMpKc9Hv7Iq-Tr_kpzbJggeacOaMzMyIEfbFELatuWXXciSWOzrdHYTWZvh_J7s5O_Wh7Z4NW5CGOBIMzxr1oewHpFDHesbxj-3z75x2sPz3NRksdwTpLKeL1wpMwkFC8A2-E9wzrimEDjB-BYc3wVGRFwbBHzJBhzznPOGfYl2VWMuzzLGd4Yti8UcpReCEjJarikF_J1gTnZRjIP0k3TYJhzTfU_wJmp238CXjLZMVERocIDE92Mk-e4Wmr4hr14nUkhvX7xP0W2yuSehKG8SPDw3Z5-Hcpr_g9w55hl5S9o_oyy6b26yzb5TezXKNf48iqD-ayvDsZYS8we21jgE_eM9z_-nD_9AiP993jY_I0WVkUgMlLBL5ayTmUycsS8lXC6fWRv4BnKzhbodkKzErIsw30Xtsfoza0dmmkEEGKQKAD0N8zyajt5dtyGb_dFKfTq-h0vupOp29JZ9jD1sjw1smwtfJ_lfH7SBCisEp4BUH8CMCqWyxv8vyQmrTg2Z5Vxw-4u2EtfDMfSOkIk1PrA_S_PTx0oBafxjY18I3SnmQkBdrOS2R4cktcD_3K8jYhsARSIAIIeBZmIQg0Cy-i84lXQKBJS2ecBW1hNkISuAEErO2afS7tLkIgmsKahe3zD6RsnyfeSYeQpA7eTXB2cfxcVsh2quWq4Y3YUVscyhrrfVWXu7HFAzYlP1eoBnGg8lwXvNkLdZa1koVsxE63mGOVV7gvmrwpy6yq5UE1VSFIcqxLYmVOk9AmM-Z5ypy_7HQIC7VFWVRFtTPiTCasWxNxSPPAeDd4Z2OaGMS0S32bsDfn5RJYmac3Dz_Zoo5m3bpXcHWE4y_93UN3f60vzCT1oMmDdRFenP9L28tu8aYdY5xD2lVpA54uOo7LOZNuYnhK5NvnZvbuT5LJ1lV3SEv1Kv25xX8CAAD__8kCsxs">