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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] runtime segfault when an allocatable variable is used with copyin
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            miscompilation,
            flang:openmp
      </td>
    </tr>

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

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

<pre>
    ```
program foo
  real, allocatable :: ra
  !$omp threadprivate(ra)
  ra = 10
  !$omp parallel num_threads(2) copyin(rp)
  print *,ra
  !$omp end parallel
end program
```

Compiling with `flang -fopenmp` version `8e6abf52e7` gives a segfault in the compiled aplication after the print.

CC @DavidTruby 
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxskkGPnDgQhX9NcbGmZcrQNAcOPd3q22r3sPeogAIcGduyDaP59xHQmckkkRCgetSjvvKjGPVomRsoX6G8Z7SkyYUmtYamrHX9ewNn-bzkHeTVBzcGmsXg3FEQIjAZwJsgY1xHiVrDAtQV1FUE-vkRYA5YuNmLNAWm3ge9UmLASyDA-sOLBKi7yOWffZ4CGcNG2GX-dphEwAsC1qJz_l3bzcz_YuaDtkkAXgFvf5uEbf_heqh75SA8Cr_RH_ebm7022o7iTadJwFkOhuwoXgbn2c4ezlKsHKJ2dhMvfKZ2KJGrTRj1ylGQiDwOtJgktBVpYtHtptwL8kZ3lLZmGhKHXd1RTl-GuAko5J1W3f8flvZdZH2j-lrVlHGTV1iXWCtVZVNTsVQo27PsulIOkrgd8oJJoVItUlFlukGJRS4xz8_FpaxOuawHGgZ56ateIUooJM-kzcmYdT65MGY6xoWbPFd5nWeGWjZxjxDirOOBsiMAIuANEPcNgbo-N4S4pS00m-FLu4wRCml0TPHzF0kns-fyaC3vUL7-69n-8x-UdxEWm_TMn2t8m9gKsl9SuFLQ-4uOYoncH-d1hCVbgmmmlHzcsooPwMeo07S0p87NgI9tjufjxQf3nbsE-Ni5I-Djib42-CMAAP__mbYBgg">