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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Regression with character allocatables and FIRSTPRIVATE
        </td>
    </tr>

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

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

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

<pre>
    The following sample started regressing recently:
```
  implicit none
 character(10), allocatable :: src
  integer :: i
  src = "hello"
  !$OMP PARALLEL DO FIRSTPRIVATE(src)
    Do i=1,1
    End Do
  !$OMP END PARALLEL DO
```
Failure:
```
$ flang -c -fopenmp test.f90 
flang-21: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
error: loc(".../test.f90":2:33): 'fir.embox' op CHARACTER already has static LEN
error: verification of lowering to FIR failed
$ flang --version
flang version 21.0.0git (https://github.com/llvm/llvm-project c32cd5746b1335ed172d1bf58fb6498b479bd8e0)
Target: x86_64-unknown-linux-gnu
Thread model: posix
...
```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJyUVE2PpDYQ_TXmUgJB8dFw4MAM3cpKszujzig5RsYU4MRtI9vM9Pz7yN092d7NaSUQ8Fw813tVZe6cnDVRy8oHVvYR3_xibEvbTJpodYunDx0NZvxoXxeCyShl3qWewfHTqgic59bTCJZmS86FFUuCtFcfLO9Y2rEqvV1pByBPq5JCetBGU0DEwi0XnizDOksZNgwfgStlBPd8UASBJe_AWXEl0J5msp-wvIDOCmB5DwxxIaUMQ7zgDDOGxfPXF3jpjt3T0_4J-mc4fDn-_vpy_PJH97pnWAdmbC7xAL0ByfI-Y_iY3aC9HqE3P_Htv_X3nD_pPHCpNkv_N4BhAZPieoZYQDyZlfRpBU_OJ1OTAku7y2qMWRD3zq2Weg6vzyvpry_gtnU11oPUNxrpwHmpFNB5JStPpD1XwMqH-M97JDarl0azsmdpR9YaG0iVEQxrhpgkCcPDZxrBvbwLd54HZ_IOGO4maRM6DebMcAdmhcffumP3-Lo_AleW-PgBCw_JcC8FPO2_3W_0RlZOUvCQA5gJlHknG1rFm1ANmLhUNP7oT_xG1oWcb57A7RswS9IknaUHhvXi_eqCz3hgeJilX7YhEebE8KDU2-cjXq35m4QHkaMYy11RDVmelzRmOxyzYSrraaiKph6KXTOMNaXXhnjldiYfBJzr6q-qiDf9jzbvOlZSb-d41lsIWoJ6OJmRVAhdjZNnlnbB07viR2Obj03e8IjabJfXTVEVdRMtbcWnaqywLMtG5EM10DCIguMupZSmvBCRbDHFMsV0l1VFhk0y5Ug44kBpPopdkbEipROXKglSE2PnSDq3UZthhVUWKT6Qcpf5RvwcU6NDlfGRIV7cZXl3bcYAl31k24tvwzY7VqRKOu--03vp1eXAuP5a9qx8uDYoK3s4_rcFvEu_fJ_w-7F2wPX4wyRGm1Xtr5WT4eGi1DE83MS-tfhvAAAA__-7T3pI">