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

    <tr>
        <th>Summary</th>
        <td>
            [flang][AIX] zero-sized array crash
        </td>
    </tr>

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

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

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

<pre>
    Reproducer
```fortran
 integer, allocatable :: a(:)
  allocate(a(0))
  inquire(iolength=iol) a
end
```

```
$ flang-new zero.f90
$ ./a.out

fatal Fortran runtime error(/home/kli/zero.f90:3): Bad address for I/O item -- null base address or subscripts out of range
IOT/Abort trap (core dumped)
```

Original test: https://github.com/llvm/llvm-test-suite/blob/main/Fortran/gfortran/torture/execute/iolength_1.f90
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyMU0Fv8zYM_TX0RUgg03ZiH3xwGwjoqcCww26DbNGOVsXKKKld--sHJWlafOjhAwxYIh8JvvcoHYJdVqIemgdoDoVO8ei5f3l5c7YYvXnv_6Aze5MmYpAHkAPs5PWbPUfW6zUq7BppIQZ8FNo5P-moR0cCqgGqQWjANh-xu8E_QQTY5qTMqa-sXf9NlnPSekfrEo9QHax3gJ3QVxCt5peBbtcfg1iL2el12az0Jj6I_XbuvuW2gEpvfYrfe8w6aifUlabgtEZ7IkHMnjMdVEd_IkD14iygujethiozqQbxoI3QxjCFIGbP4glQPQsb6SQ2G7Em58SoA90xnkVIY5jYnmMQPkXhZ8F6Xeg60NPzn4BqGD1HEVmfBWA7eSZh0ulM5q7fj4o8s13sqp2IFGKe7hjjOVxMUYBqsfGYxu3kT4DKudfP3ybDNyHZbJUanR8B1UnbFVDdpMnV8_0YPceUrVP0H03pUvZp4t9lVqgwfWW6qtMF9eUe923X7GRTHPu206au6qbFZmrbeTT1flfOU2n2OGE1m8L2KLEupcSyk1LW27Ku9K4zjdy1uNf7CmpJJ23dNo--9bwUNoREfVnKrqwKp0dy4bLriJd9gGq4GQuIgI_3OGJ-DtxfNBjTEqCWzoYYvlpHG93l4VwrmgM0D8PTX9AcLhu2CfaDjNDM-l1MrMOxSOz635T9zP4fmmIWLzMIgOpG4rXH_wMAAP__j9ofqA">