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

    <tr>
        <th>Summary</th>
        <td>
             [Flang] WRITE with E20.0 of value 1.0 does not raise error condition as it should.
        </td>
    </tr>

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

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

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

<pre>
    The value written with E20.0 is "0.E+01" and IOSTAT is not set to non-zero.
However, with classic-flang and gfortran, IOSTAT is assigned a non-zero value. [Sample](https://godbolt.org/z/6PszccsYc).

**Sample.f90**
```
Program test_WRITE_IOSTAT
  Integer, Parameter:: quad = selected_real_kind(22)
 Integer :: i
  Write(*,'(E20.0)',iostat=i) 1.0_quad
  If (i==0) Then
     Print '("bug quad")'
  Else
     Print '("ok quad")'
  End if
  Write(*,'(E20.0)',iostat=i) 1.0d0
  If (i==0) Then
     Print '("bug double")'
  Else
     Print '("ok double")'
  End if
  Write(*,'(E20.0)',iostat=i) 1.0
  If (i==0) Then
     Print '("bug real")'
  Else
     Print '("ok real")'
  End if
End Program test_WRITE_IOSTAT
```

**llvm-flang output:**
```
 0.10000000E+01
bug quad
      0.10000000E+01
bug double
 0.10000000E+01
bug real
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJykVE1v4zYQ_TWjyyACNZJs66CDE8VoTg26BhY9GbQ4ktilxZSkEjS_vhClfGCx2cUihmCbHr7n98iZJ73X_chcQ3kNZZPIKQzW1YN02g_tUCRnq_6rjwPjozQT45PTIfCITzoMeEsiFag9ApFIb4GuRQZEKEeFd39-Oe6Pc3G0AT0HDBZHO149s7MpiAbE_g_7xI_sgG4WvtbMctqrzsixjyx9Z11wcpy3vDGuohXKV8ZFXopQXn-RlwfDUDZAuyGEBw_5HugAdOitOlsTUut6oMMz0GFz75_b1v_dAlWrqPWd5mehSrtKLOu1thHrE5f3zvZOXjCwD6evf90db0-L1KWMeDcG7heb99LJCwd2s6Z8j_9OUiHkDXo23AZWJ8fSnL7pUQHtiICqlWUlwRWoX8i_Oh0YaBcF3gBtgXbxXmbovLrR1gcZIG80UIVZKk7zv76K6xBopyFvIG9mEB4HHl-qiHjv9BhwIQai89RH1bCIo-3L1lvj-WOY_fYBalSou0-YUeIzTpSdzoZ_38tHuM-6-YyXuXN-38mPUe98zN9_0eLfDcT7CTLm8bLOs53CwxTiMH44SyjSTCyvNU7iz69N9-bkJzvXy_kVYXT-IxGJqnNV5ZVMuM62oiw2RZFVyVBzK7ngaisUbTJSRVaWQlZqI7pWKNptEl2ToEJk2VYUYlNWaaZKJqqE2JyJqVNQCL5IbdL5XOYcSrT3E9fbXV6JxMgzGx-jmCgeGuR7N41BX2KvlU3i6nii56n3UAijffBvXEEHw_WcgYcILhuMl_U-rW23JnmWClSWl3x2UntGds46bO2odNB2ROlRB_SDnYxKk8mZ-rs81WGYzmlrL0CHWcX6cfXg7D_cBqBDtOeBDtHh_wEAAP__RFHGnA">