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

    <tr>
        <th>Summary</th>
        <td>
            [flang] NML: Failed to read namelist that contains IEEE specification exception.
        </td>
    </tr>

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

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

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

<pre>
    Consider the following reducer:
```
      use, intrinsic :: ieee_arithmetic
 implicit none

      integer, parameter :: in = 11

      integer :: i

      real(kind=4), dimension(6)   :: real_arr1
      real(kind=4), dimension(3,2) :: real_arr2

      complex(kind=4), dimension(2)   :: cx_arr1
      complex(kind=4), dimension(2,2) :: cx_arr2

      namelist /naninf/ real_arr1, real_arr2, cx_arr1, cx_arr2

      open(in, file='miscNaNInfIO010.dat', action='read')

      read(in, nml=naninf, decimal='comma')

      close(in)

 end
```

`miscNaNInfIO010.dat` has
```
 &NANINF
 REAL_ARR1(1:3)=NaN(Q); -Inf;+3,14 ;REAL_ARR1(4:6)=-NaN(S); +Infinity;  NaN ; REAL_ARR2=inf;NAN();   nan(s); -infinity -nan    nan(_1a_) CX_ARR1=  (nan(_); -nan(1));( +infiniTy;-INFinIty);   CX_ARR2= (-3,14 ;nan(s) )  (nan; nan);      (inf  ;   inf) (-nan();-inf)
```

Flang failed at runtime as:
```
> a.out

fatal Fortran runtime error(t.f:25): 'nan' is not an item in NAMELIST group 'naninf'
IOT/Abort trap(coredump)
```

Both gfortran and XLF executed the code fine.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJyUlU2PozgQhn9N5VJKBHZI4MCBfCBF6mG0M32YW8uBIqldsJExs93_fmUg6U-tdlstBeN6H79Flcqq7_miiVKIdhAdFmpwV2PTg9JMzX5_Jb04m-ol3Rvdc0UW3ZWwNk1j_mZ9QUvVUJIFmUGQwSaY_4MMx7-hJxB7ZO0s655L9IEyQyaiJ2XZXVtyXPp4bruGS3aojSYPuzFYO7qQ9ZxOWdWSI3vnaAR5wDD8QnCPebtnSTUg4r9YVyAPaxCJ51bcku7ZaBDxBkSCeBP7-Cdlbfg_CBLEXnjKB4Z4a6Q0bdfQ87-TxDsv5fN7J_8V8c7MBHlnRauWGu4dgsi10qxrEPmbzMX-TQpif_dxf3xHMx35c1n7_ZobAnkAsW25LwtVnHR9-h6EwapSDsTWx6jSeatjlCVVja-TD0Wr7kjdNiAPN597rKjkVjWTvjRtqz4Dysb4RhwJtw3S1YeWnZZfGd0EeFX9xw4HsSmy4lTkfvHjmD08ZT9-hCDiEGQm_UnyUKgCRPzHuNjh8qRrkDsQO98j4RpB7t4K1yCzzSRcTsqfsxLE7qRr1uxe_BILVXjx_VgB8sAjvMi8bpb54vpq9DcDPENwqZXG-_5TqJ58k-x_TVbkARFEPG_exNMyHLssGfOIvbGJ-eiNLU9FzvrkXu7nT0RvzwOXr3m_GsOxy-fj5G6yNMtx3GBdI04vxqonI2siTKHL6f3niuaN0hesFTdUoXJoB-24JVT955kF8ohqZQY3SWvlVIO5sc4qfReStcaCiN2qBpmJaDzfN8N29LNF7lEbh0ojO2r9iCqyb8eH089HvFgzdHPoaHgLQXb6_ggiz87GOnRWdSDi0vi52nZfZrQz7oqXeraldIW_HnKkZyoHR9U4n0tTEdasabWoUlklMlELSsNttI5iIbdycU0pqoJyLcIo3IqIqiChKqJtfaZznZxlvFlwKgIRBXGwDaMokXKlaknbQEVVslHqLCNYB9QqblZN87tdGXtZcN8PlIaRiGS8aNSZmn68VoSofRVAZvNHBCH8XWNTL12eh0sP68CPoP4V5tg14600aaMDFt8e_JfOp1o6M86F1-nlrsphabRTrHs8HY9H7DsqueZS-QmD9FxS559Wi8E26dW5bmwCkYPIL-yuw3lVmhZE7k3MP8vOmj-pdCDyMb0eRD5n-DsV_wQAAP__ChMPuA">