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

    <tr>
        <th>Summary</th>
        <td>
            [flang] Runtime failure on list-directed I/O
        </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 code:
```
      implicit none

      integer, parameter :: in = 11

      real(4) :: nanq_pos, nanq_neg, nans_pos, nans_neg, inf_pos, inf_neg

      character(3) :: c1, c2

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

      ! reset variables
 nanq_pos = 0.0; nanq_neg = 0.0; nans_pos = 0.0; nans_neg = 0.0
 inf_pos  = 0.0; inf_neg  = 0.0
      c1 = 'xxx'
      c2 = 'xxx'

 open(in, delim='quote', blank='zero', sign='plus')
      read(in, *) nanq_pos, c1, nanq_neg, c2, nans_pos, nans_neg,    &
     & inf_pos, inf_neg

      close(in)

 end
```

`modeMixNaNInfIO001.dat` contains
```
+nan(q) xlf -nan(q) 'ibm' +nan(s) -nan(s) +inf -Inf
+nan "xlf" -nan() ibm +nan(s) -nan(s) +infinity -Infinity
nan() "xlf" -nan ibm +nan(s) -nan(s) +infinity -Infinity
```

Flang failed at the execution as
```
> a.out

fatal Fortran runtime error(t.f:23): invalid character (0x28) after list-directed input value, at column 5 in record 1
IOT/Abort trap(coredump)
```

It seems it complains about the `(` in the record.

If I remove all the "(*)" from the `modeMixNaNInfIO001.dat` based on Flang's runtime error message, Flang works fine.

Both gfortran and XLF executes the original code successfully.
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJycVUGP4zYP_TXKhUhg03HsHHzITL4AAb7uAEUPvRW0TTvqypJHkmcz_fWFbCfjzHa7QAcDRKbIJ_LxUSLnZKuZC5E-ifS4osFfjC2OpCWr5-cL61Vp6vfi2Wgna7bgLwyNUcp8k7qFytQskoOIDmIXzf_RAcY_2fVKVtKDNpqDx31De27ZCnyGnix17NlCQEkOIDWI5AhxvAywTEpgvhW4v_lp0q9_9MYFkHGtuZ3XbmF3N7vUzc0clsG6OKC6kKXKh5zyZHFKFYeACpe-pmctMJc6bDVSsUiOArPO1PyLvH6hL2fdnF-iKN7U5AVmwY0qL42eHC1TPZr3S1SBMVh27OGNrKRSsQt7tzJHUqJNJJKne7mfbO4f_NyDX3S40QBLv5kPWPpNrMSjSWB2vV5DyvcN_G4j7D0wU7OS3VTx62A8z0yUivTXyfwXWzNbgwYnY68Gd2fn3v36DivwEPqzbP_UpKUIKvw3KYxs727wAnc_E4cyjucEbj1jXX_S_PT5AxXsIqiM9iS1-xyGT5oCa6-hrKtqYL34FpjJshOYwd3PBft6sRb4JHUD67Nu7nggEK-qEYg31-Apy-6nOFJL_z6CjSsRHT7iH0H_I9wnzk6KdAsNScU1kB-vF75yNYSBAfqOruR_QBsz-Cm6IU8KTsZ6SxrsoL3sGNhaEybZbxqRHDAM9HS1vJGS9cewg8A8uk61URMMSjq_rqXlynMNUvdDmEc18DjEHiqjhk5DGq4py5WxNYSL6vzym8DToTTWg7fUC8wrY7keun6WzGPRZw-OuXMgA2TXqyAMoNIMEwHBEfOgGqlHw3TWZo5u4AyWO_PGQEpNEYhjk8JwhAY11nQ3qB9rsiTHNRgNYxcEZu6RQ-jYOWrH6qdGfTP2q4NGap6TeTL-Am0zd4B0Db___zR3kN2YgrGylZrU-FiAG6qKnWsGpd43q7pI6n2ypxUXcZZiniYx7laXokSktNkjRtEe91mc5bwjxm2dZElEu91KFhhhGmVxHqdJvt1tyjIpGaNmX2EWR1kuthF3JNVGqbduY2y7ks4NXMTbfZokK0UlKze-eojNWH5ymIsPZKbHlS1C6LocWie2UZCG-wDz0qvx0Zxi0yP8OjMXtDxYDrQ-yuks8PSyGqwqLt73LjwxeBJ4aqW_DOWmMp3AUzhg_ln31vzJlRd4GlN3Ak9z9m8F_h0AAP___3JHPA">