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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Output this message (IEEE arithmetic exceptions signaled: INEXACT) when STOP statement exists
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 17.0.0(f6c8a8e9cb7d8b8abb382b52c88fb287a6f27a2b)
```

When the test program is executed, the following message is output.
```
  IEEE arithmetic exceptions signaled: INEXACT
```
If `STOP` statement in the test program is deleted, the above message is not output.


The following are the test program, results of Flang-new, Gfortran and ifort compilation and execution.

d12_6.f90:
```fortran
program D12
 integer::N=75
  real(kind=8),parameter::A=1.6
  write (6,*) A**N
 stop
end program D12
```

```
$ flang-new -flang-experimental-exec d12_6.f95; ./a.out
 A**N = 2.0370382529008532E+15
Fortran STOP
IEEE arithmetic exceptions signaled: INEXACT
$
```

```
$ gfortran d12_6.f95; ./a.out
 A**N =    2037038252900853.2
$
```

```
$ cp -p d12_6.f95 d12_6.f90
$ ifort d12_6.f90; ./a.out
 A**N = 2.037038252900849E+015
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJycVFGPozYQ_jXOyyjIjAOYBx64TVLty16lrtq-VQYG4iuxkW1ut_--Mgm3udxW6p4UARk8M9_3zcco7_VgiCqWfWLZfqPmcLKusidjt_2XTWO7fyqW8-uP7xmvfyfntTVge-hHZYatoRdgooa0SHjCGco-b6WSVLZN0clGqqYREpsMWyn7BmWh8h4LhQ3D8lLyrsPl-seJDIQTQSAfYHJ2cOoM2gO9UjsH6hg-LO97O472RZsBzuS9GigesnOY5pC8Wx_g8XA4gHI6nM4UdAv02tIUtDUeoh5qpC4yenw6_Fk_PL9b5LEHlvPfnj__ynIOPqhAZzIB9PugOxrpBrNq7Fe6xWtsuMN8c33-jqVy9EOLWNeRn8fg42CO62Bi_JfeuuCUAWU60PEPtPY86VFFxkv0Iqm25rvmXYp_5UlfcibqOw2uJS_RleY-xavA2gQayMU8UT8xsS-yVXpHamQo_9amY2IvowfwYVJOnSmsGTUT-zTJ15QXpwMBQ5kzfGBYMyyhXu710_WMD3a6PJLp4AdA7xrsPoi7G0NvL4_0OpHTcbBq3EaVYBUlY-ITJAyPKrFzuMJYUQETe8CEi4ILiRmWnMtM4IHhp_SqxPE6lMVBF0f9jClx9zGGw2qG_88DAPCOSYI_2b6dYDu99YY3i307cnHojfc-JvOujCrzVeb_QrjpKtGVolQbqtJcFkWWpZncnKq0QY6YlVT02AohMeet3ImMpOh5U6qNrpCj4DnmfJehkEkpVCbKXcpV0xSlStmO01npMRnHr-fEumGjvZ-pykWWis2oGhr9sm8RF5MxUffOmkCmY4hxC7sqpm6befBsx0ftg38rFnQYl329fOQs28PnZW9AOGn_baUwlB_0E5bwElduNOTNPqPX2H4zu7E6hTD5-IXikeFx0OE0N0lrzwyPEd31tp2c_UJtYHhceHuGx4X6vwEAAP__5LLTqw">