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

    <tr>
        <th>Summary</th>
        <td>
            [flang][OpenMP] Parallel region failure
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            bug,
            openmp,
            flang
      </td>
    </tr>

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

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

<pre>
    Here's a test program:
```
program bug
  use omp_lib
  implicit none
 integer ivar
  real :: table(10)
  !$OMP PARALLEL NUM_THREADS(3) PRIVATE(table)
    table = 1
    !$OMP PARALLEL NUM_THREADS(3) SHARED(table)
      !$OMP DO LASTPRIVATE(table)
        do ivar=1,size(table)
          table(:ivar) = ivar*5
        end do
 !$OMP END PARALLEL
    if (any(table/=size(table)*5)) then
      stop 'fail 3'
    end if

  !$OMP END PARALLEL
  print *,'ok'
End Program
```
Here's my compilation command -- `flang-new -g -fopenmp -fopenmp-version=31 bug.f90`
When I execute the result, I get the output:
```
Fortran STOP: fail 3
Fortran STOP: fail 3
```

When I compile this with gfortran (`gfortran -fopenmp bug.f90`) or ifort (`ifort -fopenmp -qopenmp-lib=compat bug.f90`), I get the output:
```
 ok
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVFFzozYQ_jXiZcceWIwxDzxwwZ5kJrl4krR9vBFmweoJiUrC1_TXd4QJTtKk7Xk8w-5q99v9lg9xa0WriHKWfGFJGfDBHbXJe-tIqIZkHVS6fs6vyRDD1AIHR9ZBb3RreMfigoUlCwu2Dqf_6E7HUA3tOQAwWALd9d-kqF5CouulOAgHSiuagkI5asmAOHHzkmeIS_Ct4gIcryQx3EQhw-wlgWHEcHV_t4d98VDc3m5v4esvd9-erh-2RfnIcBMzzGD_cPNr8bRluJlA5no4wwKLS4guwf8H-3hdPGzLD1FfQ5T3cFs8Pv3bEP5X6zP1uIwYXlnxF32aCvMyWFyMRZiNFM52kbxNJ1VDrafYZa7t13KmdykQDTDccPV86b5jcfl-Ht_EPzJwR1Kv-1mne2CYNlxIiBmml0M_iGgm3fzjDX40T2-EcsCwYHjFMNXfZ7ytqmE_afEjIc667Z7hoLteSO6EVt7uuKphsQC2DhvJVbtQ9AMWLSwa3ZPq-tlYnMhYoRWLyzjykl422aXDb0dScAP0Jx0GR34PYMgO0jG8ghtoyY0xPbh-cJ99LzttnOEKHp_u917l09b-8-wdzJuJznT9RMLCD-GO0DYTlJfMOpzdmfErbpiBNiB8ypR-ti_b-WPajv-g49J34-4tws9sAPT3d_GgzuM6izMeUB6luEqzZB1nwTGP0oaqVdhwJF5XTXwIMdmssgj5Okmz1ToQOYa4CjeYYpTESbZMDxWnsIrCeN1g3dRsFVLHhVxKeeqW2rSBsHagPArXmKWB5BVJO96IiP4KQxyFh2fGszvKxntJGZjcYy2qobVsFUphnb2gO-HkeMOeK5KSJV_ue1J3e5aUsOeGS0kSDLVem_4FD4aCwcj86Fxv_c5wx3DXCnccquVBdwx3Hn16LHqjf6eDY7gbiViGu4nLKce_AwAA__8wQaw2">