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

    <tr>
        <th>Summary</th>
        <td>
            [Flang][OpenMP] execution error when pointer variable with `private` attribute is output in `task` construct
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 18.0.0(1c876ff5155c4feeb2b2885eb3e6abda17c4b7f4)
```

When pointer variable with `private` attribute is output in `task` construct, execution terminates abnormally.

The following are the test program, Flang-new, Gfortran and ifort compilation result.

snes_task_016_2.f90:
```fortran
PROGRAM main
 INTEGER, TARGET  ::A,B=0
  INTEGER, POINTER ::P
  call omp_set_num_threads(2)
  A=100
  B=50
!$OMP PARALLEL PRIVATE(P)
 P=>A
!$OMP TASK
  PRINT '("[TSK-1] P=",i3)',P
  P=>B
!$OMP END TASK
!$OMP END PARALLEL
end PROGRAM main
```

```
$ flang-new snes_task_016_2.f90 -fopenmp; ./a.out
[TSK-1] P=100
Segmentation fault
$
```

```
$ gfortran snes_task_016_.f90 -fopenmp; ./a.out
[TSK-1] P=100
[TSK-1] P=100
$
```

```
$ ifort snes_task_016_.f90 -qopenmp; ./a.out
[TSK-1] P=100
[TSK-1] P=100
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8VF2PqzYQ_TXmxQoCG0h44IEsyWp19wNlo9vHyMAAvjU2tc1u77-vnJBsNt0-3EqtFAV5PD5zfGZ8mDG8kwAZitcoLjw22V7pTPVSLdofXqWanxlKgvkXFCjIv4M2XEmsWtwKJruFhHeMaI7DlR_4ASKrsF4tk7aNwziuoxagIhVZrWKoKCSsali4rKNq2UaIpCfImwqn_996kHhUXFrQ-I1pzioB-J3bHqMkGDV_YxZQEmBmrebVZAFzg9Vkx8liLl2SZeZ3l1EraayeaovIHYY_oZ6su4EFPXDJLBjMKqn0wIT46V9z2PeAWyWEeueyw0wDtj1gC8biUatOs8Ehbs8yuMV9q7TVTGImG8zdAtdqGLlgx5oazCTspyJGgjk4qocgTA7Eb9MA0fxGmRn1FC13L_e7_AkPjM8R_PC839xvdo7BPt_db_bY9QTRPEfkbo1oMWuLrzPLF7fYzZnlOaNmQmA1jAcD9iCn4WB7DawxiKzIpWcY54gWYXDBdUXicwdJiEj08lTiMt_lj4-bR1zuHr7n-w0iq_IDo0S0QHST357a56_fzrjl7uF5jxFZIrJChKB4vX_9tghRXJyOE4LIHacO1OXcXa4xg69vwTfPxVWBz_Ez3dMeyAb_Xesvp_U2SKKr1_FFh_GiVSPIYUR0jX1EtsxXk50P31zxIvIrdANIe5qklk3CXqr9GrXuPKSfmf1rYv-88avMTi_mK1p__A-0vCajTUpT5kEWJmlKEhKEsddn1ZIu26SpggiaqE6quiZN1LCkipuGUJJ6PCMBoWEYJEEaUhr7QCpoyGq5rOM2ghRQFMDAuPCFeBt8pTuPGzNBtgxpknqCVSDM0YUJOQ4OonmrlbQgm9OIX23MSrjHUHg6c4iLauoMigLBjTUfNSy34mjuR49CcYHi9csI8ql0mnxYIWitNH7_DyzXm7TIemtH41yGbBHZdtz2U-XXakBk66jOn8Wo1Q9wLr09amMQ2R7l-SsAAP__8_jeYw">